Perl Test - Capture print statements

[iamdaboss]

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.

[Zaxo]

You could localize STDOUT, opening it to a variable.

my $out = do {
    my $msg;
    open local( *STDOUT), '>', \$msg or die $!;
    mytest();
    $msg
};

That takes Perl 5.8+ for opening a handle to a variable.

++fenLisesi caught a thinko in text, s/STDERR/STDOUT/. Repaired.

[Corion]

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.

[trwww]

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;

This stores whatever $app->run sends to STDOUT in $add_io.

[schwern]

Test::Output