我为Haskell的HUnit提供了简单的单元测试代码。我使用的是Mac OS X 10.10,我用cabal install hunit
安装了HUnit。
module TestSafePrelude where
import SafePrelude( safeHead )
import Test.HUnit
testSafeHeadForEmptyList :: Test
testSafeHeadForEmptyList =
TestCase $ assertEqual "Should return Nothing for empty list"
Nothing (safeHead ([]::[Int]))
testSafeHeadForNonEmptyList :: Test
testSafeHeadForNonEmptyList =
TestCase $ assertEqual "Should return (Just head) for non empty list" (Just 1)
(safeHead ([1]::[Int]))
main :: IO Counts
main = runTestTT $ TestList [testSafeHeadForEmptyList, testSafeHeadForNonEmptyList]
我可以使用runhaskell TestSafePrelude.hs
执行它以获得结果:
Cases: 2 Tried: 2 Errors: 0 Failures: 0
Counts {cases = 2, tried = 2, errors = 0, failures = 0}
但是,当我在Code Runner中运行它时,出现无法找到HUnit模块的错误消息。
CodeRunner在不同的shell环境中启动测试,这似乎是个问题。如果是这样,需要添加哪些环境变量?如果没有,可能导致问题的原因是什么?
我还发现CodeRunner中的ghc-pkg list
不会搜索包含HUnit的~/.ghc
中的目录。
/usr/local/Cellar/ghc/7.8.3/lib/ghc-7.8.3/package.conf.d:
Cabal-1.18.1.4
array-0.5.0.0
...
xhtml-3000.2.1
这是在shell中执行的结果:
/usr/local/Cellar/ghc/7.8.3/lib/ghc-7.8.3/package.conf.d
Cabal-1.18.1.4
array-0.5.0.0
...
/Users/smcho/.ghc/x86_64-darwin-7.8.3/package.conf.d
...
HUnit-1.2.5.2
...
zlib-0.5.4.2
我在路径中添加了~/.cabal
和~/.ghc
,但它不起作用。