t/op/print.t

   1 #!./perl
   2
   3 BEGIN {
   4     require "test.pl";
   5 }
   6
   7 plan(2);
   8
   9 fresh_perl_is('$_ = qq{OK\n}; print;', "OK\n",
  10               'print without arguments outputs $_');
  11 fresh_perl_is('$_ = qq{OK\n}; print STDOUT;', "OK\n",
  12               'print with only a filehandle outputs $_');