Add more level words. Rename TOPLEVEL to TOP

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

diff --git a/t/01-import.t b/t/01-import.t
index 9b3eb0b1a4138ac8642f6557a8aefe76fe41a99b..ef8937c62b698542e158ec150d7aeb23dd039068 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More tests => 9;
 
 require Scope::Upper;
 
-for (qw/reap localize localize_elem TOPLEVEL/) {
+for (qw/reap localize localize_elem TOP CURRENT UP DOWN SUB EVAL/) {
  eval { Scope::Upper->import($_) };
  is($@, '', 'import ' . $_);
 }