Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Testing redirected croak messages

by xdg (Monsignor)
on Oct 28, 2005 at 09:03 UTC ( #503600=note: print w/replies, xml ) Need Help??


in reply to Testing redirected croak messages

Assuming your module takes over STDERR, and then relies on the behavior of croak (or, really, die) to write to STDERR, I don't think you'll get your tests to work with eval, which supresses the write to STDERR. You may be better off using a signal handler:

local $SIG{__DIE__} = sub { local $|++; # autoflush print STDERR @_; }; unlink 'test.errors'; redirect_error( output_file => 'test.errors' ); # call this directly, not in an eval, as you're trapping the croak lcroak "this is a sample error file"; ok( -T 'test.errors', "lcroak opens the error file specified by redirect_error()." ); my $text = `cat test.errors`; like( $text , qr/this is a sample error file/, "lcroak writes to the error file specified by redirect_error()." ) +; unlink 'test.errors';

Picking a nit -- cat test.errors isn't portable. You may want to use File::Slurp or the equivalent and keep it in Perl.

Also, if you want to do this test by running a separate process, I'd suggest trying IPC::Run3 instead of using a system call. It will nicely redirect STDOUT and STDERR into scalar variables for you:

run3 \@cmd, undef, \$out, \$err;

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://503600]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2023-02-05 13:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (31 votes). Check out past polls.

    Notices?