pike.git/ bin/ test_pike.pike

2002-11-14

2002-11-14 15:28:58 by Marcus Comstedt <marcus@mc.pp.se>

• 1c0c614bbc4096df1876a50634ff74afa922adb6 (14 lines) (+12/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Added --assembler-debug option.

Rev: bin/test_pike.pike:1.75

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;   
225:      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;
273:    ({"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"})}),
308:    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":
376:    exit(1);    }    + #if constant(_assembler_debug) +  if(asmdebug) +  _assembler_debug(asmdebug); + #endif +     while(loop--)    {    successes=errors=0;