From d9e9bda404125415b5a175a074285d04cfd99f07 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 5 Dec 1996 13:38:23 -0800
Subject: [PATCH] more tests for gc() added
Rev: src/testsuite.in:1.13
---
src/testsuite.in | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index b2cb49479b..8134bd083a 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -4,7 +4,7 @@ test_true(arrayp( _next(({})) || _prev(({}))))
test_any(object o=this_object(); while(o=_next(o)));
test_any(object o=this_object(); while(o=_prev(o)));
-test_true([["$Id: testsuite.in,v 1.12 1996/12/05 04:49:38 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.13 1996/12/05 21:38:23 hubbe Exp $"]])
test_any([[object(File) o=File(); return objectp(o);]],1)
test_any([[object o=Regexp("foo"); return objectp(o);]],1)
test_any([[object o=Regexp("foo"); return object_program(o);]],Regexp)
@@ -284,7 +284,11 @@ test_equal([[column(({({1,2,3}),({5,6,7}),({8,9,0})}),2)]],[[({3,7,0})]])
ifefun(gc,
[[
test_true(intp(gc()));
- test_any([[ gc(); array a=({0}); a[0]=a; a=0; return gc() > 0; ]],1);
+ test_any([[ array a=({0}); a[0]=a; gc(); a=0; return gc() > 0; ]],1);
+ test_any([[object o=class {object o;}(); o->o=o; gc(); o=0; return gc() > 0; ]],1);
+ test_any([[object o=class {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);
]])
--
GitLab