5

我在让单元测试在 cabal 下运行时遇到了惊人的困难。我从cabal 文档中逐字复制了测试代码，但更改了模块名称

{-# LANGUAGE FlexibleInstances #-}
module Test.Integral ( tests ) where

import Distribution.TestSuite

instance TestOptions (String, Bool) where
    name = fst
    options = const []
    defaultOptions _ = return (Options [])
    check _ _ = []

instance PureTestable (String, Bool) where
    run (name, result) _ | result == True = Pass
                         | result == False = Fail (name ++ " failed!")

test :: (String, Bool) -> Test
test = pure

-- In actual usage, the instances 'TestOptions (String, Bool)' and
-- 'PureTestable (String, Bool)', as well as the function 'test', would be
-- provided by the test framework.

tests :: [Test]
tests =
    [ test ("bar-1", True)
    , test ("bar-2", False)
    ]

但是，当我尝试构建测试时，我收到以下消息：

Test/Integral.hs:6:10:
    Not in scope: type constructor or class `TestOptions'

Test/Integral.hs:12:10:
    Not in scope: type constructor or class `PureTestable'

我尝试直接从 Distribution.TestSuite 导入它们，但它说它们没有被导出。这很简单，我必须做一些愚蠢的事情，但我看不出它是什么。

4

2 回答 2

5

但是对于它的价值，这里有一些有效的代码：

module Main (tests) where

import Distribution.TestSuite

tests :: IO [Test]
tests = do
  return [   
      test "foo" Pass
    , test "bar" (Fail "It did not work out!")
    ]

test :: String -> Result -> Test
test name r = Test t
  where          
    t = TestInstance {
        run = return (Finished r)
      , name = name
      , tags = []
      , options = []
      , setOption = \_ _ -> Right t
      }
于 2013-09-08T17:13:53.063 回答
3

那里没有太多的支持detailed-0.9。可以连接现有的测试库来使用它，但即使这样，您也不会在测试通过时获得进度信息。

我建议将exitcode-stdio-1.0接口与现有的测试框架一起使用 + 在开发过程中使用 GHCi。

Hspec的完整示例在这里https://github.com/sol/hspec-example。

于 2013-09-08T17:00:43.537 回答