From a0de788f4744eebf41f6cca1952cb6cd9933adf2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 27 Feb 1997 04:18:34 -0800
Subject: [PATCH] updated thread tests for new module system
Rev: src/testsuite.in:1.26
---
src/testsuite.in | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 811d48315a..a4d8230bb3 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.25 1997/02/27 10:12:02 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.26 1997/02/27 12:18:34 hubbe Exp $"]])
teste_eval_error(mixed foo=({}); sort(@foo); )
test_compile_error([[int foo() { return 1} ; constant foo=(["foo":foo]); return foo->foo();]])
test_eval_error(mixed *foo=({}); return mkmapping(foo,({1})); )
@@ -123,7 +123,7 @@ cond([[all_constants()->thread_create]],
// /precompiled/mutex
test_true(Thread.Mutex())
- test_do(add_constant("_tmp_mutex",Builtin.Mutex()))
+ test_do(add_constant("_tmp_mutex",Thread.Mutex()))
test_true(_tmp_mutex->lock())
test_true(_tmp_mutex->lock())
test_true(_tmp_mutex->trylock())
@@ -137,6 +137,9 @@ cond([[all_constants()->thread_create]],
test_true(objectp(clone(Thread.Fifo)))
test_true(objectp(clone(Thread.Queue)))
+
+ test_any([[object o=Thread.Fifo(); thread_create(lambda(object f) { for(e=0;e<10000;e++) f->write(random(4711)); f->write(-1); },o); int tmp=0; while(o->read() != -1) tmp++; return tmp;]],10000)
+ test_any([[object o=Thread.Queue(); thread_create(lambda(object f) { for(e=0;e<10000;e++) f->write(random(4711)); f->write(-1); },o); int tmp=0; while(o->read() != -1) tmp++; return tmp;]],10000)
]])
--
GitLab