]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blob - t/01-import.t
Require Module::ExtractUse 0.24 for the Kwalitee test
[perl/modules/Scope-Upper.git] / t / 01-import.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 2 * 17;
7
8 require Scope::Upper;
9
10 my %syms = (
11  reap            => '&;$',
12  localize        => '$$;$',
13  localize_elem   => '$$$;$',
14  localize_delete => '$$;$',
15  unwind          => undef,
16  want_at         => ';$',
17  uplevel         => '&@',
18  uid             => ';$',
19  validate_uid    => '$',
20  TOP             => '',
21  HERE            => '',
22  UP              => ';$',
23  SUB             => ';$',
24  EVAL            => ';$',
25  SCOPE           => ';$',
26  CALLER          => ';$',
27  SU_THREADSAFE   => '',
28 );
29
30 for (keys %syms) {
31  eval { Scope::Upper->import($_) };
32  is $@,            '',        "import $_";
33  is prototype($_), $syms{$_}, "prototype $_";
34 }