[Haskell-beginners] HUnit - testing for failed pattern match