view release on metacpan or  search on metacpan

t/app/prove/plugin/metrics.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use App::Prove;
use Test::More tests=>6;

my $sbackup = {};
sub steal_stderr {
    my ($sref) = @_;
    if (!defined($$sbackup{stderr})) {
        open($$sbackup{stderr}, '>&STDERR');
        close(STDERR);
    }
    $$sref = undef;
    open(STDERR, '>', $sref);
}
sub return_stderr {
    if (defined($$sbackup{stderr})) {
        close(STDERR);
        open(STDERR, '>&', $$sbackup{stderr});
        delete($$sbackup{stderr});
    }
}

subtest 'stderr, all data'=>sub {
	plan tests=>16;
	my $prove=App::Prove->new();
	$prove->process_args('-PMetrics=stderr,prefix,PRE,sep, SEP ,subdepth,-1,label,1,rollup,0',glob('t/tests/simple-*.tt'));
	my $serr; steal_stderr(\$serr);
	$prove->run();
	return_stderr();