From a3ece0827527072456f8fd10d7b9a96eebf030d5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 15 Mar 1999 02:29:35 +0100
Subject: [PATCH] Found a testcase for the __INIT() bug.
Rev: src/testsuite.in:1.159
---
src/testsuite.in | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 26d3b1fdcf..37eb1b06e6 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.158 1999/03/07 01:01:16 hubbe Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.159 1999/03/15 01:29:35 grubba Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -209,6 +209,21 @@ test_any([[
return C()->bar;
]], 12)
+test_any([[
+ class A { int a = 1; };
+ class B { int b = 2; };
+ class C {
+ inherit A;
+ inherit B;
+ int c = 4;
+ };
+ class D {
+ inherit C;
+ };
+ object d = D();
+ return d->a + d->b + d->c;
+]], 7)
+
test_eq([[object_program(master())]],[[(program)"/master"]])
test_compile([[object("master") m = master();]])
test_any([[int x; x++; if(x) return x; return -1;]],1)
--
GitLab