6 # $id, $major, $minor, $pt, $build, $tag
9 [ "Win95", 1, 4, 0, 0, 67109814, "(a)" ],
10 [ "Win95", 1, 4, 0, 0, 67306684, "(b1)" ],
11 [ "Win95", 1, 4, 0, 0, 67109975, "(b2)" ],
12 [ "Win98", 1, 4, 10 ],
13 [ "Win98", 1, 4, 10, 0, 67766446, "(2nd ed)" ],
14 [ "WinMe", 1, 4, 90 ],
15 [ "WinNT3.51", 2, 3, 51 ],
16 [ "WinNT4", 2, 4, 0 ],
17 [ "Win2000", 2, 5, 0 ],
18 [ "WinXP/.Net", 2, 5, 1 ],
19 [ "Win2003", 2, 5, 2 ],
20 [ "WinVista", 2, 6, 0, 1 ],
21 [ "Win2008", 2, 6, 0, 2 ],
25 plan tests => 2*scalar(@tests) + 1;
27 # Test internal implementation function
28 for my $test (@tests) {
29 my($expect, $id, $major, $minor, $pt, $build, $tag) = @$test;
30 my($os, $desc) = Win32::_GetOSName("", $major, $minor, $build||0, $id, $pt);
35 # Does Win32::GetOSName() return the correct value for the current OS?
36 my(undef, $major, $minor, $build, $id, undef, undef, undef, $pt)
37 = Win32::GetOSVersion();
38 my($os, $desc) = Win32::_GetOSName("", $major, $minor, $build, $id, $pt);
39 ok(scalar Win32::GetOSName(), $os);