Branch: Tag:

1999-03-06

1999-03-06 04:13:13 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Somewhat more paranoid.

Rev: bin/test_pike.pike:1.20

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.19 1999/03/01 05:32:08 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.20 1999/03/06 04:13:13 grubba Exp $ */      #include <simulate.h>   
217:    break;       default: +  mixed err; +  if (err = catch{    o=clone(compile_string(test + widener,fname));       if(check > 1) _verify_internals();
228:    if(t) trace(0);       if(check > 1) _verify_internals(); +  }) { +  werror(fname + " failed.\n"); +  werror(test + "\n"); +  if (arrayp(err) && sizeof(err) && stringp(err[0])) { +  werror("Error: " + err[0]); +  } +  errors++; +  break; +  }       switch(type)    {