How to capture and verify STDOUT of a Perl Module

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

Replies are listed 'Best First'.
Re: How to capture and verify STDOUT of a Perl Module by Perlbotics (Archbishop) on Jul 29, 2013 at 18:11 UTC
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]	[reply] [d/l] [select]
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
Re^5: How to capture and verify STDOUT of a Perl Module by Loops (Curate) on Jul 29, 2013 at 19:31 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to capture and verify STDOUT of a Perl Module by 2teez (Vicar) on Jul 29, 2013 at 21:20 UTC
Some notes below your chosen depth have not been shown here
Re: How to capture and verify STDOUT of a Perl Module by toolic (Bishop) on Jul 29, 2013 at 18:20 UTC
How to Test Output from the Standard Output	[reply]
Re: How to capture and verify STDOUT of a Perl Module by tobyink (Canon) on Jul 29, 2013 at 21:39 UTC
`#!/usr/bin/env perl use strict; use warnings; use Test::More; use Capture::Tiny 'capture'; BEGIN { use_ok('Module') \|\| print "Bail out!\n"; } my $obj = 'Module'->new; my $out = capture { $obj->run }; like($out, qr/^Awesome/); done_testing;` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l]