pike.git/ src/ testsuite.in

2003-03-04

2003-03-04 23:33:50 by Martin Stjernholm <mast@lysator.liu.se>

• 569c6c704a3f8488a19de422db5fa0d85c798f83 (26 lines) (+25/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added a test with absolute identifiers referring to the same module that
works in 7.4.10.

Rev: src/testsuite.in:1.614

1: - test_true([["$Id: testsuite.in,v 1.613 2003/03/02 17:01:28 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.614 2003/03/04 23:33:50 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
1676:    return res;   ]], (<>));    + test_do([[ +  Stdio.recursive_rm ("testsuite_test_dir.pmod"); +  mkdir ("testsuite_test_dir.pmod"); +  +  Stdio.write_file ("testsuite_test_dir.pmod/A.pmod", #"\ +  string pof() {return testsuite_test_dir.A.bingo();} +  string bingo () {return \"17\";}"); +  +  object orig_master = master(); +  replace_master (object_program (orig_master)()); +  master()->add_module_path (getcwd()); +  mixed err = catch { +  compile_string (#"\ +  string foo() { +  return testsuite_test_dir.A.pof(); +  }", "test"); +  }; +  replace_master (orig_master); +  if (err) throw (err); +  +  Stdio.recursive_rm ("testsuite_test_dir.pmod"); + ]]) +    cond(0,[[   test_do([[    // This is a case of cyclic references I think should work, but