More tests for different op types

[perl/modules/Variable-Magic.git] / t / 00-load.t

diff --git a/t/00-load.t b/t/00-load.t
index 14ed036eb1ff136cda2fcb01b9c5a92f115cd1bd..d130892c33a4392658d88603bac122852dfd469b 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -1,9 +1,19 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 1;
 
 BEGIN {
        use_ok( 'Variable::Magic' );
 }
 
-diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $], $^X" );
+my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
+$p = $p ? 'patchlevel ' . $p : 'no patchlevel';
+diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
+
+if ($^O eq 'MSWin32' && eval { require Win32; 1 }
+                     && defined &Win32::BuildNumber) {
+ diag "This is ActiveState Perl $] build " . Win32::BuildNumber();
+}