pike.git/ src/ testsuite.in

2001-12-16

2001-12-16 01:36:12 by Martin Stjernholm <mast@lysator.liu.se>

• 3843f52915c504bb68f05c92f6951b4587865c9e (39 lines) (+38/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added a disabled test case for an inherit case I think ought to work,
but doesn't seem possible to solve with the current approach.

Rev: src/testsuite.in:1.477

1: - test_true([["$Id: testsuite.in,v 1.476 2001/12/15 01:53:10 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.477 2001/12/16 01:36:12 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1176:    Stdio.recursive_rm ("testsuite_test_dir.pmod");   ]]);    + cond(0,[[ + test_do([[ +  // This is a case of cyclic references I think should work, but +  // afaict it's not possible without changing the resolve methods +  // thoroughly. /mast +  Stdio.recursive_rm ("testsuite_test_dir.pmod"); +  mkdir ("testsuite_test_dir.pmod"); +  +  Stdio.write_file ("testsuite_test_dir.pmod/A.pmod", #"\ +  .B.B b() {} +  class A {} +  class Ab {int ai() {return 4711;}} +  class Ad {inherit .B.Bb; int ai() {return bi() + 1;}}"); +  Stdio.write_file ("testsuite_test_dir.pmod/B.pmod", #"\ +  .A.A a() {} +  class B {} +  class Bb {int bi() {return 17;}} +  class Bd {inherit .A.Ab; int bi() {return ai() - 1;}}"); +  +  object orig_master = master(); +  replace_master (object_program (orig_master)()); +  mixed err = catch { +  compile_string (#"\ +  import \".\"; +  int foo() { +  testsuite_test_dir.A.Ad(); +  testsuite_test_dir.B.Bd(); +  }", "test"); +  }; +  replace_master (orig_master); +  if (err) throw (err); +  +  Stdio.recursive_rm ("testsuite_test_dir.pmod"); + ]]); + ]]); +    test_compile_any([[int log() { return 17; } class Greta { int hanna() { return log(); } }]])   test_compile_any([[int kajsa(int a,int b) { return 17; } class Jenny { int kajsa() { return 17; } class Greta { int hanna() { return kajsa(); } } }]])   test_any([[add_constant("kajsa",lambda(int a,int b) { return 17; }); return compile_string("int kajsa() { return 17; } class Greta { int hanna() { return kajsa(); } }")()->kajsa()]],17)