3 # Check that stray newlines in test output are probably handed.
6 print "1..0 # Skip not completed\n";
11 if( $ENV{PERL_CORE} ) {
13 @INC = ('../lib', 'lib');
16 unshift @INC, 't/lib';
23 my $out = tie *FAKEOUT, 'TieOut';
27 my $Test = Test::Builder->new;
28 my $orig_out = $Test->output;
29 my $orig_err = $Test->failure_output;
30 my $orig_todo = $Test->todo_output;
32 $Test->output(\*FAKEOUT);
33 $Test->failure_output(\*FAKEOUT);
34 $Test->todo_output(\*FAKEOUT);
37 $Test->ok(1, "name\n");
38 $Test->ok(0, "foo\nbar\nbaz");
39 $Test->skip("\nmoofer");
40 $Test->todo_skip("foo\n\n");