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.15 2000/03/09 09:07:15 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.16 2001/04/06 14:13:19 grubba Exp $ */      #include <simulate.h>   import Stdio;      #if !efun(_verify_internals)   #define _verify_internals()   #endif      int foo(string opt)   {
pike.git/bin/test_pike.pike:33:    foreach(Getopt.find_all_options(argv,aggregate(    ({"help",Getopt.NO_ARG,({"-h","--help"})}),    ({"verbose",Getopt.NO_ARG,({"-v","--verbose"})}),    ({"start",Getopt.HAS_ARG,({"-s","--start-test"})}),    ({"end",Getopt.HAS_ARG,({"--end-after"})}),    ({"fail",Getopt.MAY_HAVE_ARG,({"-f","--fail"})}),    ({"loop",Getopt.MAY_HAVE_ARG,({"-l","--loop"})}),    ({"trace",Getopt.MAY_HAVE_ARG,({"-t","--trace"})}),    ({"check",Getopt.MAY_HAVE_ARG,({"-c","--check"})}),    ({"mem",Getopt.MAY_HAVE_ARG,({"-m","--mem","--memory"})}), +  ({"compiler",Getopt.NO_ARG,({"-dc","--debug-compiler"})}),    )),array opt)    {    switch(opt[0])    {    case "help": -  werror("Usage: "+argv[e]+" [-v | --verbose] [-h | --help] [-t <testno>] <testfile>\n"); +  werror("Usage: "+argv[e]+" [-v | --verbose] [-h | --help] [-t <testno>] [-dc | --debug-compiler] <testfile>\n");    return 0;       case "verbose": verbose+=foo(opt[1]); break;    case "start": start=foo(opt[1]); start--; break;    case "end": end=foo(opt[1]); break;    case "fail": fail+=foo(opt[1]); break;    case "loop": loop+=foo(opt[1]); break;    case "trace": t+=foo(opt[1]); break;    case "check": check+=foo(opt[1]); break;    case "mem": mem+=foo(opt[1]); break; -  + #if constant(_compiler_trace) +  case "compiler": _compiler_trace(1); break; + #endif /* constant(_compiler_trace) */    }    }       argv=Getopt.get_args(argv,1);    if(sizeof(argv)<1)    {    if(!tmp)    {    werror("No tests?\n");    exit(1);