B::Deparse tests: turn on "switch" to test break() behavior

Perl · Jun 13, 2021 · 96f2357 · 96f2357
1 parent 8065350
commit 96f2357
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t
@@ -87,6 +87,7 @@ sub testit {
             no strict 'vars';
             $code = "sub { state sub $keyword; ${vars}() = $expr }";
             $code = "use feature 'isa';\n$code" if $keyword eq "isa";
+            $code = "use feature 'switch';\n$code" if $keyword eq "break";
             $code_ref = eval $code or die "$@ in $expr";
         }
         else {
@@ -96,6 +97,7 @@ sub testit {
             import subs $keyword;
             $code = "no strict 'vars'; sub { ${vars}() = $expr }";
             $code = "use feature 'isa';\n$code" if $keyword eq "isa";
+            $code = "use feature 'switch';\n$code" if $keyword eq "break";
             $code_ref = eval $code or die "$@ in $expr";
         }