Skip Menu |

This queue is for tickets about the WWW-Mechanize-Chrome CPAN distribution.

Report information
The Basics
Id: 128098
Status: resolved
Priority: 0/
Queue: WWW-Mechanize-Chrome

People
Owner: Nobody in particular
Requestors: twata_1 [...] yahoo.co.jp
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in:
  • 0.27
  • 0.28
Fixed in: (no value)



Subject: WWW::Mechanize::Chrome 0.27 test hangs on Windows
Hi, It seems to me that WWW::Mechanize::Chrome 0.27 test hangs after t/49-mech-get-file.t passed. Please see the attached file. [Environment] Windows 10 32bit Strawberry Perl 5.28.0 Google Chrome 71.0.3578.98 Thank you, -- twata
Subject: Strawberry-Perl-5.28.0.log
Download Strawberry-Perl-5.28.0.log
application/octet-stream 9.9k

Message body not shown because it is not plain text.

Still happening in 0.28. On 2018-12月-23 日 15:54:45, twata_1@yahoo.co.jp wrote: Show quoted text
> Hi, > > It seems to me that WWW::Mechanize::Chrome 0.27 test hangs after t/49- > mech-get-file.t passed. > Please see the attached file. > > [Environment] > Windows 10 32bit > Strawberry Perl 5.28.0 > Google Chrome 71.0.3578.98 > > > Thank you, > -- > twata
Subject: 2-Strawberry-Perl-5.28.0.log
Download 2-Strawberry-Perl-5.28.0.log
application/octet-stream 10.2k

Message body not shown because it is not plain text.

Subject: Re: [rt.cpan.org #128098] WWW::Mechanize::Chrome 0.27 test hangs on Windows
Date: Sat, 12 Jan 2019 09:24:02 +0100
To: bug-WWW-Mechanize-Chrome [...] rt.cpan.org
From: Max Maischein <corion [...] corion.net>
Hello, thank you very much for the log file! It seems that the problem is with Test::HTTP::LocalServer not (correctly) starting up properly. If your machine is not under heavy load, can you please test if Test::HTTP::LocalServer properly starts up at all? The following code should start the test server: #!perl use strict; use warnings; require Test::HTTP::LocalServer; package Test::HTTP::LocalServer; use File::Temp; use File::Spec; my $file = __PACKAGE__; $file =~ s!::!/!g; $file .= '.pm'; my ($tmpfh,$logfile) = File::Temp::tempfile(); close $tmpfh; my $server_file = File::Spec->catfile( dirname( $INC{$file} ),'log-server' ); my ($fh,$url_file) = File::Temp::tempfile; close $fh; # race condition, but oh well my @opts = ("-f", $url_file); my @cmd=( $^X, $server_file, '', $logfile, @opts ); warn "[@cmd]"; $ENV{TEST_HTTP_VERBOSE}=1; #system(@cmd); my $pid = system(1, @cmd); sleep 1; # overkill, but good enough for the moment warn $? if $?; warn "Launched server as $pid"; -max Am 12.01.2019 um 01:44 schrieb twata_1@yahoo.co.jp via RT: Show quoted text
> Queue: WWW-Mechanize-Chrome > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=128098 > > > Still happening in 0.28. > > On 2018-12月-23 日 15:54:45, twata_1@yahoo.co.jp wrote:
>> Hi, >> >> It seems to me that WWW::Mechanize::Chrome 0.27 test hangs after t/49- >> mech-get-file.t passed. >> Please see the attached file. >> >> [Environment] >> Windows 10 32bit >> Strawberry Perl 5.28.0 >> Google Chrome 71.0.3578.98 >> >> >> Thank you, >> -- >> twata
> > >
Hello, Thank you for the reply. My Windows 10 laptop is not under heavy load but disk access may be slow. The execution result of the attached script was as follows. C:\home\garden>perl thl.pl [C:\Strawberry\perl\bin\perl.exe C:\home\garden\perl5\lib\perl5\Test\HTTP\log-server C:\Users\user\AppData\Local\Temp\PFhv8Cm5od -f C:\Users\user\AppData\Local\Temp\qAwzxyKTQk] at thl.pl line 20. 13588 at thl.pl line 25. Launched server as 13588 at thl.pl line 26. C:\home\garden> I thought that WWW::Mechanize::Chrome test sometimes stopped. So, I tried "cpan WWW::Mechanize::Chrome" again, It passed!! Thank you, -- twata On 2019-1月-12 土 03:24:32, corion@corion.net wrote: Show quoted text
> Hello, > > thank you very much for the log file! It seems that the problem is with > Test::HTTP::LocalServer not (correctly) starting up properly. If your > machine is not under heavy load, can you please test if > Test::HTTP::LocalServer properly starts up at all? The following code > should start the test server: > > #!perl > use strict; > use warnings; > require Test::HTTP::LocalServer; > package Test::HTTP::LocalServer; > use File::Temp; > use File::Spec; > > my $file = __PACKAGE__; > $file =~ s!::!/!g; > $file .= '.pm'; > my ($tmpfh,$logfile) = File::Temp::tempfile(); > close $tmpfh; my $server_file = File::Spec->catfile( dirname( > $INC{$file} ),'log-server' ); > my ($fh,$url_file) = File::Temp::tempfile; > close $fh; # race condition, but oh well > my @opts = ("-f", $url_file); > > my @cmd=( $^X, $server_file, '', $logfile, @opts ); > warn "[@cmd]"; > $ENV{TEST_HTTP_VERBOSE}=1; > #system(@cmd); > my $pid = system(1, @cmd); > sleep 1; # overkill, but good enough for the moment > warn $? if $?; > warn "Launched server as $pid"; > > -max > > Am 12.01.2019 um 01:44 schrieb twata_1@yahoo.co.jp via RT:
> > Queue: WWW-Mechanize-Chrome > > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=128098 > > > > > Still happening in 0.28. > > > > On 2018-12月-23 日 15:54:45, twata_1@yahoo.co.jp wrote:
> >> Hi, > >> > >> It seems to me that WWW::Mechanize::Chrome 0.27 test hangs after t/49- > >> mech-get-file.t passed. > >> Please see the attached file. > >> > >> [Environment] > >> Windows 10 32bit > >> Strawberry Perl 5.28.0 > >> Google Chrome 71.0.3578.98 > >> > >> > >> Thank you, > >> -- > >> twata
> > > > > >
Subject: thl.pl
#!perl use strict; use warnings; require Test::HTTP::LocalServer; package Test::HTTP::LocalServer; use File::Temp; use File::Spec; my $file = __PACKAGE__; $file =~ s!::!/!g; $file .= '.pm'; my ($tmpfh,$logfile) = File::Temp::tempfile(); close $tmpfh; my $server_file = File::Spec->catfile( dirname( $INC{$file} ),'log-server' ); my ($fh,$url_file) = File::Temp::tempfile; close $fh; # race condition, but oh well my @opts = ("-f", $url_file); my @cmd=( $^X, $server_file, '', $logfile, @opts ); warn "[@cmd]"; $ENV{TEST_HTTP_VERBOSE}=1; #system(@cmd); my $pid = system(1, @cmd); sleep 1; # overkill, but good enough for the moment warn $? if $?; warn "Launched server as $pid";