Test-Simple syncup from Schwern.

[perl5.git] / t / lib / Test / Simple / Catch.pm

# For testing Test::Simple;
package Test::Simple::Catch;

my $out = tie *Test::Simple::TESTOUT, __PACKAGE__;
my $err = tie *Test::Simple::TESTERR, __PACKAGE__;

# We have to use them to shut up a "used only once" warning.
() = (*Test::Simple::TESTOUT, *Test::Simple::TESTERR);

sub caught { return $out, $err }

# Prevent Test::Simple from exiting in its END block.
*Test::Simple::exit = sub {};

sub PRINT  {
    my $self = shift;
    $$self .= join '', @_;
}

sub TIEHANDLE {
    my $class = shift;
    my $self = '';
    return bless \$self, $class;
}
sub READ {}
sub READLINE {}
sub GETC {}

1;