Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Redirecting STDOUT from internal function with 5.6.1 restrictions

by diotalevi (Canon)
on Oct 12, 2004 at 23:49 UTC ( #398739=note: print w/ replies, xml ) Need Help??


in reply to Redirecting STDOUT from internal function with 5.6.1 restrictions

If you were using Test::More, this would be easy and documented. The output handle is set by the internal Test::Builder object which itself has the methods ->output( $fh ), ->failure_output( $fh ), and ->todo_output( $fh ) to set the various filehandles.

Here is an example from one of my scripts which shows test output being captured.

use Test::More; use vars qw( $TEST_OUTPUT ); main( @ARGV ); exit 0; sub main { intialize( @_ ); ok( ... ); print $TEST_OUTPUT; 1; } sub initialize { $| = 1; open my $fh, ">", \ $TEST_OUTPUT or die; my $b = Test::More->builder; $b->output( $fh ); $b->failure_output( $fh ); $b->todo_output( $fh ); 1; }


Comment on Re: Redirecting STDOUT from internal function with 5.6.1 restrictions
Select or Download Code
Re^2: Redirecting STDOUT from internal function with 5.6.1 restrictions
by mgc (Novice) on Oct 13, 2004 at 20:13 UTC
    Thanks, but the reason I posted this was because I don't have Test::More available to me. Thanks.

      Its available from CPAN. http://search.cpan.org/dist/Test-Simple/

      If silly office politics prevent you from installing CPAN modules you can copy the module straight into your test directory and have your tests do "use lib 't/lib'". See http://search.cpan.org/src/MSCHWERN/ExtUtils-MakeMaker-6.23/t/lib/Test/ for an example.

      -- Michael G Schwern

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (11)
As of 2014-07-11 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (224 votes), past polls