unless defined $expected;
my ($testname) = $prog =~ /^# (.*)\n/m;
$testname ||= '';
+ $TODO = $testname =~ s/^TODO //;
$results =~ s/\n+$//;
$expected =~ s/\n+$//;
EXPECT
########
-# strict error behaviour, with 2 extra references
+# strict error behaviour, with 2 extra references
use warnings 'untie';
use Tie::Hash ;
$a = tie %h, Tie::StdHash;
my $c = 42;
tie $c, 'Self', \$c;
}
-die "self-tied scalar not DESTROYd" unless $destroyed == 1;
+die "self-tied scalar not DESTROYed" unless $destroyed == 1;
EXPECT
########
-# Allowed glob self-ties
+# TODO Allowed glob self-ties
my $destroyed = 0;
+my $printed = 0;
sub Self2::TIEHANDLE { bless $_[1], $_[0] }
sub Self2::DESTROY { $destroyed = 1; }
+sub Self2::PRINT { $printed = 1; }
{
use Symbol;
my $c = gensym;
tie *$c, 'Self2', $c;
+ print $c 'Hello';
}
-die "self-tied glob not DESTROYd" unless $destroyed == 1;
+die "self-tied glob not PRINTed" unless $printed == 1;
+die "self-tied glob not DESTROYed" unless $destroyed == 1;
EXPECT
########
my $c = geniosym;
tie *$c, 'Self3', $c;
}
-die "self-tied IO not DESTROYd" unless $destroyed == 1;
+die "self-tied IO not DESTROYed" unless $destroyed == 1;
EXPECT
########
EXPECT
Can't modify constant item in tie at - line 3, near "'main';"
Execution of - aborted due to compilation errors.
+########
+
+# localizing tied hash slices
+$ENV{FooA} = 1;
+$ENV{FooB} = 2;
+print exists $ENV{FooA} ? 1 : 0, "\n";
+print exists $ENV{FooB} ? 2 : 0, "\n";
+print exists $ENV{FooC} ? 3 : 0, "\n";
+{
+ local @ENV{qw(FooA FooC)};
+ print exists $ENV{FooA} ? 4 : 0, "\n";
+ print exists $ENV{FooB} ? 5 : 0, "\n";
+ print exists $ENV{FooC} ? 6 : 0, "\n";
+}
+print exists $ENV{FooA} ? 7 : 0, "\n";
+print exists $ENV{FooB} ? 8 : 0, "\n";
+print exists $ENV{FooC} ? 9 : 0, "\n"; # this should not exist
+EXPECT
+1
+2
+0
+4
+5
+6
+7
+8
+0