]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blobdiff - t/01-import.t
fix unwind()
[perl/modules/Scope-Upper.git] / t / 01-import.t
index de0260adc6318df792db73f55062767bd4a997f6..700f9b32b3a1df59eeb44a88551c5db4d604370b 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * 15;
+use Test::More tests => 2 * 20;
 
 require Scope::Upper;
 
@@ -13,8 +13,13 @@ my %syms = (
  localize_elem   => '$$$;$',
  localize_delete => '$$;$',
  unwind          => undef,
+ yield           => undef,
+ leave           => undef,
  want_at         => ';$',
+ context_info    => ';$',
  uplevel         => '&@',
+ uid             => ';$',
+ validate_uid    => '$',
  TOP             => '',
  HERE            => '',
  UP              => ';$',