switch removal: Safe t/safeops.t

This test only runs in core, so removing smartmatch can match core.
tonycoz · Jul 22, 2024 · dd7261f · dd7261f
1 parent 4c17823
commit dd7261f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
@@ -3,7 +3,7 @@ package Safe;
 use 5.003_11;
 use Scalar::Util qw(reftype refaddr);
 
-$Safe::VERSION = "2.46";
+$Safe::VERSION = "2.47";
 
 # *** Don't declare any lexicals above this point ***
 #

diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t
@@ -45,7 +45,7 @@ plan(tests => scalar @op + 3);
 sub testop {
     my ($op, $opname, $code) = @_;
     pass("$op : skipped") and return if $code =~ /^SKIP/;
-    pass("$op : skipped") and return if $code =~ m://|~~: && $] < 5.010;
+    pass("$op : skipped") and return if $code eq "//" && $] < 5.010;
     my $c = new Safe;
     $c->deny_only($op);
     $c->reval($code);
@@ -453,7 +453,6 @@ dor		$x // $y
 dorassign	$x //= $y
 once		SKIP {use feature 'state'; state $foo = 42;}
 say		SKIP {use feature 'say'; say "foo";}
-smartmatch	no warnings 'deprecated'; $x ~~ $y
 aeach		SKIP each @t
 akeys		SKIP keys @t
 avalues		SKIP values @t