Question

HTF有sample project，展示了如何使用测试框架。模块MyPkg.A定义了一些测试，MyPkg.B定义了一些测试。是否有可能编写新的模块MyPkg.C，它聚合了模块A和B的测试（并没有自己定义新的测试）？

我没有从A和B导入测试（在我的测试运行器主模块中），而是想从单个C模块导入测试。

我像这样实现MyPkg.C

{-# OPTIONS_GHC -F -pgmF htfpp #-}
module MyPkg.C (htf_importedTests) where

import Test.Framework
import {-@ HTF_TESTS @-} MyPkg.A
import {-@ HTF_TESTS @-} MyPkg.B

我的主要测试运行器模块如下：

{-# OPTIONS_GHC -F -pgmF htfpp #-}
module Main where

import Test.Framework
import Test.Framework.BlackBoxTest
import {-@ HTF_TESTS @-} MyPkg.C

main = htfMain htf_importedTests

当我尝试编译此代码时，出现错误：

TestMain.hs:23:5:
Not in scope: `htf_MyPkg_C_thisModulesTests'
Perhaps you meant `htf_Main_thisModulesTests'

Answer 1

HTF似乎不直接支持这种操作模式。但是，您可以通过一些hackery实现目标：

<强> A.hs

{-# OPTIONS_GHC -F -pgmF htfpp #-}
module A where
import Test.Framework

funA :: Int -> Int
funA x = x + 1

test_funA = assertEqual (funA 41) 42

<强> B.hs

{-# OPTIONS_GHC -F -pgmF htfpp #-}
module B where
import Test.Framework

funB :: Int -> Int
funB x = x + 1

test_funB = assertEqual (funB 41) 42

<强> C.hs

module C where
import Test.Framework.TestManager

import A  
import B

htf_C_thisModulesTests =
   makeAnonTestSuite $ map testSuiteAsTest                  
     [ htf_A_thisModulesTests
     , htf_B_thisModulesTests
     ]

<强> TestMain.hs ：

{-# OPTIONS_GHC -F -pgmF htfpp #-}
module TestMain where
import Test.Framework
import {-@ HTF_TESTS @-} C

main = htfMain htf_importedTests

这样可行，但问题是我们必须在C.hs中对模块名称进行硬编码。我认为一个好主意是引入一个新的delegate_测试定义语句，允许您将测试委托给另一个TestableHTF，以便我们可以将htf_importedTests导出为单个测试。也许您可以针对该问题打开功能请求或不同解决方案。

Haskell测试框架（HTF）和多个模块中的测试定义

1 个答案: