1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1# Check that stray newlines in test output are properly handed. 4*5759b3d2Safresh1 5*5759b3d2Safresh1BEGIN { 6*5759b3d2Safresh1 print "1..0 # Skip not completed\n"; 7*5759b3d2Safresh1 exit 0; 8*5759b3d2Safresh1} 9*5759b3d2Safresh1 10*5759b3d2Safresh1BEGIN { 11*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 12*5759b3d2Safresh1 chdir 't'; 13*5759b3d2Safresh1 @INC = ('../lib', 'lib'); 14*5759b3d2Safresh1 } 15*5759b3d2Safresh1 else { 16*5759b3d2Safresh1 unshift @INC, 't/lib'; 17*5759b3d2Safresh1 } 18*5759b3d2Safresh1} 19*5759b3d2Safresh1chdir 't'; 20*5759b3d2Safresh1 21*5759b3d2Safresh1use Test::Builder::NoOutput; 22*5759b3d2Safresh1my $tb = Test::Builder::NoOutput->create; 23*5759b3d2Safresh1 24*5759b3d2Safresh1$tb->ok(1, "name\n"); 25*5759b3d2Safresh1$tb->ok(0, "foo\nbar\nbaz"); 26*5759b3d2Safresh1$tb->skip("\nmoofer"); 27*5759b3d2Safresh1$tb->todo_skip("foo\n\n"); 28