diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /t/io/print.t | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 't/io/print.t')
| -rw-r--r-- | t/io/print.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/t/io/print.t b/t/io/print.t new file mode 100644 index 0000000000..30294f51fa --- /dev/null +++ b/t/io/print.t @@ -0,0 +1,32 @@ +#!./perl + +# $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $ + +print "1..16\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"; + +printf "ok %d\n",7; +printf("ok %d\n",8); + +@a = ("ok %d%c",9,ord("\n")); +printf @a; + +$a[1] = 10; +printf STDOUT @a; + +$, = ' '; +$\ = "\n"; + +print "ok","11"; + +@x = ("ok","12\nok","13\nok"); +@y = ("15\nok","16"); +print @x,"14\nok",@y; |