Branch: Tag:

1998-04-09

1998-04-09 21:11:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

testsuite fixed + more tests added

Rev: bin/mktestsuite:1.10
Rev: bin/test_pike.pike:1.10
Rev: lib/master.pike.in:1.4
Rev: src/Makefile.in:1.72
Rev: src/modules/Makefile.in:1.18
Rev: src/testsuite.in:1.86

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.9 1998/04/08 22:05:36 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.10 1998/04/09 21:10:19 hubbe Exp $ */      #include <simulate.h>   
22:    int loop=1;    int end=0x7fffffff;    +  string *args=backtrace()[0][3]; +  args=args[..sizeof(args)-1-argc]; +  add_constant("RUNPIKE",args*" "); +     foreach(Getopt.find_all_options(argv,aggregate(    ({"help",Getopt.NO_ARG,({"-h","--help"})}),    ({"verbose",Getopt.NO_ARG,({"-v","--verbose"})}),
115:       switch(type)    { +  case "COMPILE": +  if(catch(compile_string(test,"Test "+(e+1)))) +  { +  werror("Test "+(e+1)+" failed.\n"); +  werror(test+"\n"); +  errors++; +  }else{ +  successes++; +  } +  break; +     case "COMPILE_ERROR":    master()->set_inhibit_compile_errors(1);    if(catch(compile_string(test,"Test "+(e+1))))