1

我试图让一个简单的单元测试工作，用 HUnit 编写。

我放入测试的模块名为“MyTests”。

module MyTests where
import qualified Test.HUnit    as H
gamma = H.TestCase (H.assertEqual "foo" 1 1)
-- Run the tests from the REPL
runTestTT $ H.TestList [H.TestLabel "foo" gamma]

我可以从 cabal repl 完美地运行这个模块：

λ> run
Cases: 1  Tried: 1  Errors: 0  Failures: 0
Counts {cases = 1, tried = 1, errors = 0, failures = 0}

我想将这些测试与 Cabal 集成，以便我可以运行cabal test.

通过几个小时的谷歌搜索，我发现我应该能够使用以下序列测试我的应用程序：

cabal configure --enable-tests && cabal build tests && cabal test

我在 .cabal 文件中插入了以下内容：

Test-Suite tests
    type:           exitcode-stdio-1.0
    main-is:        Main.hs
    hs-source-dirs: test src
    test-module:    YourTestModule
    build-depends:  base
                  , HUnit
                  , Cabal
                  , QuickCheck
                  , test-framework
                  , test-framework-hunit
                  , test-framework-quickcheck2

在Main.hs文件夹下的test/文件中，我有以下内容：

module Main where

import Test.Framework (defaultMain, testGroup)
import Test.Framework.Providers.HUnit
import Test.Framework.Providers.QuickCheck2 (testProperty)

import Test.QuickCheck
import Test.HUnit

import Data.List

import qualified MyTests as AG


main = defaultMain tests

tests = [
        testGroup "Some group" [
                testCase "foo" AG.gamma        
            ]
    ]

这显然会返回一个错误：

test/Main.hs:19:32:
    Couldn't match type ‘Test’ with ‘IO ()’
    Expected type: Assertion
      Actual type: Test
    In the second argument of ‘testCase’, namely ‘AG.gamma’
    In the expression: testCase "foo" AG.gamma

我真的很喜欢我迄今为止编写的 HUnit 测试（这是一个 MWE），我想知道如何将这些测试相互集成？

4

1 回答 1

0

问题在于AG.gamma是类型Test，因为TestCase :: Assertion -> Test.

所以 HUnit 有一种创建测试树的方法，test-framework还有另一种创建测试树的方法，使用函数testCase :: TestName -> Assertion -> Test.

因此，您不能将其HUnit.Test传递给testCase. 但事实证明，您可以将其HUnit.Test转换为测试test-framework（或者更确切地说是它们的列表）。

使用test-framework模块中的其他功能：

hUnitTestToTests :: HUnit.Test -> [TestFramework.Test]

（签名增强以显示模块来自哪里）。

有关更多详细信息，请参见此处：

https://hackage.haskell.org/package/test-framework-hunit-0.3.0.2/docs/Test-Framework-Providers-HUnit.html

于 2016-02-26T22:23:28.743 回答