1module Prelude.CompatSpec (main, spec) where 2 3import Test.Hspec 4 5import Prelude () 6import Prelude.Compat 7 8main :: IO () 9main = hspec spec 10 11spec :: Spec 12spec = do 13 describe "($!)" $ do 14 it "is infixr 0" $ do -- #54 15 (succ $! succ $! 0) `shouldBe` (2 :: Int) 16 (succ $! 2 *** 2) `shouldBe` (5 :: Int) 17 18 19infixr 1 *** 20(***) :: Int -> Int -> Int 21(***) = (*) 22