Implement uplevel()

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

diff --git a/t/01-import.t b/t/01-import.t
index 2699c192401b0ce6529a8a53513665140e537e17..de0260adc6318df792db73f55062767bd4a997f6 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 * 14;
+use Test::More tests => 2 * 15;
 
 require Scope::Upper;
 
@@ -14,6 +14,7 @@ my %syms = (
  localize_delete => '$$;$',
  unwind          => undef,
  want_at         => ';$',
+ uplevel         => '&@',
  TOP             => '',
  HERE            => '',
  UP              => ';$',