diff options
Diffstat (limited to 't/io.print')
| -rw-r--r-- | t/io.print | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/t/io.print b/t/io.print index f183b14013..3163b03dfb 100644 --- a/t/io.print +++ b/t/io.print @@ -1,11 +1,14 @@ #!./perl -# $Header: io.print,v 1.0 87/12/18 13:12:55 root Exp $ +# $Header: io.print,v 2.0 88/06/05 00:13:11 root Exp $ -print "1..11\n"; +print "1..16\n"; -print stdout "ok 1\n"; -print "ok 2\n","ok 3\n","ok 4\n","ok 5\n"; +$foo = 'stdout'; +print $foo "ok 1\n"; + +print "ok 2\n","ok 3\n","ok 4\n"; +print stdout "ok 5\n"; open(foo,">-"); print foo "ok 6\n"; @@ -23,3 +26,7 @@ $, = ' '; $\ = "\n"; print "ok","11"; + +@x = ("ok","12\nok","13\nok"); +@y = ("15\nok","16"); +print @x,"14\nok",@y; |