From 3ce5b0865aa53e632798fb1bbac2492838ea3734 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 2 Apr 1999 15:25:01 -0800
Subject: [PATCH] more tests :)
Rev: src/testsuite.in:1.165
---
src/testsuite.in | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 9942317528..5ff023d212 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.164 1999/03/30 13:34:17 grubba Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.165 1999/04/02 23:25:01 hubbe Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -1020,6 +1020,15 @@ ifefun(gc,
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([[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; } };
+ object o=bar(),o2=o;
+ for(int e=0;e<10000;e++) o=bar(o);
+ o2->foo=o;
+ o=o2=0;
+ gc();
+ ]])
+
]])
cond([[all_constants()->_verify_internals]],
--
GitLab