pike.git/ src/ testsuite.in

2004-04-16

2004-04-16 16:46:09 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• f9032d219aa0db0d40c4880089ef4f241f58abbd (120 lines) (+17/-103) ^{[ Show | Annotate ]}
  Branch: 7.9

Extracted the module loading test to an external program, to reduce memory usage somewhat.

Rev: src/test_resolve.pike:1.1
Rev: src/testsuite.in:1.713

1: - test_true([["$Id: testsuite.in,v 1.712 2004/04/16 15:44:30 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.713 2004/04/16 16:46:08 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
10131:    test_do(_verify_internals())   ]])    - test_program([[ - int ok=1; -  - void test_resolv(string file, int base_size, object|void handler) - { + test_tests([[ +  Stdio.File p = Stdio.File(); +  object pid = Process.create_process(RUNPIKE_ARRAY + +  ({ "]]SRCDIR[[/test_resolve.pike" }), +  ([ "stdout":p->pipe(Stdio.PROP_IPC) ]));    __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); -  mixed err; -  if(err = catch( (handler||master())->resolv(prg) ) ) { -  werror("test: failed to peek at %O: %s\n", -  prg, describe_error(err)); -  ok=0; +  string results = lower_case(p->read()); +  __signal_watchdog(); +  int err = pid->wait(); +  int ok; +  int failed; +  if ((sscanf(s, "%*sok:%d", ok) != 2) + +  (sscanf(s, "%*sfailed:%d", failed) != 2)) { +  // No "ok", and no "failed". +  return ({ err, s });    } - } -  - 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); -  array(string) files = get_dir(dir); -  // Ensure that .so files are loaded before .pike and .pmod files. -  // Otherwise their loading errors will be hidden. -  sort(reverse(files[*]), files); -  files = reverse(files); -  foreach(files, string s) -  { -  switch(s) -  { - #if !constant(GTK.Window) -  case "GTKSupport.pmod": -  case "PV.pike": -  case "pv.pike": - #endif -  continue; // These modules cannot be tested properly by this test -  } -  string file=combine_path(dir,s); -  mixed stat=file_stat(file); -  if(!stat) continue; -  if(stat[1]==-2 && has_suffix(file, ".pmod")) -  { -  test_resolv(file, base_size, handler); -  test_dir(file, base_size, handler); -  } -  else if(stat[1]>=0){ -  // DEBUG -  if (lower_case(uname()->sysname||"") == "osf1") { -  werror("Testing file %O...\n", file); -  } -  if(has_suffix(file, ".pike") || has_suffix(file, ".pmod") || -  has_suffix(file, ".so")) -  { - #if 0 -  mixed err=catch { (program)file; }; -  if (err) -  { -  werror("test: failed to compile %O\n",file); -  ok=0; -  continue; -  } - #endif -  if (has_suffix(file, ".so")) { -  if (!master()->programs[file]) { -  // Clear any negative cache entry. -  m_delete(master()->programs, file); -  } - #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) */ -  { -  // "XX" pads suffix to 4 characters. -  test_resolv(file+"XX", base_size, handler); -  } -  } else { -  test_resolv(file, base_size, handler); -  } -  } -  } -  } - } - int a() - { -  Array.map(master()->pike_module_path,test_dir); -  // FIXME: Forward compatibility? -  foreach(({"0.6","7.0","7.2","7.4"}),string ver) { -  object handler = master()->get_compilation_handler(@(array(int))(ver/".")); -  Array.map(handler->pike_module_path,test_dir,0,handler); -  } -  return ok; - } +  return ({ ok, failed });   ]])      // - modifiers, compile time type checks