沒有輸出運行HUnit

Question

我有一個測試：

test1 = TestCase (assertEqual "Bla" 2 (add1 1))

並希望在沒有自動I / O輸出的另一個Haskell程序中運行它

runTestTT test1

會創造。 我試過了

runTestText (putTextToHandle stderr False) test1 

但這仍會創建輸出。 有沒有辦法（也許是另一個Handle而不是stderr / stdout）停止測試創建輸出？

我只想獲取IO計數以在其他地方使用它們。

Answer 1

此PutText不會產生任何輸出：

foo = runTestText (PutText go 0) test1
  where go :: String -> Bool -> Int -> IO Int
        go s b i = return 0

此處foo類型為IO (Counts, Int) ，因此您可以通過以下方式獲得計數：

do (counts, _) <- foo
   ...