pike.git/ bin/ test_pike.pike

1998-04-06

1998-04-06 03:19:37 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 00738202b7e5afcb876a6b82d2df1b1c79da110d (13 lines) (+8/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

new option --end-after

Rev: bin/test_pike.pike:1.8

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.7 1998/03/20 22:29:39 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.8 1998/04/06 03:19:37 hubbe Exp $ */      #include <simulate.h>   
20:    program testprogram;    int start, fail, mem;    int loop=1; +  int end=0x7fffffff;       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"})}),
40:       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;
208:    if(fail && errors)    exit(1);    +  if(!--end) exit(0); +     a=b=0;    }   
241:    werror("Failed tests: "+errors+".\n");    }    -  if(verbose) -  { +     werror("Total tests: %d\n",successes+errors); -  } +        return errors;   }