quickCheckAll总是返回"True"

Question

我正在尝试使用另一个答案的 QuickCheck .我这样测试:

{-# LANGUAGE TemplateHaskell #-}
import Test.QuickCheck
import Test.QuickCheck.All


last' :: [a] -> a
last' [x] = x
last' (_:xs) = last' xs

prop_test x = last' x == last x

check = do
        putStrLn "quickCheck"
        quickCheck (prop_test :: [Char]-> Bool)

check2 = do
        putStrLn "quickCheckAll"
        $quickCheckAll

然后,我加载它在winGHCI并调用check和check2.我明白了

quickCheck
*** Failed! (after 1 test): 
Exception:
  list.hs:(7,1)-(8,23): Non-exhaustive patterns in function last'
""

我认为这是合理的.但是,我从中得到了这个check2

quickCheckAll
True

我很困惑,因为无论我如何改变last'功能,甚至错误,quickCheckAll总是返回True.

我的代码出了什么问题？我怎样才能解决这个问题？

Answer 1

来自Test.QuickCheck.All文档:

要使用quickCheckAll,请按照以下方式为模块添加定义

return []
runTests = $quickCheckAll

然后执行runTests.

注意:return []GHC 7.8需要上面例子中的奇怪; 没有它,quickCheckAll将无法找到任何属性.

return []在你check使它成功之前添加.