]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blob - t/01-import.t
Fix goto &xsub in uplevel
[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 * 15;
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  TOP             => '',
19  HERE            => '',
20  UP              => ';$',
21  SUB             => ';$',
22  EVAL            => ';$',
23  SCOPE           => ';$',
24  CALLER          => ';$',
25  SU_THREADSAFE   => '',
26 );
27
28 for (keys %syms) {
29  eval { Scope::Upper->import($_) };
30  is $@,            '',        "import $_";
31  is prototype($_), $syms{$_}, "prototype $_";
32 }