From e4b8713fc713ce82d56c4f13f969a8f29400df48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 3 Sep 1997 00:17:00 +0200
Subject: [PATCH] Restored next_object test.
Rev: src/testsuite.in:1.49
---
src/testsuite.in | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index f7b987e4bd..7f38e9fb14 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.48 1997/09/02 22:16:13 grubba Exp $"]])
+test_true([["$Id: testsuite.in,v 1.49 1997/09/02 22:17:00 grubba Exp $"]])
test_eq(1e1,10.0)
test_eq(1E1,10.0)
test_eq(1e+1,10.0)
@@ -1567,7 +1567,7 @@ test_equal(lower_case("Foo1234-*~\n"),"foo1234-*~\n")
// - next_object
test_true(objectp(next_object()))
-test_any(gc();int e;object o=next_object(); for(e=0;e<2000 && o;e++) o=next_object(o); return o,0)
+test_any(int e;object o=next_object(); for(e=0;e<1000 && o;e++) o=next_object(o); return o,0)
// - object_program
test_true(programp(object_program(this_object())))
--
GitLab