diff options
Diffstat (limited to 'gnu/usr.bin/perl/dist/Safe/t/safeload.t')
| -rwxr-xr-x | gnu/usr.bin/perl/dist/Safe/t/safeload.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/dist/Safe/t/safeload.t b/gnu/usr.bin/perl/dist/Safe/t/safeload.t index 6ff7a762eaf..4d4e7b56899 100755 --- a/gnu/usr.bin/perl/dist/Safe/t/safeload.t +++ b/gnu/usr.bin/perl/dist/Safe/t/safeload.t @@ -18,13 +18,17 @@ BEGIN { use strict; use Test::More; use Safe; -plan(tests => 2); +plan(tests => 3); my $c = new Safe; $c->permit(qw(require caller entereval unpack)); my $r = $c->reval(q{ use version; 1 }); ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@; +$r = $c->reval(q{ version->new(1.2) }); +is(ref $r, "Safe::Root0::version", "version objects rerooted"); +$r or diag $@; + # Does this test really belong here? We are testing the "loading" of # a perl version number. # This should died because of strictures under 5.12+ and because of the |