Branch: Tag:

1999-03-06

1999-03-06 06:32:10 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

now continously displays how many tests have been done..

Rev: bin/test_pike.pike:1.21

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.20 1999/03/06 04:13:13 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.21 1999/03/06 06:32:10 hubbe Exp $ */      #include <simulate.h>   
130:       for(e=start;e<sizeof(tests);e++)    { +  werror("%6d\r",e+1); +     string test,condition;    int type;    object o;
170:    if(check > 1) _verify_internals();       shift++; +  shift%=3;    string fname = argv[f] + ": Test " + (e + 1) +    " (shift " + shift + ")";   
228:    if(functionp(o->a)) a=o->a();    if(functionp(o->b)) b=o->b();    if(t) trace(0); -  +     if(check > 1) _verify_internals();    }) {    werror(fname + " failed.\n");
311:       a=b=0;    } +  werror(" \r");    }    if(mem)    {