add test case for #681

swarm-game · Sep 16, 2022 · 26eab16 · 26eab16
1 parent 91a186e
commit 26eab16
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/test/unit/TestEval.hs b/test/unit/TestEval.hs
@@ -226,6 +226,12 @@ testEval g =
             "concat"
             ("\"x = \" ++ format (2+3) ++ \"!\"" `evaluatesTo` VText "x = 5!")
         ]
+    , testGroup
+        "binders"
+        [ testCase
+            "binder in local scope #681"
+            ("def f = a <- return 1 end; let a = 2 in f; return a" `evaluatesTo` VInt 2)
+        ]
     ]
  where
   throwsError :: Text -> (Text -> Bool) -> Assertion