Commit | Line | Data |
---|---|---|
04955c14 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
8 | } | |
9 | ||
10 | use strict; | |
11 | use warnings; | |
12 | ||
13 | # Can't use Test::More, that would set exported_to() | |
14 | use Test::Builder; | |
15 | use Test::Builder::Module; | |
16 | ||
17 | my $TB = Test::Builder->create; | |
18 | $TB->plan( tests => 1 ); | |
19 | $TB->level(0); | |
20 | ||
21 | $TB->is_eq( Test::Builder::Module->builder->exported_to, | |
22 | undef, | |
23 | 'using Test::Builder::Module does not set exported_to()' | |
ccbd73a4 | 24 | ); |