From c0988f63f89ee5682ae7187be1533de5fb5a226c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 17 Apr 1998 10:14:47 -0700
Subject: [PATCH] more tests added
Rev: src/testsuite.in:1.93
---
src/testsuite.in | 30 +++++++++++++++++++++++++++++-
1 file changed, 29 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 407627318c..9106def462 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,8 @@
-test_true([["$Id: testsuite.in,v 1.92 1998/04/16 01:24:10 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.93 1998/04/17 17:14:47 hubbe Exp $"]])
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
test_eq(1e1,10.0)
test_eq(1E1,10.0)
test_eq(1e+1,10.0)
@@ -244,6 +248,11 @@ cond([[all_constants()->localtime]],
test_true(mappingp(localtime(0)))
]])
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
+
// sort
test_equal(sort(({1,3,2,4})),({1,2,3,4}))
test_equal(sort(({4,3,2,1})),({1,2,3,4}))
@@ -475,6 +484,10 @@ ifefun(gc,
test_any([[multiset m=(<>); m[m]=1; gc(); m=0; return gc() > 0; ]],1);
]])
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
test_eq("\377"[0],255)
test_do(add_constant("foo",clone(class c {int i;})))
@@ -1127,6 +1140,11 @@ test_switch4(this_object(),"",0,4.0,1)
test_any(int e;string t=""; for(e=0;e<10;e++) switch(e) { default: t+=e; case 4..8: } return t,"01239")
test_any([[float e,q; q=0.0; for(e=0.1;e<10.0;e+=1.0) switch(e) { default: q+=e; case 4.0..8.0: } return q]],0.1+1.1+2.1+3.1+8.1+9.1)
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
+
// testing preprocessor
test_any(int e; object o=clone(Stdio.File); if(!o->open("conftest.h","wct")) return -1; e=o->write("return 17;\n"); if(!o->close()) return -1; return e,11)
test_any([[
@@ -1751,6 +1769,11 @@ test_equal(({"",}),""/"hej")
// - fork()
// FIXME: add tests for fork
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
+
// - function_name
test_eq(function_name(a),"a")
test_eq(function_name(function_name),0)
@@ -2025,3 +2048,8 @@ test_equal(Array.everynth("0123456789"/"",3),
test_equal(Array.everynth("0123456789"/"",3,4),
({ "4", "7"}))
+cond([[_verify_internals]],
+[[
+ test_do(_verify_internals())
+]])
+
--
GitLab