t/op/print.t


1
2
3
4
5
6
7
8
9
10
11
12

#!./perl

BEGIN {
    require "test.pl";
}

plan(2);

fresh_perl_is('$_ = qq{OK\n}; print;', "OK\n",
              'print without arguments outputs $_');
fresh_perl_is('$_ = qq{OK\n}; print STDOUT;', "OK\n",
              'print with only a filehandle outputs $_');