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