pike.git/ bin/ test_pike.pike

2002-05-02

2002-05-02 16:00:31 by Martin Nilsson <mani@lysator.liu.se>

• 69807c1af61dfde5cf264f800bef0138c980cd6a (12 lines) (+7/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

Better test numbers.

Rev: bin/test_pike.pike:1.63

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.62 2002/05/02 00:29:29 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.63 2002/05/02 16:00:31 nilsson Exp $ */      import Stdio;   
468:    }    if(skip) continue;    +  int testno;    sscanf(test, "%s\n%s", type, test); -  sscanf(type, "%*s expected result: %s", type); +  sscanf(type, "test %d, expected result: %s", testno, type);       if (prompt) {    if (Stdio.Readline()->    read(sprintf("About to run test: %d. [<RETURN>/'quit']: ", -  e + 1)) == "quit") { +  testno)) == "quit") {    break testloop;    }    }       if(verbose)    { -  werror("Doing test %d (%d total)%s\n",e+1,successes+errors+1,extra_info); +  werror("Doing test %d (%d total)%s\n", testno, successes+errors+1, extra_info);    if(verbose>1) bzot(test);    }       if(check > 1) _verify_internals();       shift++; -  string fname = testsuite + ": Test " + (e + 1) + +  string fname = testsuite + ": Test " + testno +    " (shift " + (shift%3) + ")";       string widener = ([ 0:"",