diff options
Diffstat (limited to 'cpan/Test-Simple/t/strays.t')
-rw-r--r-- | cpan/Test-Simple/t/strays.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/strays.t b/cpan/Test-Simple/t/strays.t new file mode 100644 index 0000000000..02a99ab996 --- /dev/null +++ b/cpan/Test-Simple/t/strays.t @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w + +# Check that stray newlines in test output are properly handed. + +BEGIN { + print "1..0 # Skip not completed\n"; + exit 0; +} + +BEGIN { + if( $ENV{PERL_CORE} ) { + chdir 't'; + @INC = ('../lib', 'lib'); + } + else { + unshift @INC, 't/lib'; + } +} +chdir 't'; + +use Test::Builder::NoOutput; +my $tb = Test::Builder::NoOutput->create; + +$tb->ok(1, "name\n"); +$tb->ok(0, "foo\nbar\nbaz"); +$tb->skip("\nmoofer"); +$tb->todo_skip("foo\n\n"); |