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.82 2003/03/29 17:58:55 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.83 2003/05/17 13:33:15 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:250:    x["num_"+p+"s"],    x[p+"_bytes"]/1024);    }    }    });    }       array(string) args=backtrace()[0][3];    array(string) testsuites=({});    args=args[..sizeof(args)-1-argc]; +  add_constant("RUNPIKE_ARRAY", args);    add_constant("RUNPIKE", 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.MAY_HAVE_ARG,({"-v","--verbose"})}),    ({"prompt",Getopt.NO_ARG,({"-p","--prompt"})}),    ({"start",Getopt.HAS_ARG,({"-s","--start-test"})}),    ({"end",Getopt.HAS_ARG,({"-e","--end-after"})}),
pike.git/bin/test_pike.pike:881: Inside #if 1
   if(verbose && sizeof(all_constants())!=sizeof(const_names)) {    multiset const_names = (multiset)const_names;    foreach(indices(all_constants()), string const)    if( !const_names[const] )    werror("Leaked constant %O\n", const);    }   #endif       add_constant("regression");    add_constant("_verbose"); -  add_constant("_signal_watchdog"); +  add_constant("__signal_watchdog");    add_constant("RUNPIKE");      #ifdef WATCHDOG_SIGNAL    if(use_watchdog)    {    watchdog->kill(signum("SIGKILL"));    watchdog->wait();    }   #endif