From 36e93dbc01668eb2899866152704a25cd0a6e1fe Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Tue, 3 Aug 1999 23:31:05 +0200
Subject: [PATCH] Test for a strange variable declaration bug.
Rev: src/testsuite.in:1.184
---
src/testsuite.in | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 1492152e01..ed52da8777 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.183 1999/07/30 23:43:06 mast Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.184 1999/08/03 21:31:05 noring Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -524,6 +524,15 @@ test_eq([[lambda(int x) { return lambda() { return x; };}(4)()]],4)
test_eq([[lambda(int x) { return lambda() { return x; };}(17)()]],17)
test_eq([[lambda(int x) { return lambda() { return lambda() { return x; };};}(17)()()]],17)
+test_eq([[function f;
+ for(int i = 0; i < 2; i++)
+ { {int _i = i; f = lambda(int j) { return _i+j; }; } }
+ return f(17);]],
+ [[function f;
+ for(int i = 0; i < 2; i++)
+ { {int _i = i; f = lambda(int j) { return _i+j; }; } int FEL; }
+ return f(17);]]);
+
test_true([[lambda(function f) {return 1;}(object_program(this_object()));]])
test_eq([[class c { int `()(){ return 4711; } }()(); ]],4711)
teste_eval_error(mixed foo=({}); sort(@foo); )
--
GitLab