diff options
Diffstat (limited to 't/cmd')
| -rwxr-xr-x[-rw-r--r--] | t/cmd/elsif.t | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | t/cmd/for.t | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | t/cmd/mod.t | 4 | ||||
| -rwxr-xr-x[-rw-r--r--] | t/cmd/subval.t | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | t/cmd/switch.t | 4 | ||||
| -rwxr-xr-x[-rw-r--r--] | t/cmd/while.t | 2 |
6 files changed, 8 insertions, 8 deletions
diff --git a/t/cmd/elsif.t b/t/cmd/elsif.t index 975acef4f7..e42fa61137 100644..100755 --- a/t/cmd/elsif.t +++ b/t/cmd/elsif.t @@ -1,6 +1,6 @@ #!./perl -# $Header: elsif.t,v 4.0 91/03/20 01:49:21 lwall Locked $ +# $RCSfile: elsif.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:08 $ sub foo { if ($_[0] == 1) { diff --git a/t/cmd/for.t b/t/cmd/for.t index 16745b5b28..e45f05040b 100644..100755 --- a/t/cmd/for.t +++ b/t/cmd/for.t @@ -1,6 +1,6 @@ #!./perl -# $Header: for.t,v 4.0 91/03/20 01:49:26 lwall Locked $ +# $RCSfile: for.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:09 $ print "1..7\n"; diff --git a/t/cmd/mod.t b/t/cmd/mod.t index 787aade307..e1327edf6c 100644..100755 --- a/t/cmd/mod.t +++ b/t/cmd/mod.t @@ -1,6 +1,6 @@ #!./perl -# $Header: mod.t,v 4.0 91/03/20 01:49:33 lwall Locked $ +# $RCSfile: mod.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:11 $ print "1..7\n"; @@ -20,7 +20,7 @@ do {$x[$x] = $x;} while ($x++) < 10; if (join(' ',@x) eq '0 1 2 3 4 5 6 7 8 9 10') { print "ok 5\n"; } else { - print "not ok 5\n"; + print "not ok 5 @x\n"; } $x = 15; diff --git a/t/cmd/subval.t b/t/cmd/subval.t index 505025f7f4..90345f2c65 100644..100755 --- a/t/cmd/subval.t +++ b/t/cmd/subval.t @@ -1,6 +1,6 @@ #!./perl -# $RCSfile: subval.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:42:31 $ +# $RCSfile: subval.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:13 $ sub foo1 { 'true1'; diff --git a/t/cmd/switch.t b/t/cmd/switch.t index 2af2c9e971..faa5de470f 100644..100755 --- a/t/cmd/switch.t +++ b/t/cmd/switch.t @@ -1,6 +1,6 @@ #!./perl -# $Header: switch.t,v 4.0 91/03/20 01:49:44 lwall Locked $ +# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $ print "1..18\n"; @@ -40,7 +40,7 @@ sub foo2 { return $_; } -print do foo2(0) == 20 ? "ok 7\n" : "not ok 1\n"; +print do foo2(0) == 20 ? "ok 7\n" : "not ok 7\n"; print do foo2(1) == 1 ? "ok 8\n" : "not ok 8\n"; print do foo2(2) == 2 ? "ok 9\n" : "not ok 9\n"; print do foo2(3) == 3 ? "ok 10\n" : "not ok 10\n"; diff --git a/t/cmd/while.t b/t/cmd/while.t index 9876095c1c..f42174eeca 100644..100755 --- a/t/cmd/while.t +++ b/t/cmd/while.t @@ -1,6 +1,6 @@ #!./perl -# $Header: while.t,v 4.0 91/03/20 01:49:51 lwall Locked $ +# $RCSfile: while.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:15 $ print "1..10\n"; |