1#!perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't';
6        @INC = '../lib';
7    }
8}
9
10use Test::More tests => 1;
11
12tie *STDOUT, "Dev::Null" or die $!;
13
14print "not ok 1\n";     # this should not print.
15pass 'STDOUT can be mucked with';
16
17
18package Dev::Null;
19
20sub TIEHANDLE { bless {} }
21sub PRINT { 1 }
22