diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/TEST | 17 | ||||
| -rw-r--r-- | t/base/cond.t (renamed from t/base.cond) | 2 | ||||
| -rw-r--r-- | t/base/if.t (renamed from t/base.if) | 2 | ||||
| -rw-r--r-- | t/base/lex.t (renamed from t/base.lex) | 2 | ||||
| -rw-r--r-- | t/base/pat.t (renamed from t/base.pat) | 2 | ||||
| -rw-r--r-- | t/base/term.t (renamed from t/base.term) | 2 | ||||
| -rw-r--r-- | t/cmd/elsif.t (renamed from t/cmd.elsif) | 2 | ||||
| -rw-r--r-- | t/cmd/for.t (renamed from t/cmd.for) | 2 | ||||
| -rw-r--r-- | t/cmd/mod.t (renamed from t/cmd.mod) | 2 | ||||
| -rw-r--r-- | t/cmd/subval.t (renamed from t/cmd.subval) | 2 | ||||
| -rw-r--r-- | t/cmd/switch.t (renamed from t/cmd.switch) | 2 | ||||
| -rw-r--r-- | t/cmd/while.t (renamed from t/cmd.while) | 2 | ||||
| -rw-r--r-- | t/comp/cmdopt.t (renamed from t/comp.cmdopt) | 2 | ||||
| -rw-r--r-- | t/comp/cpp.t (renamed from t/comp.cpp) | 2 | ||||
| -rw-r--r-- | t/comp/decl.t (renamed from t/comp.decl) | 2 | ||||
| -rw-r--r-- | t/comp/multiline.t (renamed from t/comp.multiline) | 2 | ||||
| -rw-r--r-- | t/comp/package.t (renamed from t/comp.package) | 0 | ||||
| -rw-r--r-- | t/comp/script.t (renamed from t/comp.script) | 2 | ||||
| -rw-r--r-- | t/comp/term.t (renamed from t/comp.term) | 2 | ||||
| -rw-r--r-- | t/io/argv.t (renamed from t/io.argv) | 2 | ||||
| -rw-r--r-- | t/io/dup.t (renamed from t/io.dup) | 2 | ||||
| -rw-r--r-- | t/io/fs.t (renamed from t/io.fs) | 2 | ||||
| -rw-r--r-- | t/io/inplace.t (renamed from t/io.inplace) | 6 | ||||
| -rw-r--r-- | t/io/pipe.t (renamed from t/io.pipe) | 2 | ||||
| -rw-r--r-- | t/io/print.t (renamed from t/io.print) | 2 | ||||
| -rw-r--r-- | t/io/tell.t (renamed from t/io.tell) | 2 | ||||
| -rw-r--r-- | t/lib/big.t (renamed from t/lib.big) | 0 | ||||
| -rw-r--r-- | t/op.subst | 165 | ||||
| -rw-r--r-- | t/op/append.t (renamed from t/op.append) | 2 | ||||
| -rw-r--r-- | t/op/array.t (renamed from t/op.array) | 2 | ||||
| -rw-r--r-- | t/op/auto.t (renamed from t/op.auto) | 2 | ||||
| -rw-r--r-- | t/op/chop.t (renamed from t/op.chop) | 2 | ||||
| -rw-r--r-- | t/op/cond.t (renamed from t/op.cond) | 2 | ||||
| -rw-r--r-- | t/op/dbm.t (renamed from t/op.dbm) | 12 | ||||
| -rw-r--r-- | t/op/delete.t (renamed from t/op.delete) | 2 | ||||
| -rw-r--r-- | t/op/do.t (renamed from t/op.do) | 2 | ||||
| -rw-r--r-- | t/op/each.t (renamed from t/op.each) | 2 | ||||
| -rw-r--r-- | t/op/eval.t (renamed from t/op.eval) | 2 | ||||
| -rw-r--r-- | t/op/exec.t (renamed from t/op.exec) | 2 | ||||
| -rw-r--r-- | t/op/exp.t (renamed from t/op.exp) | 2 | ||||
| -rw-r--r-- | t/op/flip.t (renamed from t/op.flip) | 2 | ||||
| -rw-r--r-- | t/op/fork.t (renamed from t/op.fork) | 2 | ||||
| -rw-r--r-- | t/op/glob.t (renamed from t/op.glob) | 8 | ||||
| -rw-r--r-- | t/op/goto.t (renamed from t/op.goto) | 2 | ||||
| -rw-r--r-- | t/op/groups.t | 18 | ||||
| -rw-r--r-- | t/op/index.t (renamed from t/op.index) | 2 | ||||
| -rw-r--r-- | t/op/int.t (renamed from t/op.int) | 2 | ||||
| -rw-r--r-- | t/op/join.t (renamed from t/op.join) | 2 | ||||
| -rw-r--r-- | t/op/list.t (renamed from t/op.list) | 2 | ||||
| -rw-r--r-- | t/op/local.t (renamed from t/op.local) | 2 | ||||
| -rw-r--r-- | t/op/magic.t (renamed from t/op.magic) | 2 | ||||
| -rw-r--r-- | t/op/mkdir.t (renamed from t/op.mkdir) | 2 | ||||
| -rw-r--r-- | t/op/oct.t (renamed from t/op.oct) | 2 | ||||
| -rw-r--r-- | t/op/ord.t (renamed from t/op.ord) | 2 | ||||
| -rw-r--r-- | t/op/pack.t (renamed from t/op.pack) | 2 | ||||
| -rw-r--r-- | t/op/pat.t (renamed from t/op.pat) | 2 | ||||
| -rw-r--r-- | t/op/push.t (renamed from t/op.push) | 2 | ||||
| -rw-r--r-- | t/op/range.t (renamed from t/op.range) | 2 | ||||
| -rw-r--r-- | t/op/re_tests (renamed from t/re_tests) | 5 | ||||
| -rw-r--r-- | t/op/read.t (renamed from t/op.read) | 4 | ||||
| -rw-r--r-- | t/op/regexp.t (renamed from t/op.regexp) | 8 | ||||
| -rw-r--r-- | t/op/repeat.t (renamed from t/op.repeat) | 14 | ||||
| -rw-r--r-- | t/op/s.t (renamed from t/op.s) | 2 | ||||
| -rw-r--r-- | t/op/sleep.t (renamed from t/op.sleep) | 2 | ||||
| -rw-r--r-- | t/op/sort.t (renamed from t/op.sort) | 2 | ||||
| -rw-r--r-- | t/op/split.t (renamed from t/op.split) | 2 | ||||
| -rw-r--r-- | t/op/sprintf.t (renamed from t/op.sprintf) | 2 | ||||
| -rw-r--r-- | t/op/stat.t (renamed from t/op.stat) | 17 | ||||
| -rw-r--r-- | t/op/study.t (renamed from t/op.study) | 2 | ||||
| -rw-r--r-- | t/op/substr.t (renamed from t/op.substr) | 2 | ||||
| -rw-r--r-- | t/op/time.t (renamed from t/op.time) | 2 | ||||
| -rw-r--r-- | t/op/undef.t (renamed from t/op.undef) | 4 | ||||
| -rw-r--r-- | t/op/unshift.t (renamed from t/op.unshift) | 2 | ||||
| -rw-r--r-- | t/op/vec.t (renamed from t/op.vec) | 2 | ||||
| -rw-r--r-- | t/op/write.t (renamed from t/op.write) | 2 |
75 files changed, 138 insertions, 262 deletions
@@ -1,6 +1,6 @@ #!./perl -# $Header: TEST,v 3.0.1.3 91/01/11 18:28:17 lwall Locked $ +# $Header: TEST,v 4.0 91/03/20 01:40:22 lwall Locked $ # This is written in a peculiar style, since we're trying to avoid # most of the constructs we'll be testing for. @@ -15,7 +15,8 @@ if ($ARGV[0] eq '-v') { chdir 't' if -f 't/TEST'; if ($ARGV[0] eq '') { - @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.* lib.*`); + @ARGV = split(/[ \n]/, + `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`); } open(CONFIG,"../config.sh"); @@ -27,16 +28,12 @@ while (<CONFIG>) { } $bad = 0; while ($test = shift) { - if ($test =~ /\.orig$/) { + if ($test =~ /^$/) { next; } - if ($test =~ /\.rej$/) { - next; - } - if ($test =~ /~$/) { - next; - } - print "$test" . '.' x (16 - length($test)); + $te = $test; + chop($te); + print "$te" . '.' x (15 - length($te)); if ($sharpbang) { open(results,"./$test|") || (print "can't run.\n"); } else { diff --git a/t/base.cond b/t/base/cond.t index c23f593bb2..592580120f 100644 --- a/t/base.cond +++ b/t/base/cond.t @@ -1,6 +1,6 @@ #!./perl -# $Header: base.cond,v 3.0 89/10/18 15:24:11 lwall Locked $ +# $Header: cond.t,v 4.0 91/03/20 01:48:54 lwall Locked $ # make sure conditional operators work diff --git a/t/base.if b/t/base/if.t index 234ddc981d..6965ef5141 100644 --- a/t/base.if +++ b/t/base/if.t @@ -1,6 +1,6 @@ #!./perl -# $Header: base.if,v 3.0 89/10/18 15:24:17 lwall Locked $ +# $Header: if.t,v 4.0 91/03/20 01:49:03 lwall Locked $ print "1..2\n"; diff --git a/t/base.lex b/t/base/lex.t index 5fb62d5988..0c94b875a3 100644 --- a/t/base.lex +++ b/t/base/lex.t @@ -1,6 +1,6 @@ #!./perl -# $Header: base.lex,v 3.0.1.1 90/08/09 05:24:43 lwall Locked $ +# $Header: lex.t,v 4.0 91/03/20 01:49:08 lwall Locked $ print "1..18\n"; diff --git a/t/base.pat b/t/base/pat.t index a026a86ce6..8ad88dd331 100644 --- a/t/base.pat +++ b/t/base/pat.t @@ -1,6 +1,6 @@ #!./perl -# $Header: base.pat,v 3.0 89/10/18 15:24:30 lwall Locked $ +# $Header: pat.t,v 4.0 91/03/20 01:49:12 lwall Locked $ print "1..2\n"; diff --git a/t/base.term b/t/base/term.t index 6055fe218c..c322242710 100644 --- a/t/base.term +++ b/t/base/term.t @@ -1,6 +1,6 @@ #!./perl -# $Header: base.term,v 3.0.1.1 90/02/28 18:31:56 lwall Locked $ +# $Header: term.t,v 4.0 91/03/20 01:49:17 lwall Locked $ print "1..6\n"; diff --git a/t/cmd.elsif b/t/cmd/elsif.t index 8079bee524..975acef4f7 100644 --- a/t/cmd.elsif +++ b/t/cmd/elsif.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.elsif,v 3.0 89/10/18 15:24:38 lwall Locked $ +# $Header: elsif.t,v 4.0 91/03/20 01:49:21 lwall Locked $ sub foo { if ($_[0] == 1) { diff --git a/t/cmd.for b/t/cmd/for.t index 89bf9d33e5..16745b5b28 100644 --- a/t/cmd.for +++ b/t/cmd/for.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.for,v 3.0 89/10/18 15:24:43 lwall Locked $ +# $Header: for.t,v 4.0 91/03/20 01:49:26 lwall Locked $ print "1..7\n"; diff --git a/t/cmd.mod b/t/cmd/mod.t index f6b8a6e738..787aade307 100644 --- a/t/cmd.mod +++ b/t/cmd/mod.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.mod,v 3.0 89/10/18 15:24:48 lwall Locked $ +# $Header: mod.t,v 4.0 91/03/20 01:49:33 lwall Locked $ print "1..7\n"; diff --git a/t/cmd.subval b/t/cmd/subval.t index 88457152a7..ba4d833d3a 100644 --- a/t/cmd.subval +++ b/t/cmd/subval.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.subval,v 3.0.1.1 90/10/16 10:46:53 lwall Locked $ +# $Header: subval.t,v 4.0 91/03/20 01:49:40 lwall Locked $ sub foo1 { 'true1'; diff --git a/t/cmd.switch b/t/cmd/switch.t index 315039d36e..2af2c9e971 100644 --- a/t/cmd.switch +++ b/t/cmd/switch.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.switch,v 3.0 89/10/18 15:25:00 lwall Locked $ +# $Header: switch.t,v 4.0 91/03/20 01:49:44 lwall Locked $ print "1..18\n"; diff --git a/t/cmd.while b/t/cmd/while.t index 53fdb1014a..9876095c1c 100644 --- a/t/cmd.while +++ b/t/cmd/while.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmd.while,v 3.0 89/10/18 15:25:07 lwall Locked $ +# $Header: while.t,v 4.0 91/03/20 01:49:51 lwall Locked $ print "1..10\n"; diff --git a/t/comp.cmdopt b/t/comp/cmdopt.t index 3ae5a6629f..e6e2abff75 100644 --- a/t/comp.cmdopt +++ b/t/comp/cmdopt.t @@ -1,6 +1,6 @@ #!./perl -# $Header: comp.cmdopt,v 3.0 89/10/18 15:25:13 lwall Locked $ +# $Header: cmdopt.t,v 4.0 91/03/20 01:49:58 lwall Locked $ print "1..40\n"; diff --git a/t/comp.cpp b/t/comp/cpp.t index 9e8b1d3378..0e2b6fa681 100644 --- a/t/comp.cpp +++ b/t/comp/cpp.t @@ -1,6 +1,6 @@ #!./perl -P -# $Header: comp.cpp,v 3.0.1.2 90/11/10 02:10:17 lwall Locked $ +# $Header: cpp.t,v 4.0 91/03/20 01:50:05 lwall Locked $ print "1..3\n"; diff --git a/t/comp.decl b/t/comp/decl.t index ef59e798cc..af8bf05ba8 100644 --- a/t/comp.decl +++ b/t/comp/decl.t @@ -1,6 +1,6 @@ #!./perl -# $Header: comp.decl,v 3.0 89/10/18 15:25:25 lwall Locked $ +# $Header: decl.t,v 4.0 91/03/20 01:50:09 lwall Locked $ # check to see if subroutine declarations work everwhere diff --git a/t/comp.multiline b/t/comp/multiline.t index 10cf462f84..55650813f4 100644 --- a/t/comp.multiline +++ b/t/comp/multiline.t @@ -1,6 +1,6 @@ #!./perl -# $Header: comp.multiline,v 3.0 89/10/18 15:25:39 lwall Locked $ +# $Header: multiline.t,v 4.0 91/03/20 01:50:15 lwall Locked $ print "1..5\n"; diff --git a/t/comp.package b/t/comp/package.t index 5237011a62..5237011a62 100644 --- a/t/comp.package +++ b/t/comp/package.t diff --git a/t/comp.script b/t/comp/script.t index 378a006848..8e882933ce 100644 --- a/t/comp.script +++ b/t/comp/script.t @@ -1,6 +1,6 @@ #!./perl -# $Header: comp.script,v 3.0 89/10/18 15:25:55 lwall Locked $ +# $Header: script.t,v 4.0 91/03/20 01:50:26 lwall Locked $ print "1..3\n"; diff --git a/t/comp.term b/t/comp/term.t index 204024cada..1012f949ba 100644 --- a/t/comp.term +++ b/t/comp/term.t @@ -1,6 +1,6 @@ #!./perl -# $Header: comp.term,v 3.0 89/10/18 15:26:04 lwall Locked $ +# $Header: term.t,v 4.0 91/03/20 01:50:36 lwall Locked $ # tests that aren't important enough for base.term diff --git a/t/io.argv b/t/io/argv.t index a66d26f2e2..6f55896fdf 100644 --- a/t/io.argv +++ b/t/io/argv.t @@ -1,6 +1,6 @@ #!./perl -# $Header: io.argv,v 3.0.1.1 89/11/11 04:59:05 lwall Locked $ +# $Header: argv.t,v 4.0 91/03/20 01:50:46 lwall Locked $ print "1..5\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: io.dup,v 3.0 89/10/18 15:26:15 lwall Locked $ +# $Header: dup.t,v 4.0 91/03/20 01:50:49 lwall Locked $ print "1..6\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: io.fs,v 3.0.1.1 90/08/13 22:31:17 lwall Locked $ +# $Header: fs.t,v 4.0 91/03/20 01:50:55 lwall Locked $ print "1..22\n"; diff --git a/t/io.inplace b/t/io/inplace.t index c73bd75512..b8a5649056 100644 --- a/t/io.inplace +++ b/t/io/inplace.t @@ -1,6 +1,8 @@ -#!./perl -i.bak +#!./perl -# $Header: io.inplace,v 3.0 89/10/18 15:26:25 lwall Locked $ +$^I = '.bak'; + +# $Header: inplace.t,v 4.0 91/03/20 01:50:59 lwall Locked $ print "1..2\n"; diff --git a/t/io.pipe b/t/io/pipe.t index d972abab18..d41f5faaec 100644 --- a/t/io.pipe +++ b/t/io/pipe.t @@ -1,6 +1,6 @@ #!./perl -# $Header: io.pipe,v 3.0.1.1 90/02/28 18:32:41 lwall Locked $ +# $Header: pipe.t,v 4.0 91/03/20 01:51:02 lwall Locked $ $| = 1; print "1..8\n"; diff --git a/t/io.print b/t/io/print.t index 7d4a901c0c..30294f51fa 100644 --- a/t/io.print +++ b/t/io/print.t @@ -1,6 +1,6 @@ #!./perl -# $Header: io.print,v 3.0 89/10/18 15:26:36 lwall Locked $ +# $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $ print "1..16\n"; diff --git a/t/io.tell b/t/io/tell.t index 98cf02717b..cb1fc4c3be 100644 --- a/t/io.tell +++ b/t/io/tell.t @@ -1,6 +1,6 @@ #!./perl -# $Header: io.tell,v 3.0 89/10/18 15:26:45 lwall Locked $ +# $Header: tell.t,v 4.0 91/03/20 01:51:14 lwall Locked $ print "1..13\n"; diff --git a/t/lib.big b/t/lib/big.t index 23cd00beb5..23cd00beb5 100644 --- a/t/lib.big +++ b/t/lib/big.t diff --git a/t/op.subst b/t/op.subst deleted file mode 100644 index 97ca2f8293..0000000000 --- a/t/op.subst +++ /dev/null @@ -1,165 +0,0 @@ -#!./perl - -# $Header: op.s,v 3.0.1.1 90/02/28 18:37:30 lwall Locked $ - -print "1..42\n"; - -$x = 'foo'; -$_ = "x"; -s/x/\$x/; -print "#1\t:$_: eq :\$x:\n"; -if ($_ eq '$x') {print "ok 1\n";} else {print "not ok 1\n";} - -$_ = "x"; -s/x/$x/; -print "#2\t:$_: eq :foo:\n"; -if ($_ eq 'foo') {print "ok 2\n";} else {print "not ok 2\n";} - -$_ = "x"; -s/x/\$x $x/; -print "#3\t:$_: eq :\$x foo:\n"; -if ($_ eq '$x foo') {print "ok 3\n";} else {print "not ok 3\n";} - -$b = 'cd'; -($a = 'abcdef') =~ s'(b${b}e)'\n$1'; -print "#4\t:$1: eq :bcde:\n"; -print "#4\t:$a: eq :a\\n\$1f:\n"; -if ($1 eq 'bcde' && $a eq 'a\n$1f') {print "ok 4\n";} else {print "not ok 4\n";} - -$a = 'abacada'; -if (($a =~ s/a/x/g) == 4 && $a eq 'xbxcxdx') - {print "ok 5\n";} else {print "not ok 5\n";} - -if (($a =~ s/a/y/g) == 0 && $a eq 'xbxcxdx') - {print "ok 6\n";} else {print "not ok 6 $a\n";} - -if (($a =~ s/b/y/g) == 1 && $a eq 'xyxcxdx') - {print "ok 7\n";} else {print "not ok 7 $a\n";} - -$_ = 'ABACADA'; -if (/a/i && s///gi && $_ eq 'BCD') {print "ok 8\n";} else {print "not ok 8 $_\n";} - -$_ = '\\' x 4; -if (length($_) == 4) {print "ok 9\n";} else {print "not ok 9\n";} -s/\\/\\\\/g; -if ($_ eq '\\' x 8) {print "ok 10\n";} else {print "not ok 10 $_\n";} - -$_ = '\/' x 4; -if (length($_) == 8) {print "ok 11\n";} else {print "not ok 11\n";} -s/\//\/\//g; -if ($_ eq '\\//' x 4) {print "ok 12\n";} else {print "not ok 12\n";} -if (length($_) == 12) {print "ok 13\n";} else {print "not ok 13\n";} - -$_ = 'aaaXXXXbbb'; -s/^a//; -print $_ eq 'aaXXXXbbb' ? "ok 14\n" : "not ok 14\n"; - -$_ = 'aaaXXXXbbb'; -s/a//; -print $_ eq 'aaXXXXbbb' ? "ok 15\n" : "not ok 15\n"; - -$_ = 'aaaXXXXbbb'; -s/^a/b/; -print $_ eq 'baaXXXXbbb' ? "ok 16\n" : "not ok 16\n"; - -$_ = 'aaaXXXXbbb'; -s/a/b/; -print $_ eq 'baaXXXXbbb' ? "ok 17\n" : "not ok 17\n"; - -$_ = 'aaaXXXXbbb'; -s/aa//; -print $_ eq 'aXXXXbbb' ? "ok 18\n" : "not ok 18\n"; - -$_ = 'aaaXXXXbbb'; -s/aa/b/; -print $_ eq 'baXXXXbbb' ? "ok 19\n" : "not ok 19\n"; - -$_ = 'aaaXXXXbbb'; -s/b$//; -print $_ eq 'aaaXXXXbb' ? "ok 20\n" : "not ok 20\n"; - -$_ = 'aaaXXXXbbb'; -s/b//; -print $_ eq 'aaaXXXXbb' ? "ok 21\n" : "not ok 21\n"; - -$_ = 'aaaXXXXbbb'; -s/bb//; -print $_ eq 'aaaXXXXb' ? "ok 22\n" : "not ok 22\n"; - -$_ = 'aaaXXXXbbb'; -s/aX/y/; -print $_ eq 'aayXXXbbb' ? "ok 23\n" : "not ok 23\n"; - -$_ = 'aaaXXXXbbb'; -s/Xb/z/; -print $_ eq 'aaaXXXzbb' ? "ok 24\n" : "not ok 24\n"; - -$_ = 'aaaXXXXbbb'; -s/aaX.*Xbb//; -print $_ eq 'ab' ? "ok 25\n" : "not ok 25\n"; - -$_ = 'aaaXXXXbbb'; -s/bb/x/; -print $_ eq 'aaaXXXXxb' ? "ok 26\n" : "not ok 26\n"; - -# now for some unoptimized versions of the same. - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/^a//; -print $_ eq 'aaXXXXbbb' ? "ok 27\n" : "not ok 27\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/a//; -print $_ eq 'aaXXXXbbb' ? "ok 28\n" : "not ok 28\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/^a/b/; -print $_ eq 'baaXXXXbbb' ? "ok 29\n" : "not ok 29\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/a/b/; -print $_ eq 'baaXXXXbbb' ? "ok 30\n" : "not ok 30\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/aa//; -print $_ eq 'aXXXXbbb' ? "ok 31\n" : "not ok 31\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/aa/b/; -print $_ eq 'baXXXXbbb' ? "ok 32\n" : "not ok 32\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/b$//; -print $_ eq 'aaaXXXXbb' ? "ok 33\n" : "not ok 33\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/b//; -print $_ eq 'aaaXXXXbb' ? "ok 34\n" : "not ok 34\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/bb//; -print $_ eq 'aaaXXXXb' ? "ok 35\n" : "not ok 35\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/aX/y/; -print $_ eq 'aayXXXbbb' ? "ok 36\n" : "not ok 36\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/Xb/z/; -print $_ eq 'aaaXXXzbb' ? "ok 37\n" : "not ok 37\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/aaX.*Xbb//; -print $_ eq 'ab' ? "ok 38\n" : "not ok 38\n"; - -$_ = 'aaaXXXXbbb'; -$x ne $x || s/bb/x/; -print $_ eq 'aaaXXXXxb' ? "ok 39\n" : "not ok 39\n"; - -$_ = 'abc123xyz'; -s/\d+/$&*2/e; # yields 'abc246xyz' -print $_ eq 'abc246xyz' ? "ok 40\n" : "not ok 40\n"; -s/\d+/sprintf("%5d",$&)/e; # yields 'abc 246xyz' -print $_ eq 'abc 246xyz' ? "ok 41\n" : "not ok 41\n"; -s/\w/$& x 2/eg; # yields 'aabbcc 224466xxyyzz' -print $_ eq 'aabbcc 224466xxyyzz' ? "ok 42\n" : "not ok 42\n"; diff --git a/t/op.append b/t/op/append.t index c5805745fa..9140c16b83 100644 --- a/t/op.append +++ b/t/op/append.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.append,v 3.0 89/10/18 15:26:51 lwall Locked $ +# $Header: append.t,v 4.0 91/03/20 01:51:23 lwall Locked $ print "1..3\n"; diff --git a/t/op.array b/t/op/array.t index 7129ee3e1d..18fe288356 100644 --- a/t/op.array +++ b/t/op/array.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.array,v 3.0.1.1 90/03/12 17:03:03 lwall Locked $ +# $Header: array.t,v 4.0 91/03/20 01:51:31 lwall Locked $ print "1..36\n"; diff --git a/t/op.auto b/t/op/auto.t index d31dca7e4e..e1122a5774 100644 --- a/t/op.auto +++ b/t/op/auto.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.auto,v 3.0 89/10/18 15:27:00 lwall Locked $ +# $Header: auto.t,v 4.0 91/03/20 01:51:35 lwall Locked $ print "1..34\n"; diff --git a/t/op.chop b/t/op/chop.t index f293a0ae12..ba6d6262b3 100644 --- a/t/op.chop +++ b/t/op/chop.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.chop,v 3.0 89/10/18 15:28:19 lwall Locked $ +# $Header: chop.t,v 4.0 91/03/20 01:51:42 lwall Locked $ print "1..4\n"; diff --git a/t/op.cond b/t/op/cond.t index 5cd49fdd64..31baf9d05f 100644 --- a/t/op.cond +++ b/t/op/cond.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.cond,v 3.0 89/10/18 15:28:26 lwall Locked $ +# $Header: cond.t,v 4.0 91/03/20 01:51:47 lwall Locked $ print "1..4\n"; @@ -1,13 +1,13 @@ #!./perl -# $Header: op.dbm,v 3.0.1.2 91/01/11 18:29:12 lwall Locked $ +# $Header: dbm.t,v 4.0 91/03/20 01:51:52 lwall Locked $ if (!-r '/usr/include/dbm.h' && !-r '/usr/include/ndbm.h') { print "1..0\n"; exit; } -print "1..10\n"; +print "1..12\n"; unlink <Op.dbmx.*>; umask(0); @@ -82,6 +82,9 @@ if ($i == 30) {print "ok 6\n";} else {print "not ok 6\n";} @keys = ('blurfl', keys(h), 'dyick'); if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";} +$h{'foo'} = ''; +$h{''} = 'bar'; + # check cache overflow and numeric keys and contents $ok = 1; for ($i = 1; $i < 200; $i++) { $h{$i + 0} = $i + 0; } @@ -94,6 +97,9 @@ print ($size > 0 ? "ok 9\n" : "not ok 9\n"); @h{0..200} = 200..400; @foo = @h{0..200}; -print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "no ok 10\n"; +print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n"; + +print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n"); +print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n"); unlink 'Op.dbmx.dir', 'Op.dbmx.pag'; diff --git a/t/op.delete b/t/op/delete.t index 3c5fe320f0..b5920dd397 100644 --- a/t/op.delete +++ b/t/op/delete.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.delete,v 3.0 89/10/18 15:28:36 lwall Locked $ +# $Header: delete.t,v 4.0 91/03/20 01:51:56 lwall Locked $ print "1..6\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.do,v 3.0 89/10/18 15:28:43 lwall Locked $ +# $Header: do.t,v 4.0 91/03/20 01:52:08 lwall Locked $ sub foo1 { diff --git a/t/op.each b/t/op/each.t index edaed11e78..d759fda549 100644 --- a/t/op.each +++ b/t/op/each.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.each,v 3.0 89/10/18 15:28:48 lwall Locked $ +# $Header: each.t,v 4.0 91/03/20 01:52:14 lwall Locked $ print "1..3\n"; diff --git a/t/op.eval b/t/op/eval.t index 5060f66f1c..464162c0a3 100644 --- a/t/op.eval +++ b/t/op/eval.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.eval,v 3.0 89/10/18 15:28:53 lwall Locked $ +# $Header: eval.t,v 4.0 91/03/20 01:52:20 lwall Locked $ print "1..10\n"; diff --git a/t/op.exec b/t/op/exec.t index 3066f1d3ec..f3012fd2f9 100644 --- a/t/op.exec +++ b/t/op/exec.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.exec,v 3.0 89/10/18 15:28:57 lwall Locked $ +# $Header: exec.t,v 4.0 91/03/20 01:52:25 lwall Locked $ $| = 1; # flush stdout print "1..8\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.exp,v 3.0 89/10/18 15:29:01 lwall Locked $ +# $Header: exp.t,v 4.0 91/03/20 01:52:31 lwall Locked $ print "1..6\n"; diff --git a/t/op.flip b/t/op/flip.t index 19fdf86e7e..35f100cdef 100644 --- a/t/op.flip +++ b/t/op/flip.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.flip,v 3.0 89/10/18 15:29:07 lwall Locked $ +# $Header: flip.t,v 4.0 91/03/20 01:52:36 lwall Locked $ print "1..8\n"; diff --git a/t/op.fork b/t/op/fork.t index 41debbc240..55696fd98f 100644 --- a/t/op.fork +++ b/t/op/fork.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.fork,v 3.0 89/10/18 15:29:12 lwall Locked $ +# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $ $| = 1; print "1..2\n"; diff --git a/t/op.glob b/t/op/glob.t index c04f7f3271..1250a72542 100644 --- a/t/op.glob +++ b/t/op/glob.t @@ -1,19 +1,19 @@ #!./perl -# $Header: op.glob,v 3.0 89/10/18 15:29:19 lwall Locked $ +# $Header: glob.t,v 4.0 91/03/20 01:52:49 lwall Locked $ print "1..4\n"; -@ops = <op.*>; +@ops = <op/*>; $list = join(' ',@ops); -chop($otherway = `echo op.*`); +chop($otherway = `echo op/*`); print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n"; print $/ eq "\n" ? "ok 2\n" : "not ok 2\n"; -while (<jskdfjskdfj* op.* jskdjfjkosvk*>) { +while (<jskdfjskdfj* op/* jskdjfjkosvk*>) { $not = "not " unless $_ eq shift @ops; $not = "not at all " if $/ eq "\0"; } diff --git a/t/op.goto b/t/op/goto.t index 4325431aec..b76d44d3ba 100644 --- a/t/op.goto +++ b/t/op/goto.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.goto,v 3.0 89/10/18 15:29:24 lwall Locked $ +# $Header: goto.t,v 4.0 91/03/20 01:52:52 lwall Locked $ print "1..3\n"; diff --git a/t/op/groups.t b/t/op/groups.t new file mode 100644 index 0000000000..73ec3a0d9a --- /dev/null +++ b/t/op/groups.t @@ -0,0 +1,18 @@ +#!./perl + +if (! -x '/usr/ucb/groups') { + print "1..0\n"; + exit 0; +} + +print "1..1\n"; + +for (split(' ', $()) { + next if $seen{$_}++; + push(@gr, (getgrgid($_))[0]); +} +$gr1 = join(' ',sort @gr); +$gr2 = join(' ', sort split(' ',`groups`)); +#print "gr1 is <$gr1>\n"; +#print "gr2 is <$gr2>\n"; +print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n"; diff --git a/t/op.index b/t/op/index.t index da822065cd..7cc4fca5ca 100644 --- a/t/op.index +++ b/t/op/index.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.index,v 3.0.1.1 90/10/16 10:50:28 lwall Locked $ +# $Header: index.t,v 4.0 91/03/20 01:53:05 lwall Locked $ print "1..20\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.int,v 3.0 89/10/18 15:29:33 lwall Locked $ +# $Header: int.t,v 4.0 91/03/20 01:53:08 lwall Locked $ print "1..4\n"; diff --git a/t/op.join b/t/op/join.t index f3c6ddde1e..b219af380d 100644 --- a/t/op.join +++ b/t/op/join.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.join,v 3.0 89/10/18 15:29:38 lwall Locked $ +# $Header: join.t,v 4.0 91/03/20 01:53:17 lwall Locked $ print "1..3\n"; diff --git a/t/op.list b/t/op/list.t index 02eb0f4007..56fe09ca0a 100644 --- a/t/op.list +++ b/t/op/list.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.list,v 3.0 89/10/18 15:29:44 lwall Locked $ +# $Header: list.t,v 4.0 91/03/20 01:53:24 lwall Locked $ print "1..27\n"; diff --git a/t/op.local b/t/op/local.t index d04a0c9d61..1f7608934f 100644 --- a/t/op.local +++ b/t/op/local.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.local,v 3.0 89/10/18 15:29:49 lwall Locked $ +# $Header: local.t,v 4.0 91/03/20 01:53:29 lwall Locked $ print "1..20\n"; diff --git a/t/op.magic b/t/op/magic.t index 4b5dba838e..f027d60d42 100644 --- a/t/op.magic +++ b/t/op/magic.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.magic,v 3.0.1.1 89/11/11 05:00:07 lwall Locked $ +# $Header: magic.t,v 4.0 91/03/20 01:53:35 lwall Locked $ $| = 1; # command buffering diff --git a/t/op.mkdir b/t/op/mkdir.t index dba5a88d0c..9186aa54e3 100644 --- a/t/op.mkdir +++ b/t/op/mkdir.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.mkdir,v 3.0.1.4 91/01/11 18:30:00 lwall Locked $ +# $Header: mkdir.t,v 4.0 91/03/20 01:53:39 lwall Locked $ print "1..7\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.oct,v 3.0 89/10/18 15:30:15 lwall Locked $ +# $Header: oct.t,v 4.0 91/03/20 01:53:43 lwall Locked $ print "1..3\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.ord,v 3.0 89/10/18 15:30:29 lwall Locked $ +# $Header: ord.t,v 4.0 91/03/20 01:53:50 lwall Locked $ print "1..2\n"; diff --git a/t/op.pack b/t/op/pack.t index 87bf5da467..aa498c5846 100644 --- a/t/op.pack +++ b/t/op/pack.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.pack,v 3.0.1.1 90/08/09 05:27:04 lwall Locked $ +# $Header: pack.t,v 4.0 91/03/20 01:53:57 lwall Locked $ print "1..3\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.pat,v 3.0 89/10/18 15:30:44 lwall Locked $ +# $Header: pat.t,v 4.0 91/03/20 01:54:01 lwall Locked $ print "1..43\n"; diff --git a/t/op.push b/t/op/push.t index ebadf5f6f4..721b63f2f7 100644 --- a/t/op.push +++ b/t/op/push.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.push,v 3.0.1.1 90/03/12 17:04:27 lwall Locked $ +# $Header: push.t,v 4.0 91/03/20 01:54:07 lwall Locked $ @tests = split(/\n/, <<EOF); 0 3, 0 1 2, 3 4 5 6 7 diff --git a/t/op.range b/t/op/range.t index d581b433cf..9ab7892636 100644 --- a/t/op.range +++ b/t/op/range.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.range,v 3.0.1.1 90/03/27 16:27:58 lwall Locked $ +# $Header: range.t,v 4.0 91/03/20 01:54:11 lwall Locked $ print "1..8\n"; diff --git a/t/re_tests b/t/op/re_tests index 3a6d62a187..01d9940216 100644 --- a/t/re_tests +++ b/t/op/re_tests @@ -120,7 +120,10 @@ a[bcd]+dcdcde adcdcde n - - (bc+d$|ef*g.|h?i(j|k)) effg n - - (bc+d$|ef*g.|h?i(j|k)) bcdd n - - (bc+d$|ef*g.|h?i(j|k)) reffgz y $&-$1-$2 effgz-effgz- -((((((((((a)))))))))) - c - - +((((((((((a)))))))))) a y $10 a +((((((((((a))))))))))\10 aa y $& aa +((((((((((a))))))))))\41 aa n - - +((((((((((a))))))))))\41 a! y $& a! (((((((((a))))))))) a y $& a multiple words of text uh-uh n - - multiple words multiple words, yeah y $& multiple words diff --git a/t/op.read b/t/op/read.t index b219917a68..019324ce33 100644 --- a/t/op.read +++ b/t/op/read.t @@ -1,11 +1,11 @@ #!./perl -# $Header: op.read,v 3.0 89/10/18 15:30:58 lwall Locked $ +# $Header: read.t,v 4.0 91/03/20 01:54:16 lwall Locked $ print "1..4\n"; -open(FOO,'op.read') || open(FOO,'t/op.read') || die "Can't open op.read"; +open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || die "Can't open op.read"; seek(FOO,4,0); $got = read(FOO,$buf,4); diff --git a/t/op.regexp b/t/op/regexp.t index fc7d8b829c..92f084a7f0 100644 --- a/t/op.regexp +++ b/t/op/regexp.t @@ -1,14 +1,16 @@ #!./perl -# $Header: op.regexp,v 3.0 89/10/18 15:31:02 lwall Locked $ +# $Header: regexp.t,v 4.0 91/03/20 01:54:22 lwall Locked $ -open(TESTS,'re_tests') || open(TESTS,'t/re_tests') || die "Can't open re_tests"; +open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests') + || die "Can't open re_tests"; while (<TESTS>) { } $numtests = $.; close(TESTS); print "1..$numtests\n"; -open(TESTS,'re_tests') || open(TESTS,'t/re_tests') || die "Can't open re_tests"; +open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests') + || die "Can't open re_tests"; while (<TESTS>) { ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_); $input = join(':',$pat,$subject,$result,$repl,$expect); diff --git a/t/op.repeat b/t/op/repeat.t index aa4a52c805..a494b99f96 100644 --- a/t/op.repeat +++ b/t/op/repeat.t @@ -1,8 +1,8 @@ #!./perl -# $Header: op.repeat,v 3.0 89/10/18 15:31:07 lwall Locked $ +# $Header: repeat.t,v 4.0 91/03/20 01:54:26 lwall Locked $ -print "1..11\n"; +print "1..19\n"; # compile time @@ -30,3 +30,13 @@ if ($a eq 'xyzxyz') {print "ok 10\n";} else {print "not ok 10\n";} $a x= 0; if ($a eq '') {print "ok 11\n";} else {print "not ok 11\n";} +@x = (1,2,3); + +print join('', @x x 4) eq '3333' ? "ok 12\n" : "not ok 12\n"; +print join('', (@x) x 4) eq '123123123123' ? "ok 13\n" : "not ok 13\n"; +print join('', (@x,()) x 4) eq '123123123123' ? "ok 14\n" : "not ok 14\n"; +print join('', (@x,1) x 4) eq '1231123112311231' ? "ok 15\n" : "not ok 15\n"; +print join(':', () x 4) eq '' ? "ok 16\n" : "not ok 16\n"; +print join(':', (9) x 4) eq '9:9:9:9' ? "ok 17\n" : "not ok 17\n"; +print join(':', (9,9) x 4) eq '9:9:9:9:9:9:9:9' ? "ok 18\n" : "not ok 18\n"; +print join('', (split(//,"123")) x 2) eq '123123' ? "ok 19\n" : "not ok 19\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.s,v 3.0.1.2 90/10/16 10:51:50 lwall Locked $ +# $Header: s.t,v 4.0 91/03/20 01:54:30 lwall Locked $ print "1..51\n"; diff --git a/t/op.sleep b/t/op/sleep.t index 99933006b9..c26d397d2f 100644 --- a/t/op.sleep +++ b/t/op/sleep.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.sleep,v 3.0.1.1 90/03/14 12:31:39 lwall Locked $ +# $Header: sleep.t,v 4.0 91/03/20 01:54:34 lwall Locked $ print "1..1\n"; diff --git a/t/op.sort b/t/op/sort.t index 424321529b..b1b2202d2b 100644 --- a/t/op.sort +++ b/t/op/sort.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.sort,v 3.0.1.1 89/10/26 23:25:37 lwall Locked $ +# $Header: sort.t,v 4.0 91/03/20 01:54:38 lwall Locked $ print "1..8\n"; diff --git a/t/op.split b/t/op/split.t index c42b98b253..34327cbd42 100644 --- a/t/op.split +++ b/t/op/split.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.split,v 3.0.1.1 89/11/11 05:01:44 lwall Locked $ +# $Header: split.t,v 4.0 91/03/20 01:54:42 lwall Locked $ print "1..12\n"; diff --git a/t/op.sprintf b/t/op/sprintf.t index a00044f21d..6155612aeb 100644 --- a/t/op.sprintf +++ b/t/op/sprintf.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.sprintf,v 3.0 89/10/18 15:31:28 lwall Locked $ +# $Header: sprintf.t,v 4.0 91/03/20 01:54:46 lwall Locked $ print "1..1\n"; diff --git a/t/op.stat b/t/op/stat.t index 5a6f63aefe..8ba8e54a5d 100644 --- a/t/op.stat +++ b/t/op/stat.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.stat,v 3.0.1.5 90/10/16 10:55:42 lwall Locked $ +# $Header: stat.t,v 4.0 91/03/20 01:54:55 lwall Locked $ print "1..56\n"; @@ -42,12 +42,15 @@ if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";} if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";} if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";} -chmod 0,'Op.stat.tmp'; +unlink 'Op.stat.tmp'; $olduid = $>; # can't test -r if uid == 0 +`echo hi >Op.stat.tmp`; +chmod 0,'Op.stat.tmp'; eval '$> = 1;'; # so switch uid (may not be implemented) if (!$> || ! -r 'Op.stat.tmp') {print "ok 9\n";} else {print "not ok 9\n";} if (!$> || ! -w 'Op.stat.tmp') {print "ok 10\n";} else {print "not ok 10\n";} eval '$> = $olduid;'; # switch uid back (may not be implemented) +print "# olduid=$olduid, newuid=$>\n" unless ($> == $olduid); if (! -x 'Op.stat.tmp') {print "ok 11\n";} else {print "not ok 11\n";} foreach ((12,13,14,15,16,17)) { @@ -95,7 +98,7 @@ if (! -b '.') {print "ok 34\n";} else {print "not ok 34\n";} $cnt = $uid = 0; -die "Can't run op.stat test 35 without pwd working" unless $cwd; +die "Can't run op/stat.t test 35 without pwd working" unless $cwd; chdir '/usr/bin' || die "Can't cd to /usr/bin"; while (defined($_ = <*>)) { $cnt++; @@ -121,13 +124,13 @@ if (-t) {print "ok 40\n";} else {print "not ok 40\n";} # These aren't strictly "stat" calls, but so what? -if (-T 'op.stat') {print "ok 41\n";} else {print "not ok 41\n";} -if (! -B 'op.stat') {print "ok 42\n";} else {print "not ok 42\n";} +if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";} +if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";} if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";} if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";} -open(foo,'op.stat'); +open(foo,'op/stat.t'); if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";} if (! -B foo) {print "ok 46\n";} else {print "not ok 46\n";} $_ = <foo>; @@ -136,7 +139,7 @@ if (-T foo) {print "ok 48\n";} else {print "not ok 48\n";} if (! -B foo) {print "ok 49\n";} else {print "not ok 49\n";} close(foo); -open(foo,'op.stat'); +open(foo,'op/stat.t'); $_ = <foo>; if (/perl/) {print "ok 50\n";} else {print "not ok 50\n";} if (-T foo) {print "ok 51\n";} else {print "not ok 51\n";} diff --git a/t/op.study b/t/op/study.t index c62afb3052..01e33fa613 100644 --- a/t/op.study +++ b/t/op/study.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.study,v 3.0 89/10/18 15:31:38 lwall Locked $ +# $Header: study.t,v 4.0 91/03/20 01:54:59 lwall Locked $ print "1..24\n"; diff --git a/t/op.substr b/t/op/substr.t index bbe2c046b0..12ad531c49 100644 --- a/t/op.substr +++ b/t/op/substr.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.substr,v 3.0.1.1 90/10/16 10:56:35 lwall Locked $ +# $Header: substr.t,v 4.0 91/03/20 01:55:05 lwall Locked $ print "1..22\n"; diff --git a/t/op.time b/t/op/time.t index d735564412..28635219fe 100644 --- a/t/op.time +++ b/t/op/time.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.time,v 3.0 89/10/18 15:31:56 lwall Locked $ +# $Header: time.t,v 4.0 91/03/20 01:55:09 lwall Locked $ print "1..5\n"; diff --git a/t/op.undef b/t/op/undef.t index 0226ab7f3c..fc73cf85d5 100644 --- a/t/op.undef +++ b/t/op/undef.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.undef,v 3.0 89/10/18 15:32:01 lwall Locked $ +# $Header: undef.t,v 4.0 91/03/20 01:55:16 lwall Locked $ print "1..21\n"; @@ -43,7 +43,7 @@ print defined(@ary) ? "not ok 15\n" : "ok 15\n"; undef %ary; print defined(%ary) ? "not ok 16\n" : "ok 16\n"; @ary = (1); -print defined @ary ? "ok 17\n" : "not ok 18\n"; +print defined @ary ? "ok 17\n" : "not ok 17\n"; %ary = (1,1); print defined %ary ? "ok 18\n" : "not ok 18\n"; diff --git a/t/op.unshift b/t/op/unshift.t index 0612c2c2a5..fec68e183b 100644 --- a/t/op.unshift +++ b/t/op/unshift.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.unshift,v 3.0 89/10/18 15:32:06 lwall Locked $ +# $Header: unshift.t,v 4.0 91/03/20 01:55:21 lwall Locked $ print "1..2\n"; @@ -1,6 +1,6 @@ #!./perl -# $Header: op.vec,v 3.0 89/10/18 15:32:11 lwall Locked $ +# $Header: vec.t,v 4.0 91/03/20 01:55:28 lwall Locked $ print "1..13\n"; diff --git a/t/op.write b/t/op/write.t index ef806da5b1..e51a09088c 100644 --- a/t/op.write +++ b/t/op/write.t @@ -1,6 +1,6 @@ #!./perl -# $Header: op.write,v 3.0.1.1 90/03/27 16:29:00 lwall Locked $ +# $Header: write.t,v 4.0 91/03/20 01:55:34 lwall Locked $ print "1..3\n"; |