]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blob - t/01-import.t
Add more glob tests
[perl/modules/Variable-Magic.git] / t / 01-import.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 2 * 19;
7
8 require Variable::Magic;
9
10 my %syms = (
11  wizard   => undef,
12  cast     => '\[$@%&*]$@',
13  getdata  => '\[$@%&*]$',
14  dispell  => '\[$@%&*]$',
15  map { $_ => '' } qw/
16   MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR
17   VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID
18   VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
19   VMG_COMPAT_ARRAY_UNDEF_CLEAR
20   VMG_COMPAT_SCALAR_LENGTH_NOLEN
21   VMG_COMPAT_GLOB_GET
22   VMG_PERL_PATCHLEVEL
23   VMG_THREADSAFE VMG_FORKSAFE
24   VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
25  /
26 );
27
28 for (sort keys %syms) {
29  eval { Variable::Magic->import($_) };
30  is $@,            '',        "import $_";
31  is prototype($_), $syms{$_}, "prototype $_";
32 }