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;
14use warnings;
15
16use Test::Builder::NoOutput;
17
18use Test::More tests => 2;
19
20{
21    my $tb = Test::Builder::NoOutput->create;
22
23    $tb->note("foo");
24
25    $tb->reset_outputs;
26
27    is $tb->read('out'), "# foo\n";
28    is $tb->read('err'), '';
29}
30
31