Actually note that Shell.pm is deprecated for 5.13 and 5.14, so we can

[p5sagit/p5-mst-13.2.git] / cpan / Win32 / t / GetOSName.t

use strict;\r
use Test;\r
use Win32;\r
\r
my @tests = (\r
    #              $id, $major, $minor, $pt, $build, $tag\r
    [ "WinWin32s",   0                                  ],\r
    [ "Win95",       1, 4,  0                           ],\r
    [ "Win95",       1, 4,  0,  0, 67109814, "(a)"      ],\r
    [ "Win95",       1, 4,  0,  0, 67306684, "(b1)"     ],\r
    [ "Win95",       1, 4,  0,  0, 67109975, "(b2)"     ],\r
    [ "Win98",       1, 4, 10                           ],\r
    [ "Win98",       1, 4, 10,  0, 67766446, "(2nd ed)" ],\r
    [ "WinMe",       1, 4, 90                           ],\r
    [ "WinNT3.51",   2, 3, 51                           ],\r
    [ "WinNT4",      2, 4,  0                           ],\r
    [ "Win2000",     2, 5,  0                           ],\r
    [ "WinXP/.Net",  2, 5,  1                           ],\r
    [ "Win2003",     2, 5,  2                           ],\r
    [ "WinVista",    2, 6,  0,  1                       ],\r
    [ "Win2008",     2, 6,  0,  2                       ],\r
    [ "Win7",        2, 6,  1                           ],\r
);\r
\r
plan tests => 2*scalar(@tests) + 1;\r
\r
# Test internal implementation function\r
for my $test (@tests) {\r
    my($expect, $id, $major, $minor, $pt, $build, $tag) = @$test;\r
    my($os, $desc) = Win32::_GetOSName("", $major, $minor, $build||0, $id, $pt);\r
    ok($os, $expect);\r
    ok($desc, $tag||"");\r
}\r
\r
# Does Win32::GetOSName() return the correct value for the current OS?\r
my(undef, $major, $minor, $build, $id, undef, undef, undef, $pt)\r
    = Win32::GetOSVersion();\r
my($os, $desc) = Win32::_GetOSName("", $major, $minor, $build, $id, $pt);\r
ok(scalar Win32::GetOSName(), $os);\r