From 3d2fec7f7da0f4a3d41a8d4801a20c1ae1a6eea8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 12 Feb 1997 18:12:32 -0800
Subject: [PATCH] tests fixed for new module system
Rev: src/testsuite.in:1.20
---
src/testsuite.in | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 9d53659db6..58947cc277 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -40,7 +40,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.19 1997/02/12 05:33:50 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.20 1997/02/13 02:12:32 hubbe Exp $"]])
test_any([[object(Stdio.File) o=Stdio.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)
@@ -129,12 +129,8 @@ cond([[all_constants()->thread_create]],
test_do(Builtin.condition()->broadcast())
// /precompiled/fifo
-test_any([[
-#include <fifo.h>
-return 0;
-]],0)
- test_true(objectp(clone(Fifo)))
- test_true(objectp(clone(Queue)))
+ test_true(objectp(clone(Fifo.Fifo)))
+ test_true(objectp(clone(Fifo.Queue)))
]])
--
GitLab