Update Win32 to CPAN version 0.46

[perl5.git] / cpan / Win32 / t / GetOSName.t

diff --git a/cpan/Win32/t/GetOSName.t b/cpan/Win32/t/GetOSName.t
index 32a43df..07fed88 100644 (file)
--- a/cpan/Win32/t/GetOSName.t
+++ b/cpan/Win32/t/GetOSName.t
@@ -99,8 +99,9 @@ my @dual_tests = (
 ["7 [Enterprise]",                  "7",       2, 6, 1, 0x04         ],\r
 ["7 [Ultimate]",                    "7",       2, 6, 1, 0x01         ],\r
 \r
-\r
+["8",                               "8",       2, 6, 2               ],\r
 ["2008 [R2]",                       "2008",    2, 6, 1, 0x00, 2, 89  ],\r
+["2012",                            "2012",    2, 6, 2, 0x00, 2, 89  ],\r
 ["[Small Business Server] 2008 R2", "2008",    2, 6, 1, 0x09, 2, 89  ],\r
 \r
 );\r
@@ -127,7 +128,7 @@ sub check {
     # and 2003/2008 start with "Windows Server"\r
     unless ($pretty eq "Win32s") {\r
        my $prefix = "Windows";\r
-       $prefix .= " Server" if $pretty =~ /^200[38]/;\r
+       $prefix .= " Server" if $pretty =~ /^20(03|08|12)/;\r
        $pretty = "$prefix $pretty";\r
     }\r
 \r