1 files changed, 13 insertions, 0 deletions
diff --git a/t/win32/getosversion.t b/t/win32/getosversion.t
new file mode 100644
index 0000000000..2a708cb80a
--- /dev/null
+++ b/t/win32/getosversion.t
@@ -0,0 +1,13 @@
+#!perl -w
+
+# tests for Win32::GetOSVersion()
+
+$^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit;
+
+print "1..1\n";
+
+my $scalar = Win32::GetOSVersion();
+my @array  = Win32::GetOSVersion();
+
+print "not " unless $scalar == $array[4];
+print "ok 1\n";