lib/Test/Simple/t/tbm_doesnt_set_exported_to.t

   1 #!/usr/bin/perl -w
   2 # $Id: /mirror/googlecode/test-more/t/tbm_doesnt_set_exported_to.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
   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()'
  25 );