diff options
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index d3bd45274d..6e73ceec85 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -183,7 +183,7 @@ die "self-tied scalar not DESTROYed" unless $destroyed == 1; EXPECT ######## -# TODO Allowed glob self-ties +# Allowed glob self-ties my $destroyed = 0; my $printed = 0; sub Self2::TIEHANDLE { bless $_[1], $_[0] } @@ -204,15 +204,34 @@ EXPECT my $destroyed = 0; sub Self3::TIEHANDLE { bless $_[1], $_[0] } sub Self3::DESTROY { $destroyed = 1; } +sub Self3::PRINT { $printed = 1; } { use Symbol 'geniosym'; my $c = geniosym; tie *$c, 'Self3', $c; + print $c 'Hello'; } +die "self-tied IO not PRINTed" unless $printed == 1; die "self-tied IO not DESTROYed" unless $destroyed == 1; EXPECT ######## +# TODO IO "self-tie" via TEMP glob +my $destroyed = 0; +sub Self3::TIEHANDLE { bless $_[1], $_[0] } +sub Self3::DESTROY { $destroyed = 1; } +sub Self3::PRINT { $printed = 1; } +{ + use Symbol 'geniosym'; + my $c = geniosym; + tie *$c, 'Self3', \*$c; + print $c 'Hello'; +} +die "IO tied to TEMP glob not PRINTed" unless $printed == 1; +die "IO tied to TEMP glob not DESTROYed" unless $destroyed == 1; +EXPECT +######## + # Interaction of tie and vec my ($a, $b); |