diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/t/note.t')
-rw-r--r-- | gnu/usr.bin/perl/lib/Test/t/note.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/t/note.t b/gnu/usr.bin/perl/lib/Test/t/note.t deleted file mode 100644 index 1142b426ed1..00000000000 --- a/gnu/usr.bin/perl/lib/Test/t/note.t +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl -w - -BEGIN { - if( $ENV{PERL_CORE} ) { - chdir 't'; - @INC = ('../lib', 'lib'); - } - else { - unshift @INC, 't/lib'; - } -} - -use strict; -use warnings; - -use TieOut; - -use Test::More tests => 2; - -{ - my $test = Test::More->builder; - - my $output = tie *FAKEOUT, "TieOut"; - my $fail_output = tie *FAKEERR, "TieOut"; - $test->output (*FAKEOUT); - $test->failure_output(*FAKEERR); - - note("foo"); - - $test->reset_outputs; - - is $output->read, "# foo\n"; - is $fail_output->read, ''; -} - |