t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2 * 22;
   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_SCALAR_LENGTH_NOLEN
  18   VMG_COMPAT_SCALAR_NOLEN
  19   VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID
  20   VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
  21   VMG_COMPAT_ARRAY_UNDEF_CLEAR
  22   VMG_COMPAT_HASH_DELETE_NOUVAR_VOID
  23   VMG_COMPAT_CODE_COPY_CLONE
  24   VMG_COMPAT_GLOB_GET
  25   VMG_PERL_PATCHLEVEL
  26   VMG_THREADSAFE VMG_FORKSAFE
  27   VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
  28  >
  29 );
  30
  31 for (sort keys %syms) {
  32  eval { Variable::Magic->import($_) };
  33  is $@,            '',        "import $_";
  34  is prototype($_), $syms{$_}, "prototype $_";
  35 }