pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
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:"",