haskell HUnit中的PutText

Question

我最近一直在使用HUnit測試框架在haskell中運行單元測試。

我遇到了這個函數PutText和runTestText，它以PutText st作為第一個參數。

但是我不確定如何使用此功能，希望對了解如何使用此功能有幫助嗎？

Answer 1

PutText值允許您自定義報告運行測試所生成的消息的方式。

創建消息的一種簡單方法是使用putTextToHandle stdout True將消息輸出到標准輸出。 True參數表示還發出進度消息。

PutText協議允許您維護狀態。 這是一個跟蹤所發出消息數量的示例。 runTestText還返回此狀態的最終值，作為返回的元組的第二個組件。

reportMsg :: String -> Bool -> Int -> IO Int
reportMsg message isProgress count = do
  putStrLn $ "#" ++ show (count+1) ++ ": " ++ message
  return (count+1)

myPutText = PutText reportMsg 0  :: PutText Int

然后您可以像這樣使用它：

(testCounts, msgCount) <- runTestText myPutText tests
putStrLn $ "Messages emitted: " ++ show msgCount

這里的testCounts是已運行/通過/失敗/等等的測試數量的msgCount是上次調用PutText函數返回的值。