smile.hs

smile.hs

 import Test.Hspec.Monadic
 import Test.Hspec.HUnit ()
 import Test.HUnit

 (\^-^/) = (@?=)

 main :: IO ()
 main = hspec $ do
   describe "reverse" $ do
     it "reverses a list" $ do
       reverse [1, 2, 3] \^-^/ [3, 2, 1]

     it "gives the original list, if applied twice" $ do
       (reverse . reverse) [1, 2, 3] \^-^/ [1, 2, 3]