Haskell测试框架(HTF)和多个模块中的测试定义
Haskell测试框架(HTF)和多个模块中的测试定义
提问于 2012-12-27 02:06:55
HTF提供了sample project，它展示了如何使用测试框架。模块MyPkg.A定义了一些测试，MyPkg.B定义了一些测试。有没有可能编写新的模块MyPkg.C，它聚合了模块A和B的测试(而不定义新的测试本身)？
我希望从单个C模块导入测试，而不是从A和B导入测试(在我的测试运行器主模块中)。
我像这样实现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'回答 1
Stack Overflow用户
回答已采纳
发布于 2012-12-27 07:05:46
HTF似乎不直接支持这种操作模式。然而，你可以通过一些技巧来实现这个目标：
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) 42B.hs
{-# OPTIONS_GHC -F -pgmF htfpp #-}
module B where
import Test.Framework
funB :: Int -> Int
funB x = x + 1
test_funB = assertEqual (funB 41) 42C.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我认为一个好主意是引入一个新的delegate_测试定义语句，允许您将一个测试委托给另一个TestableHTF，这样我们就可以将htf_importedTests作为单个测试导出。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/14044356
复制相关文章
相似问题
腾讯云开发者
