Test 'return from do' in special cases

[perl/modules/Scope-Upper.git] / t / 01-import.t

diff --git a/t/01-import.t b/t/01-import.t
index d27e6b9bd0c02adeff8cd9e7ebc2b7860873bb7c..247470562e4fea918e6ff7edc63ff0dc889b427d 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * 17;
+use Test::More tests => 2 * 19;
 
 require Scope::Upper;
 
@@ -13,6 +13,8 @@ my %syms = (
  localize_elem   => '$$$;$',
  localize_delete => '$$;$',
  unwind          => undef,
+ yield           => undef,
+ leave           => undef,
  want_at         => ';$',
  uplevel         => '&@',
  uid             => ';$',