ADD test for issue write-you-a-scheme-v2#25

Author: adamwespiser

test-hs/Golden.hs

@@ -31,6 +31,7 @@ tests = testGroup "Golden Tests"
  , tastyGoldenRun "lexical scope 1" "test/test_scope1.scm" "test/ans/test_scope1.txt"
  , tastyGoldenRun "lexical scope 2" "test/test_scope2.scm" "test/ans/test_scope2.txt"
  , tastyGoldenRun "issue #23" "test/test_scope3.scm" "test/ans/test_scope3.txt"
+ , tastyGoldenRun "issue #25" "test/test_scope4.scm" "test/ans/test_scope4.txt"
  , tastyGoldenRun "Recursion 1" "test/test_fix.scm" "test/ans/test_fix.txt"
  , tastyGoldenRun "Recursion 2" "test/test_fix2.scm" "test/ans/test_fix2.txt"
  , tastyGoldenRun "Mutual Recursion 2" "test/test_mutual_rec.scm" "test/ans/test_mutual_rec.txt"

test/ans/test_scope4.txt

@@ -0,0 +1 @@
+12

test/test_scope4.scm

@@ -0,0 +1,4 @@
+(begin
+ (define y 42)
+ (define foo (lambda (x) x))
+ (let (y 12) (foo y)))