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.77 2002/12/02 02:09:26 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.78 2002/12/29 22:32:00 nilsson 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:251:    x[p+"_bytes"]/1024);    }    }    });    }       array(string) args=backtrace()[0][3];    array(string) testsuites=({});    args=args[..sizeof(args)-1-argc];    add_constant("RUNPIKE", map(args, Process.sh_quote)*" "); -  mapping test_mapping = ([]); -  add_constant("_TEST", lambda(){ return test_mapping; }); +        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"})}),    ({"fail",Getopt.NO_ARG,({"-f","--fail"})}),
pike.git/bin/test_pike.pike:881: Inside #if 1
     #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("RUNPIKE"); +    #ifdef WATCHDOG_SIGNAL    if(use_watchdog)    {    watchdog->kill(signum("SIGKILL"));    watchdog->wait();    }   #endif      #ifdef WATCHDOG_PIPE    if(use_watchdog)