Test for _ on variable name.

marcotmarcot · Oct 11, 2012 · 6ead2ad · 6ead2ad
1 parent cc2e49d
commit 6ead2ad
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/tests.hs b/tests/tests.hs
@@ -128,7 +128,8 @@ execution
         ~=? interpret [] "for x = 1 do\n  disp(x)\nend",
       ([], [1])
         ~=? interpret [1] "a = input(\"\")\r\ndisp(a)",
-      ([], [1, 2]) ~=? interpret [] "printf(\"\", 1, 2)"]
+      ([], [1, 2]) ~=? interpret [] "printf(\"\", 1, 2)",
+      ([], [3]) ~=? interpret [] "a_b = 3; disp(a_b)"]
 
 loop :: Test
 loop