git.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/tbm_doesnt_set_exported_to.t

   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()'
  24 );