complex expressions

2026-01-14 12:39:15 +00:00 · 2026-01-14 12:39:15 +00:00 · 6dda64b0cf
commit 6dda64b0cf
parent f71984b647
1 changed files with 4 additions and 0 deletions
--- 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
+