Fix [perl #27357] Scalar Win32::GetOSVersion() broken in 5.8.3

[perl5.git] / t / win32 / getosversion.t

diff --git a/t/win32/getosversion.t b/t/win32/getosversion.t
new file mode 100644 (file)
index 0000000..2a708cb
--- /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";