pike.git/ src/ testsuite.in

1998-11-09

1998-11-09 07:23:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• d0cd2f2df02ed02955854eee0cea680f21aecc2c (20 lines) (+19/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

fixed a bug in parent locating

Rev: src/interpret.c:1.97
Rev: src/program.c:1.103
Rev: src/testsuite.in:1.133

1: - stest_true([["$Id: testsuite.in,v 1.132 1998/11/07 07:40:11 hubbe Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.133 1998/11/09 07:23:18 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
25:   test_true([[stringp(#string "Makefile")]])   test_any([[class Bar { array(int) foo = ({}); }; class Foo { inherit Bar; array(int) foo = ({1}); }; return sizeof(Foo()->foo);]],1)    + test_any([[return class Z { + string bonk() { return "oiff"; } +  + class A + { +  string bonk_me() { return bonk(); } + } +  + class B { inherit A; } +  + class C + { +  string oiff() { return "bonk"; } +  class D { inherit B; } + } + }()->C()->D()->bonk_me()]],"oiff") +    test_false([[object_variablep(class X { int y; int z() { return 1; }}(),"foo")]])   test_false([[object_variablep(class X { int y; int z() { return 1; }}(),"z")]])   test_true([[object_variablep(class X { int y; int z() { return 1; }}(),"y")]])