Move Safe from ext/ to dist/
[perl.git] / dist / 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 $@;