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

   1 #!/usr/bin/perl -w
   2
   3 # plan() used to export functions by mistake [rt.cpan.org 8385]
   4
   5 BEGIN {
   6     if( $ENV{PERL_CORE} ) {
   7         chdir 't';
   8         @INC = '../lib';
   9     }
  10 }
  11
  12
  13 use Test::More ();
  14 Test::More::plan(tests => 1);
  15
  16 Test::More::ok( !__PACKAGE__->can('ok'), 'plan should not export' );