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.74 2002/10/09 02:16:19 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.75 2002/11/14 15:28:58 marcus 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:218:    _exit(1);   #endif // else WATCHDOG   }      //   // Main program   //      int main(int argc, array(string) argv)   { -  int e, verbose, prompt, successes, errors, t, check; +  int e, verbose, prompt, successes, errors, t, check, asmdebug;    int skipped;    array(string) tests;    program testprogram;    int start, fail, mem;    int loop=1;    int end=0x7fffffff;    string extra_info="";    int shift;       if(signum("SIGQUIT")>=0)
pike.git/bin/test_pike.pike:266:    ({"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"})}),    ({"loop",Getopt.HAS_ARG,({"-l","--loop"})}),    ({"trace",Getopt.HAS_ARG,({"-t","--trace"})}),    ({"check",Getopt.MAY_HAVE_ARG,({"-c","--check"})}), + #if constant(_assembler_debug) +  ({"asm",Getopt.MAY_HAVE_ARG,({"--assembler-debug"})}), + #endif    ({"mem",Getopt.NO_ARG,({"-m","--mem","--memory"})}),    ({"auto",Getopt.NO_ARG,({"-a","--auto"})}),    ({"notty",Getopt.NO_ARG,({"-T","--notty"})}),   #ifdef HAVE_DEBUG    ({"debug",Getopt.MAY_HAVE_ARG,({"-d","--debug"})}),   #endif    ({"regression",Getopt.NO_ARG,({"-r","--regression"})}),    )),array opt)    {    switch(opt[0])
pike.git/bin/test_pike.pike:301:    return 0;       case "verbose": verbose+=foo(opt[1]); break;    case "prompt": prompt+=foo(opt[1]); break;    case "start": start=foo(opt[1]); start--; break;    case "end": end=foo(opt[1]); break;    case "fail": fail=1; break;    case "loop": loop=foo(opt[1]); break;    case "trace": t+=foo(opt[1]); break;    case "check": check+=foo(opt[1]); break; +  case "asm": asmdebug+=foo(opt[1]); break;    case "mem": mem=1; break;       case "auto":    testsuites=find_testsuites(".");    break;       case "regression":    add_constant("regression", 1);    break;   
pike.git/bin/test_pike.pike:369:    add_constant("__signal_watchdog",lambda(){});   #endif // else WATCHDOG_PIPE       testsuites += Getopt.get_args(argv, 1)[1..];    if(!sizeof(testsuites))    {    werror("No tests found. Use --help for more information.\n");    exit(1);    }    + #if constant(_assembler_debug) +  if(asmdebug) +  _assembler_debug(asmdebug); + #endif +     while(loop--)    {    successes=errors=0;    testloop:    foreach(testsuites, string testsuite)    {    tests = read_tests( testsuite );       werror("Doing tests in %s (%d tests)\n", testsuite, sizeof(tests));    int qmade, qskipped, qmadep, qskipp;