From 96dd6fc36fde7bb6a7805e793b8e47a52cc9d529 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Mon, 12 Jun 2000 15:52:32 +0200
Subject: [PATCH] Another gc test.
Rev: src/testsuite.in:1.301
---
src/testsuite.in | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index d975dda165..07f06450c8 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.300 2000/06/12 03:21:34 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.301 2000/06/12 13:52:32 mast Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -1845,6 +1845,13 @@ ifefun(gc,
gc(); o = 0; return gc() > 0;
}]], 1)
+ test_do([[{
+ object o = class {}();
+ array a = ({o});
+ destruct (o);
+ gc();
+ }]]);
+
test_do([[{
int got_error = 0;
array(string) destruct_order;
--
GitLab