This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ensure that C<(state $x) = $y> is not a state assignment
[perl5.git] / t / op / state.t
index 3b68879..6da2478 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 use strict;
 use feature "state";
 
-plan tests => 19;
+plan tests => 25;
 
 ok( ! defined state $uninit, q(state vars are undef by default) );
 
@@ -64,3 +64,24 @@ 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" );
+}
+
+sub stateless {
+    # stateless assignment
+    (state $reinitme) = 42;
+    ++$reinitme;
+}
+is( stateless(), 43, 'stateless function, first time' );
+is( stateless(), 43, 'stateless function, second time' );