From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 18 Jan 2008 09:18:58 +0000 (+0000)
Subject: New tests for new ops. Most of them are TODO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bc6199fc694e61559f60ee608c213e081ea046a;p=p5sagit%2Fp5-mst-13.2.git

New tests for new ops. Most of them are TODO

p4raw-id: //depot/perl@32995
---

diff --git a/ext/Safe/t/safeops.t b/ext/Safe/t/safeops.t
index 7734e60..229672e 100644
--- a/ext/Safe/t/safeops.t
+++ b/ext/Safe/t/safeops.t
@@ -49,7 +49,7 @@ plan(tests => scalar @op);
 sub testop {
     my ($op, $opname, $code) = @_;
     pass("$op : skipped") and return if $code =~ /^SKIP/;
-    pass("$op : skipped") and return if $code =~ m://: && $] < 5.009; # no dor
+    pass("$op : skipped") and return if $code =~ m://|~~: && $] < 5.010;
     my $c = new Safe;
     $c->deny_only($op);
     $c->reval($code);
@@ -423,4 +423,10 @@ setstate	SKIP
 method_named	$x->y()
 dor		$x // $y
 dorassign	$x //= $y
+once		SKIP {use feature 'state'; state $foo = 42;}
+say		SKIP {use feature 'say'; say "foo";}
+smartmatch	$x ~~ $y
+aeach		SKIP each @t
+akeys		SKIP keys @t
+avalues		SKIP values @t
 custom		SKIP (no way)