1#!perl -w
2
3BEGIN {
4    require Config; import Config;
5    if ($Config{'extensions'} !~ /\bOpcode\b/) {
6        print "1..0\n";
7        exit 0;
8    }
9}
10
11use Test::More tests => 3;
12use Safe;
13
14my $c; my $r;
15my $snippet = q{
16    my $foo = qr/foo/;
17    ref $foo;
18};
19$c = new Safe;
20$r = $c->reval($snippet);
21is( $r, "Safe::Root0::Regexp" );
22$r or diag $@;
23
24# once more with the same compartment
25# (where DESTROY has been cleaned up)
26$r = $c->reval($snippet);
27is( $r, "Safe::Root0::Regexp" );
28$r or diag $@;
29
30# try with a new compartment
31$c = new Safe;
32$r = $c->reval($snippet);
33is( $r, "Safe::Root1::Regexp" );
34$r or diag $@;
35