From a83f8c8f12cadcd3f7140c6a7fd3bb059cdfc2fb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net> Date: Fri, 20 Mar 1998 14:38:42 -0800 Subject: [PATCH] some more tests added Rev: src/testsuite.in:1.78 --- src/testsuite.in | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/testsuite.in b/src/testsuite.in index 2c02733017..045dfcacab 100644 --- a/src/testsuite.in +++ b/src/testsuite.in @@ -1,4 +1,4 @@ -test_true([["$Id: testsuite.in,v 1.77 1998/03/13 21:44:26 grubba Exp $"]]) +test_true([["$Id: testsuite.in,v 1.78 1998/03/20 22:38:42 hubbe Exp $"]]) test_eq(1e1,10.0) test_eq(1E1,10.0) test_eq(1e+1,10.0) @@ -6,6 +6,12 @@ test_eq(1.1e1,11.0) test_eq(1e-1,0.1) test_eq('\x20',32) test_eq("\x20","\040") +test_true([[1.0e-40]]) +test_eq([[#"foo +bar"]],[["foo\nbar"]]) +test_true([[stringp(#string "Makefile")]]) +test_any([[object(Stdio.File) f; f=Stdio.File(); return 1]],1) +test_compile([[class { object(Stdio.FILE) f; void create() { f=Stdio.FILE(); }}]]) test_eq([[compile_string("#define A(X) (X)\nint x() { return A \n\t(1); }")()->x()]],1) test_any([[class G { mapping t=([]); class tO { void init(string name) { t[name]=this_object(); }} -- GitLab