Jan Dubois wrote:
I've uploaded Win32-0.27_02.tar.gz to CPAN. The search.cpan.org diff is
much bigger than it needs to be, so I have attached a better diff for
review to this message.
Testing on Win32 with VC6, there's one warning produced when building:
Didn't find a 'MODULE ... PACKAGE ... PREFIX' line
Otherwise looks OK with a threaded bleadperl, but with a non-threaded
one (I built with "nmake USE_MULTI=undef USE_ITHREADS=undef
USE_IMP_SYS-undef") lots of tests fail:
C:\Temp\Win32-0.27_02>nmake test
Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.
C:\perl\bin\perl.exe "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'bl
ib\lib', 'blib\arch')" t/*.t
t/CreateFile..................ok 144 ms
t/ExpandEnvironmentStrings....ok 64 ms
t/GetCurrentThreadId..........skipped
all skipped: Test requires fork emulation
t/GetFileVersion..............skipped
all skipped: Only ActivePerl seems to set the perl.exe fileversion
t/GetFolderPath...............ok 87 ms
t/GetFullPathName.............# Test 1 got: "." (t/GetFullPathName.t at
line 12)
t/GetFullPathName.............NOK 1/16# Expected:
"C:\\Temp\\Win32-0.27_02"
# t/GetFullPathName.t line 12 is: ok(scalar
Win32::GetFullPathName('.'), $cwd);
# Test 2 got: "." (t/GetFullPathName.t at line 13)
# Expected: "C:\\Temp\\"
# t/GetFullPathName.t line 13 is: ok((Win32::GetFullPathName('.'))[0],
"$dir\\"
);
t/GetFullPathName.............NOK 2/16# Test 3 got: ""
(t/GetFullPathName.t at l
ine 14)
t/GetFullPathName.............NOK 3/16# Expected: "Win32-0.27_02"
# t/GetFullPathName.t line 14 is: ok((Win32::GetFullPathName('.'))[1],
$file);
# Test 4 got: "./" (t/GetFullPathName.t at line 16)
t/GetFullPathName.............NOK 4/16# Expected:
"C:\\Temp\\Win32-0.27_02\\"
# t/GetFullPathName.t line 16 is: ok((Win32::GetFullPathName('./'))[0],
"$cwd\\
");
# Test 5 got: ".\\" (t/GetFullPathName.t at line 17)
t/GetFullPathName.............NOK 5/16# Expected:
"C:\\Temp\\Win32-0.27_02\\"
# t/GetFullPathName.t line 17 is:
ok((Win32::GetFullPathName('.\\'))[0], "$cwd\
\");
# Test 9 got: "" (t/GetFullPathName.t at line 22)
# Expected: "Win32-0.27_02"
t/GetFullPathName.............ok 6/16# t/GetFullPathName.t line 22 is:
ok((Win3
2::GetFullPathName($cwd))[1], $file);
# Test 10 got: "\\Temp\\" (t/GetFullPathName.t at line 24)
# Expected: "C:\\Temp\\\0in32-0.27_02"
t/GetFullPathName.............NOK 9/16# t/GetFullPathName.t line 24 is:
ok(scal
ar Win32::GetFullPathName(substr($cwd,2)), $cwd);
# Test 11 got: "\\Temp\\" (t/GetFullPathName.t at line 25)
# Expected: "C:\\Temp\\"
t/GetFullPathName.............NOK 10/16# t/GetFullPathName.t line 25
is: ok((Wi
n32::GetFullPathName(substr($cwd,2)))[0], "$dir\\");
# Test 12 got: "" (t/GetFullPathName.t at line 26)
# Expected: "Win32-0.27_02"
t/GetFullPathName.............NOK 11/16# t/GetFullPathName.t line 26
is: ok((Wi
n32::GetFullPathName(substr($cwd,2)))[1], $file);
t/GetFullPathName.............NOK 12/16# Test 13 got: "/Foo Bar/"
(t/GetFullPath
Name.t at line 28)
t/GetFullPathName.............NOK 13/16# Expected: "C:\\Foo Bar\\"
# t/GetFullPathName.t line 28 is: ok(scalar
Win32::GetFullPathName('/Foo Bar/')
, substr($cwd,0,2)."\\Foo Bar\\");
# Test 14 got: "." (t/GetFullPathName.t at line 31)
t/GetFullPathName.............NOK 14/16# Expected: "C:\\Temp"
# t/GetFullPathName.t line 31 is: ok(scalar
Win32::GetFullPathName('.'), $dir);
# Test 15 got: "Win32-0.27_02" (t/GetFullPathName.t at line 33)
# Expected: "C:\\Temp\\"
t/GetFullPathName.............NOK 15/16# t/GetFullPathName.t line 33
is: ok((Wi
n32::GetFullPathName($file))[0], "$dir\\");
# Test 16 got: "" (t/GetFullPathName.t at line 34)
t/GetFullPathName.............NOK 16/16# Expected: "Win32-0.27_02"
# t/GetFullPathName.t line 34 is:
ok((Win32::GetFullPathName($file))[1], $file)
;
t/GetFullPathName.............FAILED tests 1-5, 9-16
Failed 13/16 tests, 18.75% okay
t/GetLongPathName.............ok 73 ms
t/GetOSVersion................ok 68 ms
t/GuidGen.....................ok 69 ms
t/Unicode.....................ok 1/12# Test 5 got: "" (t/Unicode.t at
line 59)
t/Unicode.....................NOK 5/12# Expected:
"C:\\Temp\\Win32-0.27_02\\Fo
o \x{394}\x{419} Bar \x{5E7}\x{645} Baz"
# t/Unicode.t line 59 is: ok($long,
Win32::GetLongPathName($home)."\\$dir");
# Test 7 got: "C:\\Temp\\Win32-0.27_02\\Foo \x{394}\x{419} Bar
\x{5E7}\x{645} Ba
z" (t/Unicode.t at line 63)
t/Unicode.....................NOK 7/12# Expected: ""
# t/Unicode.t line 63 is: ok(Win32::GetLongPathName(Win32::GetCwd()),
$long);
# Test 8 got: "C:\\Temp\\Win32-0.27_02\\Foo \x{394}\x{419} Bar
\x{5E7}\x{645} Ba
z" (t/Unicode.t at line 67)
t/Unicode.....................NOK 8/12# Expected: ""
# t/Unicode.t line 67 is: ok(Win32::GetLongPathName($cwd), $long);
# Test 12 got: "C:\\Temp\\Win32-0.27_02\\Foo \x{394}\x{419} Bar
\x{5E7}\x{645} B
az" (t/Unicode.t at line 75)
t/Unicode.....................NOK 12/12# Expected: ""
# t/Unicode.t line 75 is: ok(Win32::GetLongPathName(Win32::GetCwd()),
$long);
t/Unicode.....................FAILED tests 5, 7-8, 12
Failed 4/12 tests, 66.67% okay
Failed Test Stat Wstat Total Fail List of Failed
-------------------------------------------------------------------------------
t/GetFullPathName.t 16 13 1-5 9-16
t/Unicode.t 12 4 5 7-8 12
2 tests skipped.
Failed 2/10 test scripts. 17/85 subtests failed.
Files=10, Tests=85, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
Failed 2/10 test programs. 17/85 subtests failed.
NMAKE : fatal error U1077: 'C:\perl\bin\perl.exe' : return code '0xff'
Stop.
--
