From da26fe234047b930a2f03c3fe4b805394e90fce6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Thu, 9 Mar 2000 16:55:32 +0100
Subject: [PATCH] Added a few tests of this_program.
Rev: src/testsuite.in:1.283
---
src/testsuite.in | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index e87aebb413..3828a4ba5f 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,5 +1,5 @@
dnl -*- Pike -*-
-test_true([["$Id: testsuite.in,v 1.282 2000/03/07 21:22:54 hubbe Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.283 2000/03/09 15:55:32 grubba Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -217,6 +217,13 @@ int main()
}
]])
+dnl
+dnl this_program
+dnl
+test_true(this_program)
+test_any([[int this_program; return this_program;]], 0)
+test_true(class A { int a() { return this_program == A; }}; return A()->a();)
+
dnl test_compile_error(0())
test_compile_error(1())
test_compile_error(""())
--
GitLab