Skip tests when running on Windows 95

Author: jandubois

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Win32::NetAdmin.
 
+0.11  Wed Jul 02 2008
+        - Skip tests when running on Windows 95.
+
 0.10  Mon Jun 23 2008
         - Skip tests when not running as an administrator.
 

META.yml

@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: Win32-NetAdmin
 abstract: Manage network groups and users in Perl
-version: 0.10
+version: 0.11
 author:
   - Jan Dubois <[email protected]>
 license: perl

NetAdmin.pm

@@ -5,7 +5,7 @@ package Win32::NetAdmin;
 #Written by [email protected]
 #
 
-$VERSION = '0.10';
+$VERSION = '0.11';
 
 require Exporter;
 require DynaLoader;

t/netadmin.t

@@ -5,11 +5,15 @@ use Test;
 
 BEGIN {
     eval {require Win32};
+    unless (defined &Win32::IsWinNT && Win32::IsWinNT()) {
+        print"1..0 # skip Win32::NetAdmin only works on Windows NT and later\n";
+	exit 0;
+    }
     unless (defined &Win32::IsAdminUser && Win32::IsAdminUser()) {
 	print"1..0 # skip Must be running as an administrator\n";
 	exit 0;
     }
-};
+}
 
 use Win32::NetAdmin qw(:DEFAULT UserCreate UserDelete UserGetAttributes
 		       LocalGroupCreate LocalGroupGetAttributes LocalGroupAddUsers