fdilke/pyrites
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

complex expressions

Browse Source
This commit is contained in:
Felix Dilke 2026-01-14 12:39:15 +00:00
parent f71984b647
commit 6dda64b0cf
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
haskell-experiments/test/Test/SimpleParserSpec.hs
View File

@ -22,5 +22,9 @@ spec = do
eval (Subtract (Literal 2) (Literal 3) ) `shouldBe` -1 eval (Subtract (Literal 2) (Literal 3) ) `shouldBe` -1
eval (Multiply (Literal 2) (Literal 3) ) `shouldBe` 6 eval (Multiply (Literal 2) (Literal 3) ) `shouldBe` 6
eval (Divide (Literal 7) (Literal 3) ) `shouldBe` 2 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