New test case for state variables with ties, suggested by Nicholas

p4raw-id: //depot/perl@28088

diff --git a/t/op/state.t b/t/op/state.t
index 3b68879600d445c7f75b704491b9ce27f25de947..260fa8bf387b6e52f3318f1148a0c0abad8b5474 100644 (file)
--- a/t/op/state.t
+++ b/t/op/state.t
@@ -9,7 +9,7 @@ BEGIN {
 use strict;
 use feature "state";
 
-plan tests => 19;
+plan tests => 23;
 
 ok( ! defined state $uninit, q(state vars are undef by default) );
 
@@ -64,3 +64,16 @@ my $f2 = generator();
 is( $f2->(), 1, 'generator 2' );
 is( $f1->(), 3, 'generator 1 again' );
 is( $f2->(), 2, 'generator 2 once more' );
+
+{
+    package countfetches;
+    our $fetchcount = 0;
+    sub TIESCALAR {bless {}};
+    sub FETCH { ++$fetchcount; 18 };
+    tie my $y, "countfetches";
+    sub foo { state $x = $y; $x++ }
+    ::is( foo(), 18, "initialisation with tied variable" );
+    ::is( foo(), 19, "increments correctly" );
+    ::is( foo(), 20, "increments correctly, twice" );
+    ::is( $fetchcount, 1, "fetch only called once" );
+}