lib/Test/Simple/t/plan_shouldnt_import.t

   1 #!/usr/bin/perl -w
   2 # $Id: /mirror/googlecode/test-more/t/plan_shouldnt_import.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
   3
   4 # plan() used to export functions by mistake [rt.cpan.org 8385]
   5
   6 BEGIN {
   7     if( $ENV{PERL_CORE} ) {
   8         chdir 't';
   9         @INC = '../lib';
  10     }
  11 }
  12
  13
  14 use Test::More ();
  15 Test::More::plan(tests => 1);
  16
  17 Test::More::ok( !__PACKAGE__->can('ok'), 'plan should not export' );