t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 14;
   7
   8 require Scope::Upper;
   9
  10 for (qw/reap localize localize_elem localize_delete unwind want_at
  11         TOP HERE UP SUB EVAL SCOPE CALLER
  12         SU_THREADSAFE/) {
  13  eval { Scope::Upper->import($_) };
  14  is($@, '', 'import ' . $_);
  15 }