diff options
Diffstat (limited to 'contrib/perl5/t/io/print.t')
-rwxr-xr-x | contrib/perl5/t/io/print.t | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/contrib/perl5/t/io/print.t b/contrib/perl5/t/io/print.t deleted file mode 100755 index 0578ee6..0000000 --- a/contrib/perl5/t/io/print.t +++ /dev/null @@ -1,34 +0,0 @@ -#!./perl - -print "1..18\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; -{ - local $\ = "ok 17\n# null =>[\000]\nok 18\n"; - print ""; -} |