diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
| commit | 6fb12b7054efc6b436584db6cef9c2f85c0d7e27 (patch) | |
| tree | aa09a524574ec7ae2f521a24573deeecb78ff66a /gnu/usr.bin/perl/cpan/Test-Simple/t/lib | |
| parent | Add the Cammelia cipher to libcrypto. (diff) | |
| download | wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.tar.xz wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.zip | |
Import perl-5.20.1
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test-Simple/t/lib')
3 files changed, 25 insertions, 6 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Builder/NoOutput.pm b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Builder/NoOutput.pm index d83db9f1785..bbdf73268fb 100644 --- a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Builder/NoOutput.pm +++ b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Builder/NoOutput.pm @@ -3,6 +3,7 @@ package Test::Builder::NoOutput; use strict; use warnings; +use Symbol qw(gensym); use base qw(Test::Builder); @@ -60,17 +61,19 @@ sub create { ); $self->{_outputs} = \%outputs; - tie *OUT, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{out}; - tie *ERR, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{err}; - tie *TODO, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{todo}; + my($out, $err, $todo) = map { gensym() } 1..3; + tie *$out, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{out}; + tie *$err, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{err}; + tie *$todo, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{todo}; - $self->output(*OUT); - $self->failure_output(*ERR); - $self->todo_output(*TODO); + $self->output($out); + $self->failure_output($err); + $self->todo_output($todo); return $self; } + sub read { my $self = shift; my $stream = @_ ? shift : 'all'; diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/missing_done_testing.plx b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/missing_done_testing.plx new file mode 100644 index 00000000000..d1b576c90d6 --- /dev/null +++ b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/missing_done_testing.plx @@ -0,0 +1,8 @@ +require Test::Simple; + +push @INC, 't/lib'; +require Test::Simple::Catch; +my($out, $err) = Test::Simple::Catch::caught(); + +Test::Simple->import(); +ok(1); diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/one_fail_without_plan.plx b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/one_fail_without_plan.plx new file mode 100644 index 00000000000..8b276cae0a7 --- /dev/null +++ b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/one_fail_without_plan.plx @@ -0,0 +1,8 @@ +require Test::Simple; + +push @INC, 't/lib'; +require Test::Simple::Catch; +my($out, $err) = Test::Simple::Catch::caught(); + +Test::Simple->import(); +ok(0); |