From c023e9ecfb4b5a9527356a1ce966b7559f75e750 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 18 Nov 1999 02:13:16 -0800
Subject: [PATCH] test for gc() on stack frames
Rev: src/testsuite.in:1.229
---
src/testsuite.in | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index c1af536249..1a39769b89 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.228 1999/11/18 04:16:13 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.229 1999/11/18 10:13:16 hubbe Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
@@ -1308,6 +1308,12 @@ ifefun(gc,
test_any([[object o=class c {object o;}(); o->o=o; gc(); o=0; return gc() > 0; ]],1);
test_any([[mapping m=([]); m[m]=m; gc(); m=0; return gc() > 0; ]],1);
test_any([[multiset m=(<>); m[m]=1; gc(); m=0; return gc() > 0; ]],1);
+
+ test_any([[gc();
+ int q=lambda() { mixed foo; foo=lambda() { return foo; }; return 1; }();
+ return gc()>0;
+ ]],1)
+
test_any([[mapping q=([ "t":class {} ()]); gc(); if(!objectp(q->t)) return -1; set_weak_flag(q,1); gc(); if(objectp(q->t)) return -2; return 0;]],0);
test_do([[class bar { object foo; void create(void|object tmp) { foo=tmp; } };
--
GitLab