In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a9bec28731f6ff92754c2d5febd8958a20ef8e7e?hp=32d539f5dc7b311a333afad7d5fc9b39073efa42>
- Log ----------------------------------------------------------------- commit a9bec28731f6ff92754c2d5febd8958a20ef8e7e Author: Gerard Goossen <[email protected]> Date: Thu Nov 19 11:21:52 2009 +0100 add print.t with testing of implicit printing of $_ ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 + t/op/print.t | 12 ++++++++++++ 2 files changed, 13 insertions(+), 0 deletions(-) create mode 100644 t/op/print.t diff --git a/MANIFEST b/MANIFEST index f4ddd0e..cfb4222 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4502,6 +4502,7 @@ t/op/packagev.t See if package VERSION work t/op/pack.t See if pack and unpack work t/op/pos.t See if pos works t/op/pow.t See if ** works +t/op/print.t See if print works t/op/protowarn.t See if the illegalproto warnings work t/op/push.t See if push and pop work t/op/pwent.t See if getpw*() functions work diff --git a/t/op/print.t b/t/op/print.t new file mode 100644 index 0000000..3752251 --- /dev/null +++ b/t/op/print.t @@ -0,0 +1,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 $_'); -- Perl5 Master Repository
