From 7ddd1a01ef22f1bc137d869ae726178f12ff8714 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 17 Sep 2007 12:21:01 +0000
Subject: [PATCH] Some more state variable deparse tests.

p4raw-id: //depot/perl@31885
---
 ext/B/t/deparse.t | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 3d3df2d..bda7937 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -22,7 +22,7 @@ BEGIN {
 use warnings;
 use strict;
 use feature ":5.10";
-use Test::More tests => 52;
+use Test::More tests => 54;
 
 use B::Deparse;
 my $deparse = B::Deparse->new();
@@ -337,8 +337,20 @@ my $bar;
 # 44
 'Foo'->bar;
 ####
-# 45 state vars
+# 45 say
+say 'foo';
+####
+# 46 state vars
 state $x = 42;
 ####
-# 46 say
-say 'foo';
+# 47 state var assignment
+{
+    my $y = (state $x = 42);
+}
+####
+# 48 state vars in anoymous subroutines
+$a = sub {
+    state $x;
+    return $x++;
+}
+;
-- 
2.7.4