summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
diff options
context:
space:
mode:
authorPeter Martini <PeterCMartini@GMail.com>2014-08-19 21:23:39 -0400
committerPeter Martini <PeterCMartini@GMail.com>2014-08-19 22:00:49 -0400
commit11d55ae189b0816fc5b6764b74cd09ee6704bcbb (patch)
treecc9da6803bd7c4effd23a399e6dda7490d172547 /cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
parentad81d09f91f86467273aeb1e8bc31ea2a0537f36 (diff)
downloadperl-11d55ae189b0816fc5b6764b74cd09ee6704bcbb.tar.gz
Revert Test::Builder changes in prep for 5.21.3
This reverts commit 6bdb88770f849c47b5c09e733ac460ce3e9dbc97 and commit 59c96aebdd56baf5d1979103046b1c6d4e308aa2, which are causing the test suite to run much slower and which are failing on some platforms. http://nntp.perl.org/group/perl.perl5.porters/218678 has further details, with RT 122538 being the ticket number.
Diffstat (limited to 'cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm')
-rw-r--r--cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm75
1 files changed, 0 insertions, 75 deletions
diff --git a/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm b/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
deleted file mode 100644
index 62bb7f2441..0000000000
--- a/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
+++ /dev/null
@@ -1,75 +0,0 @@
-# $Header: /home/fergal/my/cvs/Test-Tester/lib/Test/Tester/CaptureRunner.pm,v 1.3 2003/03/05 01:07:55 fergal Exp $
-use strict;
-
-#warn "Test::Tester::CaptureRunner is deprecated, see Test::Tester2\n";
-
-package Test::Tester::CaptureRunner;
-
-use Test::Tester::Capture;
-require Exporter;
-
-sub new {
- my $pkg = shift;
- my $self = bless {}, $pkg;
- return $self;
-}
-
-sub run_tests {
- my $self = shift;
-
- my $test = shift;
-
- capture()->reset;
-
- $self->{StartLevel} = $Test::Builder::Level;
- &$test();
-}
-
-sub get_results {
- my $self = shift;
- my @results = capture()->details;
-
- my $start = $self->{StartLevel};
- foreach my $res (@results) {
- next if defined $res->{depth};
- my $depth = $res->{_depth} - $res->{_level} - $start - 3;
- $res->{depth} = $depth;
- }
-
- return @results;
-}
-
-sub get_premature {
- return capture()->premature;
-}
-
-sub capture {
- return Test::Tester::Capture->new;
-}
-
-__END__
-
-=head1 NAME
-
-Test::Tester::CaptureRunner - *DEPRECATED* Help testing test modules built with Test::Builder
-
-=head1 DEPRECATED
-
-See L<Test::Tester2> for a modern and maintained alternative.
-
-=head1 DESCRIPTION
-
-This stuff if needed to allow me to play with other ways of monitoring the
-test results.
-
-=head1 AUTHOR
-
-Copyright 2003 by Fergal Daly <fergal@esatclear.ie>.
-
-=head1 LICENSE
-
-Under the same license as Perl itself
-
-See http://www.perl.com/perl/misc/Artistic.html
-
-=cut