Add an evaluation test concerning the strictness of with lookups

2018-09-07 13:14:50 -07:00 · 2018-09-07 13:14:50 -07:00 · ee8b79c176
parent 99626e9ab9
commit ee8b79c176
1 changed files with 3 additions and 0 deletions
--- a/tests/EvalTests.hs
+++ b/tests/EvalTests.hs
@ -100,6 +100,9 @@ case_function_recursive_sets =
 case_nested_with =
    constantEqualText "2" "with { x = 1; }; with { x = 2; }; x"

+case_with_strictness =
+    constantEqualText "5" "let x = with x; with { a = 5; }; a; in x"
+
 case_match_failure_null =
    constantEqualText "null" "builtins.match \"ab\" \"abc\""