From 34c76c30a228b93ffbe311b66040bad071f50ce9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sat, 11 Apr 1998 02:21:03 +0200
Subject: [PATCH] Added test of __INIT().
Rev: src/testsuite.in:1.89
---
src/testsuite.in | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 30ea496b47..d0ff33f064 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.88 1998/04/10 22:24:22 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.89 1998/04/11 00:21:03 grubba Exp $"]])
test_eq(1e1,10.0)
test_eq(1E1,10.0)
test_eq(1e+1,10.0)
@@ -58,6 +58,16 @@ test_compile_any([[
}
}
]])
+
+// Testing __INIT
+test_any([[
+ class X { int x = 1; };
+ class Y { int y = 2; };
+ class Z { inherit X; inherit Y; int z = 4; };
+ object zz = Z();
+ return zz->x + zz->y + zz->z;
+]], 7)
+
test_any([[
class X {
static string f() { return "p"; }
@@ -1856,7 +1866,7 @@ test_search3($1,($1[..strlen($1)-3]))
test_search3($1,($1[1..]))
]])
-dnl some m4 doesn't handle 8 bit characters...
+dnl some m4's don't handle 8 bit characters...
test_search4("SUNE")
test_search4("kapit\344l>")
test_search4("-------------------+")
--
GitLab