pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1: - test_true([["$Id: testsuite.in,v 1.682 2003/09/30 18:03:10 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.683 2003/10/04 18:21:51 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])   test_compile_any([[#pike 7.4]])   test_compile_any([[#pike 7.0]])   test_compile_any([[#pike 0.6]])      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
pike.git/src/testsuite.in:9790:   int ok=1;      void test_resolv(string file, int base_size, object|void handler)   {    __signal_watchdog();    string prg = replace( file[base_size+1..sizeof(file)-6],    ([ "/":".", ".pmod":""]) );    if(prg[sizeof(prg)-7..]==".module")    prg = prg[..sizeof(prg)-8];    // werror("Resolving %O...\n", prg); -  if( catch( (handler||master())->resolv(prg) ) ) { -  werror("test: failed to peek at %O\n", prg); +  mixed err; +  if(err = catch( (handler||master())->resolv(prg) ) ) { +  werror("test: failed to peek at %O: %s\n", +  prg, describe_error(err));    ok=0;    }   }      void test_dir(string dir, int|void base_size, object|void handler)   {    if (!Stdio.is_dir (dir)) return;    // werror("Testing directory %O...\n", dir);    if(!base_size) base_size=sizeof(dir);    foreach(get_dir(dir), string s)
pike.git/src/testsuite.in:9834:    {   #if 0    mixed err=catch { (program)file; };    if (err)    {    werror("test: failed to compile %O\n",file);    ok=0;    continue;    }   #endif -  test_resolv(file+(has_suffix(file, ".so")? "XX":""), -  base_size, handler); +  if (has_suffix(file, ".so")) { + #if constant(load_module) +  // Load .so files by hand to make sure +  // loading errors aren't hidden. +  mixed err; +  if (err = catch{ +  program ret = load_module(file); +  master()->programs[file] = ret; +  }) { +  werror("test: failed to load %O: %s\n", +  file, describe_error(err)); +  ok=0; +  } else + #endif /* constant(load_module) */ +  { +  test_resolv(file+"XX", base_size, handler);    } -  +  } else { +  test_resolv(file, base_size, handler);    }    }    } -  +  } + }   int a()   {    Array.map(master()->pike_module_path,test_dir);    foreach(({"0.6","7.0","7.2"}),string ver) {    object handler = master()->get_compilation_handler(@(array(int))(ver/"."));    Array.map(handler->pike_module_path,test_dir,0,handler);    }    return ok;   }   ]])