diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1997-01-16 23:48:18 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-25 15:58:00 +1200 |
| commit | bbad36071d5a6d4be3588f0f10c88247439076d8 (patch) | |
| tree | 4a82c155a6c0ce09155044f713245fc3c7b3144e /t/op/cmp.t | |
| parent | 7e42bd57a6867e174bc3bc555c3268b485940a98 (diff) | |
| download | perl-bbad36071d5a6d4be3588f0f10c88247439076d8.tar.gz | |
Test patches for OS/2
a) Teaches tests in os2/OS2/*/* new format of $Config{extensions};
os2/OS2/ExtAttr/t/os2_ea.t os2/OS2/PrfDB/t/os2_prfdb.t
os2/OS2/REXX/t/rx_cmprt.t os2/OS2/REXX/t/rx_dllld.t
os2/OS2/REXX/t/rx_objcall.t os2/OS2/REXX/t/rx_sql.test
os2/OS2/REXX/t/rx_tiesql.test os2/OS2/REXX/t/rx_tievar.t
os2/OS2/REXX/t/rx_tieydb.t os2/OS2/REXX/t/rx_varset.t
os2/OS2/REXX/t/rx_vrexx.t
b) Closes all the files before unlinking - for DOSISH systems;
t/cmd/while.t t/comp/multiline.t t/io/argv.t t/lib/anydbm.t
t/lib/gdbm.t t/lib/ndbm.t t/lib/odbm.t t/lib/sdbm.t
c) t/README mentions running `harness' to get better granularity;
t/README
d) New test op/lex_assign.t added - will check optimization of lexicals
when applied - 153 cases (some just ignored since hard to implement).
MANIFEST t/op/lex_assign.t
e) When a script is started via shell, $Config{exe_ext} may be appended.
t/op/magic.t
f) path/echo may print a warning if run without args
t/comp/colon.t
g) Error explanations more verbose
t/op/cmp.t t/op/magic.t
p5p-msgid: <199701170448.XAA28948@monk.mps.ohio-state.edu>
Diffstat (limited to 't/op/cmp.t')
| -rwxr-xr-x | t/op/cmp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/cmp.t b/t/op/cmp.t index aba7c2e9dc..4a7e68d448 100755 --- a/t/op/cmp.t +++ b/t/op/cmp.t @@ -18,7 +18,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - print "not ok $ok ($FOO[$i] <=> $FOO[$j])\n"; + print "not ok $ok ($FOO[$i] <=> $FOO[$j]) gives: '$cmp'\n"; } $ok++; $cmp = $FOO[$i] cmp $FOO[$j]; @@ -29,7 +29,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - print "not ok $ok ($FOO[$i] cmp $FOO[$j])\n"; + print "not ok $ok ($FOO[$i] cmp $FOO[$j]) gives '$cmp'\n"; } } } |