]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blob - t/00-load.t
More tests for t/31-array.t
[perl/modules/Variable-Magic.git] / t / 00-load.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 1;
7
8 BEGIN {
9         use_ok( 'Variable::Magic' );
10 }
11
12 my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
13 $p = $p ? 'patchlevel ' . $p : 'no patchlevel';
14 diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
15
16 if ($^O eq 'MSWin32' && eval { require Win32; 1 }
17                      && defined &Win32::BuildNumber) {
18  diag "This is ActiveState Perl $] build " . Win32::BuildNumber();
19 }