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