This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More tests for Safe
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 17 Oct 2007 07:39:16 +0000 (07:39 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 17 Oct 2007 07:39:16 +0000 (07:39 +0000)
p4raw-id: //depot/perl@32117

ext/Safe/t/safeuniversal.t

index 6690f5f..d37d7ca 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 
 BEGIN {
-    if($ENV{PERL_CORE}) {
+    if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
        @INC = '../lib';
     }
@@ -16,9 +16,10 @@ BEGIN {
 use strict;
 use Test::More;
 use Safe;
-plan(tests => 2);
+plan(tests => 6);
 
 my $c = new Safe;
+$c->permit(qw(require caller));
 
 my $r = $c->reval(q!
     sub UNIVERSAL::isa { "pwned" }
@@ -27,3 +28,19 @@ my $r = $c->reval(q!
 
 is( $r, "pwned", "isa overriden in compartment" );
 is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" );
+
+sub Foo::foo {}
+
+$r = $c->reval(q!
+    sub UNIVERSAL::can { "pwned" }
+    (bless[],"Foo")->can("foo");
+!);
+
+is( $r, "pwned", "can overriden in compartment" );
+is( (bless[],"Foo")->can("foo"), \&Foo::foo, "... but not outside" );
+
+$r = $c->reval(q!
+    utf8::is_utf8("\x{100}");
+!);
+is( $@, '', 'can call utf8::is_valid' );
+is( $r, 1, '... returns 1' );