pike.git/ src/ testsuite.in

2001-11-10

2001-11-10 19:25:56 by Martin Stjernholm <mast@lysator.liu.se>

• 11cbaec3445ec5a47988f010867d98074d7b8daa (24 lines) (+23/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added test for cyclic module ref problem. This worked before the merge
with Hubbes 7.4 branch.

Rev: src/testsuite.in:1.470

1: - test_true([["$Id: testsuite.in,v 1.469 2001/11/09 02:09:14 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.470 2001/11/10 19:25:56 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1084:    return 1;   ]],0);    + test_do([[ +  Stdio.recursive_rm("testsuite_test_dir.pmod"); +  mkdir("testsuite_test_dir.pmod"); +  +  Stdio.write_file("testsuite_test_dir.pmod/module.pmod", +  #" +  .A a(); +  class X {} +  "); +  Stdio.write_file("testsuite_test_dir.pmod/A.pike", +  #" +  .X f() {return 0;} +  "); +  +  compile_string("import \".\"; " +  "int foo() { testsuite_test_dir.a(); }", +  "test"); +  +  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)