Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. Files found in blib\arch: installing files in blib\lib into architecture dependent library tree Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\Win32.dll Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\Win32.exp Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\Win32.lib Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\Win32.pdb Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Win32.pm Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod ok 15 ok 16 ok t/GetLongPathName.............1..36 # '/' => expect '/' => got '/' ok 1 # '//' => expect '//' => got '//' ok 2 # '.' => expect '.' => got '.' ok 3 # '..' => expect '..' => got '..' ok 4 # 'C:' => expect 'C:' => got 'C:' ok 5 # 'C:/' => expect 'C:/' => got 'C:/' ok 6 # 'C:./' => expect 'C:./' => got 'C:./' ok 7 # 'C:/.' => expect 'C:/.' => got 'C:/.' ok 8 # 'C:/..' => expect 'C:/..' => got 'C:/..' ok 9 # 'C:./..' => expect 'C:./..' => got 'C:./..' ok 10 # '//./' => expect '//./' => got '//./' ok 11 # '//.' => expect '//.' => got '//.' ok 12 # '//..' => expect '//..' => got '//..' ok 13 # '//./..' => expect '//./..' => got '//./..' ok 14 # '\' => expect '\' => got '\' ok 15 # '\\' => expect '\\' => got '\\' ok 16 # '.' => expect '.' => got '.' ok 17 # '..' => expect '..' => got '..' ok 18 # 'C:' => expect 'C:' => got 'C:' ok 19 # 'C:\' => expect 'C:\' => got 'C:\' ok 20 # 'C:.\' => expect 'C:.\' => got 'C:.\' ok 21 # 'C:\.' => expect 'C:\.' => got 'C:\.' ok 22 # 'C:\..' => expect 'C:\..' => got 'C:\..' ok 23 # 'C:.\..' => expect 'C:.\..' => got 'C:.\..' ok 24 # '\\.\' => expect '\\.\' => got '\\.\' ok 25 # '\\.' => expect '\\.' => got '\\.' ok 26 # '\\..' => expect '\\..' => got '\\..' ok 27 # '\\.\..' => expect '\\.\..' => got '\\.\..' ok 28 # '../\' => expect '../' => got '../' ok 29 # 'C:.\../\' => expect 'C:.\../' => got 'C:.\../' ok 30 # 'C:/\..//' => expect 'C:/../' => got 'C:/../' ok 31 # 'C://.\/./\' => expect 'C:/.\./' => got 'C:/.\./' ok 32 # '\.\../\' => expect '\.\../' => got '\.\../' ok 33 # '//\..//' => expect '//../' => got '//../' ok 34 # '//.\/./\' => expect '//.\./' => got '//.\./' ok 35 # 'C:\WINNT' => expect 'C:\WINNT' => got 'C:\WINNT' ok 36 ok t/GetOSVersion................1..1 ok 1 ok t/GetShortPathName............1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/GuidGen.....................1..3 ok 1 ok 2 ok 3 ok t/Names.......................1..16 ok 1 - Win32::DomainName() ok 2 - - checking returned domain ok 3 - Win32::GetArchName() ok 4 - - checking returned architecture name ok 5 - Win32::GetChipName() ok 6 - - checking returned chip name ok 7 - Win32::GetOSName() in scalar context ok 8 - - checking returned OS name ok 9 - Win32::GetOSName() in list context ok 10 - - checking returned OS name ok 11 - - checking returned description ok 12 - - checking that OS name is the same in both calls ok 13 - Win32::LoginName() ok 14 - - checking returned login name ok 15 - Win32::NodeName() ok 16 - - checking returned node name ok t/Unicode.....................1..0 # Skip: Needs ActivePerl 820 or Perl 5.8.9 or later skipped all skipped: Needs ActivePerl 820 or Perl 5.8.9 or later All tests successful, 1 test skipped. Files=12, Tests=97, 2 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)