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.42 2000/03/30 21:11:31 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.43 2000/03/30 21:25:39 grubba 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:115: Inside #if defined(WATCHDOG) and #if defined(WATCHDOG)
  #endif      #ifdef WATCHDOG_SIGNAL    watchdog->kill(signum("SIGQUIT"));   #endif    }   #endif   }   #endif    - int main(int argc, string *argv) + int main(int argc, array(string) argv)   {    int e, verbose, successes, errors, t, check;    int skipped; -  string *tests,tmp; +  array(string) tests; +  string tmp;    program testprogram;    int start, fail, mem;    int loop=1;    int end=0x7fffffff;    string extra_info="";    int shift;      #if constant(signal) && constant(signum)    if(signum("SIGQUIT")>=0)    {    signal(signum("SIGQUIT"),lambda()    {    master()->handle_error( ({"\nSIGQUIT recived, printing backtrace and continuing.\n",backtrace() }) );    });    }   #endif    -  string *args=backtrace()[0][3]; +  array(string) args=backtrace()[0][3];    array(string) testsuites=({});    args=args[..sizeof(args)-1-argc];    add_constant("RUNPIKE",Array.map(args,Process.sh_quote)*" ");       foreach(Getopt.find_all_options(argv,aggregate(    ({"no-watchdog",Getopt.NO_ARG,({"--no-watchdog"})}),    ({"watchdog",Getopt.HAS_ARG,({"--watchdog"})}),    ({"help",Getopt.NO_ARG,({"-h","--help"})}),    ({"verbose",Getopt.NO_ARG,({"-v","--verbose"})}),    ({"start",Getopt.HAS_ARG,({"-s","--start-test"})}),