pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-07-26
2000-07-26 16:56:42 by Martin Nilsson <mani@lysator.liu.se>
4faea60d4acbdcddbb3815ef80f202cc97ac3a30 (
13
lines) (+
8
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Less noise
Rev: bin/test_pike.pike:1.50
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
49
2000/07/
17
14
:
53
:
08
grubba
Exp $ */
+
/* $Id: test_pike.pike,v 1.
50
2000/07/
26
16
:
56
:
42
nilsson
Exp $ */
import Stdio;
125:
int main(int argc, array(string) argv) { int e, verbose, successes, errors, t, check;
-
int skipped;
+
int skipped
, quiet
;
array(string) tests; string tmp; program testprogram;
155:
({"watchdog",Getopt.HAS_ARG,({"--watchdog"})}), ({"help",Getopt.NO_ARG,({"-h","--help"})}), ({"verbose",Getopt.MAY_HAVE_ARG,({"-v","--verbose"})}),
+
({"quiet",Getopt.NO_ARG,({"-q","--quiet"})}),
({"start",Getopt.HAS_ARG,({"-s","--start-test"})}), ({"end",Getopt.HAS_ARG,({"--end-after"})}), ({"fail",Getopt.MAY_HAVE_ARG,({"-f","--fail"})}),
163:
({"check",Getopt.MAY_HAVE_ARG,({"-c","--check"})}), ({"mem",Getopt.MAY_HAVE_ARG,({"-m","--mem","--memory"})}), ({"auto",Getopt.MAY_HAVE_ARG,({"-a","--auto"})}),
-
({"notty",Getopt.NO_ARG,({"-
t
","--notty"})}),
+
({"notty",Getopt.NO_ARG,({"-
T
","--notty"})}),
#ifdef HAVE_DEBUG ({"debug",Getopt.MAY_HAVE_ARG,({"-d","--debug"})}), #endif
256:
return 0; case "verbose": verbose+=foo(opt[1]); break;
+
case "quiet": quiet=1; istty_cache=-1; break;
case "start": start=foo(opt[1]); start--; break; case "end": end=foo(opt[1]); break; case "fail": fail+=foo(opt[1]); break;
406:
{ if(!verbose) werror("%6d\r",e+1);
-
}else{
+
}else if(!quiet) {
/* Use + instead of . so that sendmail and * cron will not cut us off... :( */
665:
if(istty()) { werror(" \r");
-
}else{
+
}else if(!quiet) {
werror("\n"); } }