Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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
Replies are listed 'Best First'.
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 studying the Monastery: (4)
As of 2015-07-30 03:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (269 votes), past polls