Tue Oct 23 08:57:29 2012: Request 80322 was acted upon.
Transaction: Correspondence added by JDHEDDEN
Queue: Win32-API
Subject: Re: [rt.cpan.org #80322] 'make test' failure - 03_Jim_Shaw.t -
invalid unpack type
Broken in: 0.72, 0.73
Severity: Important
Owner: Nobody
Requestors: [email protected]
Status: open
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=80322 >
On Sun, Oct 21, 2012 at 8:03 PM, Daniel Dragan via RT
<[email protected]> wrote:
> <URL: https://rt.cpan.org/Ticket/Display.html?id=80322 >
> A commit is up for you to try at
> https://github.com/bulk88/perl5-win32-api/tree/cygwin-revisit-%231 . You
> might want to hand trim the output of Jim Shaw test for privacy/security
> reasons. Make sure you indicate where you cut the output.
All tests passed for Perl 5.16.1 under Cygwin 1.5. For Perl 5.16.1
under Cygwin 1.7, the following failure occurs:
t/03_Jim_Shaw.t ...... 1/6 $paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
$paramcount=-4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
Invalid type '-' in unpack at
/c/_/Xfer/bulk88-perl5-win32-api-cdc5668/Callback/../blib/lib/Win32/API/Callback.pm
line 190.
# Looks like you planned 6 tests but ran 4.
# Looks like your test exited with 255 just after 4.
t/03_Jim_Shaw.t ...... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 2/6 subtests
More fully:
> perl -Mblib Callback/t/03_Jim_Shaw.t
1..6
ok 1 - use Win32::API;
ok 2 - use Win32::API::Callback;
ok 3 - use Win32::API::Test;
ok 4 - loaded
$VAR1 = bless( {
'out' => 3,
'outtype' => 'I',
'cdecl' => 0,
'sub' => sub { "DUMMY" },
'inbytes' => 8,
'intypes' => [
'N',
'N'
],
'codeExecAlloc' => bless( do{\(my $o = 14229136)},
'Win32::API::Callback::HeapBlock' ),
'code' => 14229136
}, 'Win32::API::Callback' );
get_window_pids: Desktop hwnd: 65556
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65878], PID=[2780]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65880], PID=[2780]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65706], PID=[1620]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65686], PID=[1620]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65688], PID=[1620]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65704], PID=[1620]
$paramcount=4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
window_enumerator - hwnd=[65682], PID=[1620]
$paramcount=-4 $IB=16, $obj->IB=8 PTRSIZE=4 PTRLET=L
Invalid type '-' in unpack at
/c/_/Xfer/bulk88-perl5-win32-api-cdc5668/blib/lib/Win32/API/Callback.pm
line 190.
# Looks like you planned 6 tests but ran 4.
# Looks like your test exited with 255 just after 4.
(I don't recognize anything in the above as potentially related to
privacy/security.)
