switches.t: stop testing that -E includes switch

Perl · Jun 13, 2021 · 0bea726 · 0bea726
1 parent 4e72416
commit 0bea726
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/t/run/switches.t b/t/run/switches.t
@@ -12,7 +12,7 @@ BEGIN {
 
 BEGIN { require "./test.pl";  require "./loc_tools.pl"; }
 
-plan(tests => 137);
+plan(tests => 136);
 
 use Config;
 
@@ -693,11 +693,6 @@ $r = runperl(
 );
 is( $r, "Hello, world!\n", "-E ~~" );
 
-$r = runperl(
-    switches	=> [ '-E', '"no warnings q{experimental::smartmatch}; given(undef) {when(undef) { say q(Hello, world!)"}}']
-);
-is( $r, "Hello, world!\n", "-E given" );
-
 $r = runperl(
     switches    => [ '-nE', q("} END { say q/affe/") ],
     stdin       => 'zomtek',