t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 21;
   7
   8 require Variable::Magic;
   9
  10 for (qw/wizard gensig getsig cast getdata dispell
  11         SIG_MIN SIG_MAX SIG_NBR
  12         MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR
  13         VMG_COMPAT_ARRAY_PUSH_NOLEN  VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
  14         VMG_COMPAT_ARRAY_UNDEF_CLEAR VMG_COMPAT_SCALAR_LENGTH_NOLEN
  15         VMG_PERL_PATCHLEVEL
  16         VMG_THREADSAFE
  17         VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/) {
  18  eval { Variable::Magic->import($_) };
  19  is($@, '', 'import ' . $_);
  20 }