This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
New test case for state variables with ties, suggested by Nicholas
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 22:40:28 +0000 (22:40 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 22:40:28 +0000 (22:40 +0000)
p4raw-id: //depot/perl@28088

t/op/state.t

index 3b68879..260fa8b 100644 (file)
@@ -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" );
+}