Perl Test - Capture print statements

iamdaboss has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I wanted to know how to capture print statements using Perl test scripts. Example : There is a PM xyz.pm whose subroutines print statements. I need to write xyz.t test script which captures those print statements and checks them if they are right. Note: - I am not supposed to use Test::Expect. - The module and test script would be part of the test harness. Thank You.

Comment on Perl Test - Capture print statements

Replies are listed 'Best First'.
Re: Perl Test - Capture print statements by Zaxo (Archbishop) on Jul 10, 2007 at 21:34 UTC
You could localize STDOUT, opening it to a variable. `my $out = do { my $msg; open local( *STDOUT), '>', \$msg or die $!; mytest(); $msg };` [download] That takes Perl 5.8+ for opening a handle to a variable. ++fenLisesi caught a thinko in text, s/STDERR/STDOUT/. Repaired. After Compline, Zaxo	[reply] [d/l]
Re: PerlTest - Capture print statements by Corion (Patriarch) on Jul 10, 2007 at 21:19 UTC
In WWW::Mechanize::Shell, I use IO::Catch, originally written by schwern to capture all output intended for STDOUT or STDERR into separate variables. See the test files for the usage of IO::Catch.	[reply]
Re: Perl Test - Capture print statements by trwww (Priest) on Jul 10, 2007 at 21:50 UTC
The following has worked well for me: `use IO::String; ... my $add_io = IO::String->new; my $old_handle = select($add_io); ok( $app->run, 'ran app' ); select($old_handle); like( ${$add_io->string_ref}, qr\|Location:\|, q\|got application redirect\| ); undef $add_io;` [download] This stores whatever `$app->run` sends to STDOUT in `$add_io`.	[reply] [d/l] [select]
Re: Perl Test - Capture print statements by schwern (Scribe) on Jul 12, 2007 at 08:51 UTC
Test::Output	[reply]


The stupid question is the question not asked
	PerlMonks