From 91f110e064cd7c194e59e019b83bb7496c1c84d4 Mon Sep 17 00:00:00 2001 From: afresh1 Date: Mon, 24 Mar 2014 14:58:42 +0000 Subject: Import perl-5.18.2 OK espie@ sthen@ deraadt@ --- gnu/usr.bin/perl/dist/Safe/t/safeload.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl/dist/Safe/t/safeload.t') 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 -- cgit v1.2.3-59-g8ed1b