From 6dda64b0cfa0fc655e10148311b612b5dce53aa0 Mon Sep 17 00:00:00 2001 From: Felix Dilke Date: Wed, 14 Jan 2026 12:39:15 +0000 Subject: [PATCH] complex expressions --- haskell-experiments/test/Test/SimpleParserSpec.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/haskell-experiments/test/Test/SimpleParserSpec.hs b/haskell-experiments/test/Test/SimpleParserSpec.hs index 1fe6d0c..1639b8a 100644 --- a/haskell-experiments/test/Test/SimpleParserSpec.hs +++ b/haskell-experiments/test/Test/SimpleParserSpec.hs @@ -22,5 +22,9 @@ spec = do eval (Subtract (Literal 2) (Literal 3) ) `shouldBe` -1 eval (Multiply (Literal 2) (Literal 3) ) `shouldBe` 6 eval (Divide (Literal 7) (Literal 3) ) `shouldBe` 2 + eval (Negate (Literal 7) ) `shouldBe` -7 + it "more complex arithmetic on literals" $ do + eval (Add (Negate (Literal 1)) (Divide (Literal 7) (Literal 3))) `shouldBe` 1 +