ext/Safe/t/safeload.t

   1 #!perl
   2
   3 BEGIN {
   4     require Config;
   5     import Config;
   6     if ($Config{'extensions'} !~ /\bOpcode\b/) {
   7         print "1..0\n";
   8         exit 0;
   9     }
  10     # Can we load the version module ?
  11     eval { require version; 1 } or do {
  12         print "1..0 # no version.pm\n";
  13         exit 0;
  14     };
  15     delete $INC{"version.pm"};
  16 }
  17
  18 use strict;
  19 use Test::More;
  20 use Safe;
  21 plan(tests => 1);
  22
  23 my $c = new Safe;
  24 $c->permit(qw(require caller entereval unpack));
  25 my $r = $c->reval(q{ use version; 1 });
  26 ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@;