diff --git a/src/testsuite.in b/src/testsuite.in
index e87aebb413c8f68cbc9095f8ee16d3ff4a9e5881..3828a4ba5fc6b05bfdbbef79501bcda3f13bc2d5 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(""())