[perl5.git] / t / op / print.t

#!./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 $_');
Commit	Line	Data
a9bec287 GG	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 $_');