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
+