From 5f5724b0b3785eae99dacc7336b1f4bd9536ef08 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 11 Sep 2022 16:02:31 +0100
Subject: Constant folding fixes

---
 test/Language.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test/Language.hs')

diff --git a/test/Language.hs b/test/Language.hs
index 604b06b..9d81733 100644
--- a/test/Language.hs
+++ b/test/Language.hs
@@ -254,9 +254,9 @@ testCase18 =
     TestCase $
       assertCompileAst
         "module main\n\
-        \1 + 2;"
+        \1 + 2 + 3 + (5 + 5);"
         [ A.Module "main" $ newPos "-" 1 1,
-          A.Num 3 $ newPos "-" 2 5
+          A.Num 16 $ newPos "-" 2 13
         ]
 
 -- test errors
-- 
cgit v1.2.3