pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2001-09-23
2001-09-23 10:19:33 by Mirar (Pontus Hagland) <pike@sort.mirar.org>
ef0a502706c533236c7485b3f38ddb33595157fb (
48
lines) (+
46
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
added bug
1996 (#1996)
and
[721]
to testsuite
Rev: src/testsuite.in:1.452
1:
-
test_true([["$Id: testsuite.in,v 1.
451
2001/09/
11
05
:
59
:
46
hubbe
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
452
2001/09/
23
10
:
19
:
33
mirar
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
431:
return 1; ]], 1);
+
test_any( [[
+
// bug [1996] ------------------------------------------------------------
+
// http://community/crunch/show_bug.cgi?id=1996
+
class Implementation
+
{
+
int foo() { return 1; }
+
};
+
class Prototype
+
{
+
int foo();
+
int bar() { return foo(); }
+
};
+
class Test
+
{
+
inherit Implementation;
+
inherit Prototype;
+
int test() { return bar(); }
+
};
+
return Test()->test();
+
]], 1 );
+
+
test_any( [[
+
// bug [721] -------------------------------------------------------------
+
// http://community/crunch/show_bug.cgi?id=721
+
int res=0;
+
program p;
+
catch
+
{
+
add_constant("test_a",compile_string("int foo();","test_a"));
+
add_constant("test_b",compile_string("int foo();","test_b"));
+
add_constant("test_c",compile_string(
+
"inherit test_a;\n"
+
"inherit test_b;\n"
+
"final int foo() { return 1; }\n","test_c"));
+
res=compile_string("inherit test_c;\n","test_d")()->foo();
+
};
+
return res;
+
]],1);
+
+
// -----------------------------------------------------------------------
+
+
+
// This test checks for excessive recursion in // destruct_objects_to_destruct, and also that it keeps the destruct // order sane.
1893:
]],1);
-
+
test_any([[mixed s="foo"; return s++;]],"foo") test_any([[mixed s="foo"; s++; return s;]],"foo1") test_any([[mixed s="foo"; return ++s;]],"foo1")
2063:
return o->a; ]], ({1,2}))
+
dnl // Undefined behaviour, don't do this - Hubbe dnl test_any_equal([[ dnl class A {