pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.52 2000/10/08 18:21:31 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.53 2001/01/01 14:11:27 mirar Exp $ */      import Stdio;      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif
pike.git/bin/test_pike.pike:58:    werror("%3d: %s\n",line++,s);   }      array find_testsuites(string dir)   {    array(string) ret=({});    if(array(string) s=get_dir(dir||"."))    {    foreach(s, string file)    { -  string name=combine_path(dir||"",file); -  if(file_size(name)==-2) -  ret+=find_testsuites(name); -  } -  -  foreach(s, string file) -  { +     switch(file)    {    case "testsuite":    case "module_testsuite":    ret+=({ combine_path(dir||"",file) });    }    } -  +  +  foreach(s, string file) +  { +  string name=combine_path(dir||"",file); +  if(file_size(name)==-2) +  ret+=find_testsuites(name);    } -  +  }    return ret;   }      // 20 minutes should be enough..   #define WATCHDOG_TIMEOUT 60*20      #if constant(thread_create)   #define WATCHDOG   #define WATCHDOG_PIPE   object watchdog_pipe;