unit-testing - IO返回值测试

Question

我有一个声明，我需要检查以下的返回值:

> let a = tRunUmeQuery (selectByCount "Word" "Acoustic" "=" ((toInteger 1):[]) Strict)  testdb
> :t a 
a :: IO [[SqlValue]]

所以，我想确保 a 是一个长度恰好为 6 的列表(IO 6 那么)。

> fmap length a
6

检查这个的测试用例会是什么样子？

Answer 1

抱歉，解决方案并没有那么复杂(我只是设法让它在我的脑海中变得复杂)。

ucg :: TestTree
ucg = testGroup "selectByCount" 
    [ testCase "2 Words dominated by exactly 1 Acoustic" $ do 
        r <- fmap length  $ tRunUmeQuery (selectByCount "Word" "Acoustic" "=" ((toInteger 1):[]) Strict) testdb  
        assertEqual "selectByCount: 1 Acoustic in Word" 6 r
    ]

这个测试组工作得很好。