X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F01-import.t;h=b7be4ce07c5140eb847d8fdadebaec46553a6fc2;hb=9313f2dc8e1f534131fee3e6235f4a533396a0ac;hp=5dc418d15bbb374ddc3d0516d85ccde39a5f3917;hpb=6a204757f3b9c5d10bc57e21cbb65c0e29688066;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/01-import.t b/t/01-import.t index 5dc418d..b7be4ce 100644 --- a/t/01-import.t +++ b/t/01-import.t @@ -3,28 +3,26 @@ use strict; use warnings; -use Test::More tests => 2 * 23; +use Test::More tests => 2 * 19; require Variable::Magic; my %syms = ( wizard => undef, - gensig => '', - getsig => '$', cast => '\[$@%&*]$@', getdata => '\[$@%&*]$', dispell => '\[$@%&*]$', - map { $_ => '' } qw/ - SIG_MIN SIG_MAX SIG_NBR + map { $_ => '' } qw< MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID VMG_COMPAT_ARRAY_UNDEF_CLEAR VMG_COMPAT_SCALAR_LENGTH_NOLEN + VMG_COMPAT_GLOB_GET VMG_PERL_PATCHLEVEL VMG_THREADSAFE VMG_FORKSAFE VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT - / + > ); for (sort keys %syms) {