Re: How to capture and verify STDOUT of a Perl Module

Test::Output already seems to do what you want.

 stdout_like( sub{ $obj->run }, qr/as expected regex/, 'output as expe
+cted' );
[download]

Update (response to CR below): When capturing output from an external process, try IO::CaptureOutput:

use strict;
use warnings;

use Test::More;
use Test::Output;
use IO::CaptureOutput qw(capture);

sub writer { system("echo Hubba") };


#fails:  stdout_like( \&writer, qr/Hubba/ms, "it's a hubba" );

capture { writer() } \my $stdout, \my $stderr;
is( $stdout, "Hubba\n", "system hubba" );

done_testing;

#-- output:
#
#   ok 1 - system hubba
#   1..1
[download]

Comment on Re: How to capture and verify STDOUT of a Perl Module Select or Download Code

Replies are listed 'Best First'.
Re^2: How to capture and verify STDOUT of a Perl Module by yuri123 (Novice) on Jul 29, 2013 at 18:33 UTC
I tried Test::Output. It looks like it did not capture the output from a system() that Module issues.	[reply]
Re^3: How to capture and verify STDOUT of a Perl Module by toolic (Bishop) on Jul 29, 2013 at 18:51 UTC
it did not capture the output from a system() system does not return a command's output (only its exit status). Perhaps you want qx.	[reply]
Re^4: How to capture and verify STDOUT of a Perl Module by yuri123 (Novice) on Jul 29, 2013 at 19:27 UTC
I know, but if system() runs something that produces output, I want it captured and can't: `system("/bin/echo HELLO");` [download]	[reply] [d/l]
Re^5: How to capture and verify STDOUT of a Perl Module by Loops (Curate) on Jul 29, 2013 at 19:31 UTC
Re^6: How to capture and verify STDOUT of a Perl Module by yuri123 (Novice) on Jul 29, 2013 at 19:34 UTC
Re^5: How to capture and verify STDOUT of a Perl Module by 2teez (Vicar) on Jul 29, 2013 at 21:20 UTC
Re^6: How to capture and verify STDOUT of a Perl Module by yuri123 (Novice) on Jul 30, 2013 at 19:43 UTC