Test croaks inadvertently rmvd by bd2688c4c

diff --git a/t/lib/croak/op b/t/lib/croak/op
index d71be34..8be9b12 100644 (file)
--- a/t/lib/croak/op
+++ b/t/lib/croak/op
@@ -62,6 +62,18 @@ EXPECT
 Can't declare do block in "my" at - line 1, at EOF
 Execution of - aborted due to compilation errors.
 ########
+# NAME ($_, state $x) = ...
+($_, CORE::state $x) = ();
+EXPECT
+Initialization of state variables in list context currently forbidden at - line 1, near ");"
+Execution of - aborted due to compilation errors.
+########
+# NAME my $y; ($y, state $x) = ...
+my $y; ($y, CORE::state $x) = ();
+EXPECT
+Initialization of state variables in list context currently forbidden at - line 1, near ");"
+Execution of - aborted due to compilation errors.
+########
 # NAME delete BAD
 delete $x;
 EXPECT