contrib/perl5/t/io/print.t

   1 #!./perl
   2
   3 # $RCSfile: print.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:32 $
   4
   5 print "1..16\n";
   6
   7 $foo = 'STDOUT';
   8 print $foo "ok 1\n";
   9
  10 print "ok 2\n","ok 3\n","ok 4\n";
  11 print STDOUT "ok 5\n";
  12
  13 open(foo,">-");
  14 print foo "ok 6\n";
  15
  16 printf "ok %d\n",7;
  17 printf("ok %d\n",8);
  18
  19 @a = ("ok %d%c",9,ord("\n"));
  20 printf @a;
  21
  22 $a[1] = 10;
  23 printf STDOUT @a;
  24
  25 $, = ' ';
  26 $\ = "\n";
  27
  28 print "ok","11";
  29
  30 @x = ("ok","12\nok","13\nok");
  31 @y = ("15\nok","16");
  32 print @x,"14\nok",@y;