From e391b75acc3393f162383d9dc8c01af418eeb364 Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Tue, 7 Mar 2000 14:03:00 +0100
Subject: [PATCH] Added case for function in function with recursion.
Rev: src/testsuite.in:1.281
---
src/testsuite.in | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index fbc7d1208e..f4385cb18a 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,5 +1,5 @@
dnl -*- Pike -*-
-test_true([["$Id: testsuite.in,v 1.280 2000/03/03 01:31:13 hubbe Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.281 2000/03/07 13:03:00 noring Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -840,6 +840,13 @@ 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(120,
+ [[ int g()
+ {
+ int f(int i) { return i == 0 ? 1 : i*f(i-1); };
+ return f(5);
+ }; return g(); ]])
+
test_eq([[function f;
for(int i = 0; i < 2; i++)
{ {int _i = i; f = lambda(int j) { return _i+j; }; } }
--
GitLab