Branch: Tag:

1999-05-12

1999-05-12 04:38:05 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

better error reporting (for some errors)

Rev: bin/test_pike.pike:1.24

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.23 1999/04/08 22:19:01 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.24 1999/05/12 04:38:05 hubbe Exp $ */      import Stdio;   
242:    if(check > 1) _verify_internals();    }) {    werror(fname + " failed.\n"); -  werror(test + "\n"); +  bzot(test);    if (arrayp(err) && sizeof(err) && stringp(err[0])) {    werror("Error: " + err[0]);    } -  +  if (objectp(err)) { +  werror("Error: " + err[0]); +  }    errors++;    break;    }