pike.git/ src/ testsuite.in

2001-12-12

2001-12-12 21:14:04 by Martin Stjernholm <mast@lysator.liu.se>

• 1184fafe3eace36f7ae7af8eb8c68a382d7edbfa (31 lines) (+21/-10) ^{[ Show | Annotate ]}
  Branch: 7.9

Isolated the tests that makes temporary modules from each other.

Rev: src/testsuite.in:1.475

1: - test_true([["$Id: testsuite.in,v 1.474 2001/12/10 02:11:11 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.475 2001/12/12 21:14:04 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1044:    //_optimizer_debug(2);    //_assembler_debug(20);    +  object orig_master = master(); +  replace_master(object_program(orig_master)());    catch {    compile_string("import \".\";\n"    "int foo() { testsuite_test.efoo; }\n",    "testsuite_test", handler());    }; -  +  replace_master(orig_master);    return 0;   ]],0);      test_any([[   // infokom:350113 -  rm("testsuite_test_dir.pmod"); +  Stdio.recursive_rm("testsuite_test_dir.pmod");    mkdir("testsuite_test_dir.pmod");    Stdio.write_file("testsuite_test_dir.pmod/module.pmod",    #"
1073:    void compile_warning(string file, int line, string err) { }    };    +  object orig_master = master(); +  replace_master(object_program(orig_master)());    master()->set_inhibit_compile_errors(handler());    mixed err = catch {    compile_string("import \".\"; "
1080:    "test",handler());    };    master()->set_inhibit_compile_errors(0); +  replace_master(orig_master);    if(err)    { -  rm("testsuite_test_dir.pmod/module.pmod"); -  rm("testsuite_test_dir.pmod/A.pike"); -  rm("testsuite_test_dir.pmod"); +  Stdio.recursive_rm("testsuite_test_dir.pmod");    return 0;    }   
1105:    .X f() {return 0;}    ");    +  object orig_master = master(); +  replace_master(object_program(orig_master)()); +  mixed err = catch {    compile_string("import \".\"; "    "int foo() { testsuite_test_dir.A(); }",    "test"); -  +  }; +  replace_master(orig_master); +  if (err) throw (err);       Stdio.recursive_rm("testsuite_test_dir.pmod");   ]]);