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