Skip Menu |
 

This queue is for tickets about the Crypt-SSLeay CPAN distribution.

Report information
The Basics
Id: 90803
Status: resolved
Priority: 0/
Queue: Crypt-SSLeay

People
Owner: nanis [...] runu.moc.invalid
Requestors: mkmetw [...] hotmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 0.72



Subject: 8th test in 01-connect.t fails for version 0.64
Date: Mon, 25 Nov 2013 16:32:03 +0000
To: "bug-Crypt-SSLeay [...] rt.cpan.org" <bug-crypt-ssleay [...] rt.cpan.org>
From: Manoj Kumar <mkmetw [...] hotmail.com>
Download (untitled) / with headers
text/plain 1002b
Hi, I am trying to install Crypt::SSLeay on my Win XP 32-bit machine and the following test is failing - # Failed test 'socket is now non-blocking' # at t/01-connect.t line 64. # got: '' # expected: '0' # Looks like you failed 1 test of 8. t/01-connect.t .. This failure is because of the following lines in subroutine blocking in IO::Socket version 1.32 - my $orig= !${*$sock}{io_sock_nonblocking}; return $orig unless @_; In the above code, if io_sock_nonblocking is non-zero, $orig will be empty string. So, I have modified the test as follows (output of diff -u) - --- t/01-connect.orig.t 2012-07-30 14:35:34.000000000 +0200 +++ t/01-connect.t 2013-11-25 17:16:52.861250000 +0100 @@ -61,5 +61,5 @@ is( $sock->blocking, 1, 'socket is blocking' ); $sock->blocking(0); - is( $sock->blocking, 0, 'socket is now non-blocking' ); + is( $sock->blocking, $^O eq 'MSWin32' ? '' : 0, 'socket is now non-blocking' ); } Regards,
Download (untitled) / with headers
text/plain 1.3k
Hello Manoj: The correct fix is to test for true/false rather than integer values. This has been patched in the development version, and will be included in the next test release. See https://github.com/nanis/Crypt-SSLeay/commit/3ee71148abf4ebe3edb766128c6288881ca4fbfe Thank you for your input, -- Sinan On Mon Nov 25 11:32:23 2013, mkmetw@hotmail.com wrote: Show quoted text
> Hi, > > I am trying to install Crypt::SSLeay on my Win XP 32-bit machine and > the following test is failing - > > # Failed test 'socket is now non-blocking' > # at t/01-connect.t line 64. > # got: '' > # expected: '0' > # Looks like you failed 1 test of 8. > t/01-connect.t .. > > This failure is because of the following lines in subroutine blocking > in IO::Socket version 1.32 - > > my $orig= !${*$sock}{io_sock_nonblocking}; > > return $orig unless @_; > > In the above code, if io_sock_nonblocking is non-zero, $orig will be > empty string. > > So, I have modified the test as follows (output of diff -u) - > > --- t/01-connect.orig.t 2012-07-30 14:35:34.000000000 +0200 > +++ t/01-connect.t 2013-11-25 17:16:52.861250000 +0100 > @@ -61,5 +61,5 @@ > > is( $sock->blocking, 1, 'socket is blocking' ); > $sock->blocking(0); > - is( $sock->blocking, 0, 'socket is now non-blocking' ); > + is( $sock->blocking, $^O eq 'MSWin32' ? '' : 0, 'socket is now > non-blocking' ); > } > > Regards, > >


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.