A better test for imports

diff --git a/t/01-import.t b/t/01-import.t
index da61bbc9d57789ee9e27544add8ea8b27572a6f6..2699c192401b0ce6529a8a53513665140e537e17 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -3,13 +3,29 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 2 * 14;
 
 require Scope::Upper;
 
-for (qw/reap localize localize_elem localize_delete unwind want_at
-        TOP HERE UP SUB EVAL SCOPE CALLER
-        SU_THREADSAFE/) {
+my %syms = (
+ reap            => '&;$',
+ localize        => '$$;$',
+ localize_elem   => '$$$;$',
+ localize_delete => '$$;$',
+ unwind          => undef,
+ want_at         => ';$',
+ TOP             => '',
+ HERE            => '',
+ UP              => ';$',
+ SUB             => ';$',
+ EVAL            => ';$',
+ SCOPE           => ';$',
+ CALLER          => ';$',
+ SU_THREADSAFE   => '',
+);
+
+for (keys %syms) {
  eval { Scope::Upper->import($_) };
- is($@, '', 'import ' . $_);
+ is $@,            '',        "import $_";
+ is prototype($_), $syms{$_}, "prototype $_";
 }