Branch: Tag:

2000-04-05

2000-04-05 20:33:16 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Now survives the cond tests not compiling/throwing errors.

Rev: bin/test_pike.pike:1.46

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.45 2000/04/01 02:08:38 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.46 2000/04/05 20:33:16 grubba Exp $ */      import Stdio;   
367:    int tmp;    if(!(tmp=cond_cache[condition]))    { -  tmp=!!(clone(compile_string("mixed c() { return "+condition+"; }","Cond "+(e+1)))->c()); +  mixed err; +  if (err = catch { +  tmp=!!(compile_string("mixed c() { return "+condition+"; }", +  "Cond "+(e+1))()->c()); +  }) { +  werror(sprintf("\nConditional %d failed:\n" +  "%s\n", +  e+1, describe_backtrace(err))); +  errors++; +  tmp = -1; +  }    if(!tmp) tmp=-1;    cond_cache[condition]=tmp;    }