From 7e17ed3617ae03ada150d0aba0b191d6730054f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 6 Aug 1996 14:08:39 +0200
Subject: [PATCH] tests for call_out added
Rev: src/test/create_testsuite:1.23
---
src/test/create_testsuite | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/test/create_testsuite b/src/test/create_testsuite
index fa8c8d89f5..242422d770 100755
--- a/src/test/create_testsuite
+++ b/src/test/create_testsuite
@@ -1965,7 +1965,10 @@ test_eq(zero_type(([])[7]),1)
// - call_out, call_out_info, remove_call_out, find_call_out
test_do(call_out(a,100000))
-test_do(call_out(lambda() {},1000.0))
+test_true(call_out(lambda() {},1000.0))
+test_true(remove_call_out(call_out(lambda() {},1000.0)) != -1)
+test_true(find_call_out(call_out(lambda() {},1000.0)) > 990)
+test_false(zero_type(remove_call_out(call_out(lambda() {},1000.0))))
test_true(arrayp(call_out_info()))
test_true(sizeof(call_out_info()) > 0)
test_true(call_out_info()[-1][0] > 1)
--
GitLab