Commit | Line | Data |
---|---|---|
3e887aae | 1 | #!/usr/bin/perl -w |
2 | ||
33459055 | 3 | BEGIN { |
a9153838 | 4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't'; | |
6 | @INC = ('../lib', 'lib'); | |
7 | } | |
8 | else { | |
9 | unshift @INC, 't/lib'; | |
10 | } | |
33459055 | 11 | } |
12 | ||
3e887aae | 13 | use strict; |
4dd974da | 14 | |
3e887aae | 15 | use Test::More tests => 1; |
4dd974da | 16 | |
3e887aae | 17 | use Test::Builder::NoOutput; |
4dd974da | 18 | |
3e887aae | 19 | { |
20 | my $tb = Test::Builder::NoOutput->create; | |
4dd974da | 21 | |
3e887aae | 22 | $tb->plan('no_plan'); |
4dd974da | 23 | |
3e887aae | 24 | $tb->ok(1, 'foo'); |
25 | $tb->_ending; | |
4dd974da | 26 | |
3e887aae | 27 | is($tb->read, <<OUT); |
4dd974da | 28 | ok 1 - foo |
29 | 1..1 | |
30 | OUT | |
4dd974da | 31 | } |
3e887aae | 32 |