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