Получайте ошибку соответствия в haskell при тестировании функции

Question

это функция

toRevDigits :: Integer -> [Integer]
toRevDigits 0 = []
toRevDigits x
    | x<0 = []
    | otherwise = lastDigit x:(toRevDigits (dropLastDigit x))

это тест

testRevDigits :: (Integer, [Integer]) -> Bool
testRevDigits (n, [d]) = toRevDigits n ==[n]

ex2Tests :: [Test]
ex2Tests = [Test "toRevDigits test" testRevDigits
            [(321,[1,2,3]), (0,[]), ((-17),[])]
           ]

это ошибка

*** Exception: LAB8Tests.hs:27:1-44: Non-exhaustive patterns in function         testRevDigits

Как я могу исправить работу тестера, чтобы он работал?

Answer 1

Конечно это - в вашем testRevDigits вы подходите для [d] - это означает, что второй компонент входного кортежа будет работать только со списками длины 1, но вы переходите в более длинные списки.

Мое лучшее предположение, что вы хотите это:

testRevDigits :: (Integer, [Integer]) -> Bool
testRevDigits (n,expected) = toRevDigits n == expected