]> git.vpit.fr Git - perl/modules/Scope-Context.git/blobdiff - t/13-valid.t
Implement ->yield
[perl/modules/Scope-Context.git] / t / 13-valid.t
index 1a566f08371ebbec0976ac8d81d81c90ee0fd259..fa7d30ea04e96b0996ce7c6b1ab7a4989d31fb17 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4 + 9;
+use Test::More tests => 4 + 10;
 
 use Scope::Context;
 
@@ -23,7 +23,9 @@ my $fail_rx = qr/^Context has expired at \Q$0\E line [0-9]+/;
 
  my @methods = qw<
   up sub eval
-  reap localize localize_elem localize_delete unwind uplevel
+  reap localize localize_elem localize_delete
+  unwind yield
+  uplevel
  >;
  for my $action (@methods) {
   local $@;