Change 32995 by [EMAIL PROTECTED] on 2008/01/18 09:18:58
New tests for new ops. Most of them are TODO
Affected files ...
... //depot/perl/ext/Safe/t/safeops.t#5 edit
Differences ...
==== //depot/perl/ext/Safe/t/safeops.t#5 (text) ====
Index: perl/ext/Safe/t/safeops.t
--- perl/ext/Safe/t/safeops.t#4~29250~ 2006-11-12 14:17:30.000000000 -0800
+++ perl/ext/Safe/t/safeops.t 2008-01-18 01:18:58.000000000 -0800
@@ -49,7 +49,7 @@
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 @@
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)
End of Patch.
