WWW-Mechanize-Chrome-0.77/0000755000175000017500000000000015202310214014601 5ustar corioncorionWWW-Mechanize-Chrome-0.77/README0000644000175000017500000000401415202310213015457 0ustar corioncorionWWW::Mechanize::Chrome - automate the Chrome browser DESCRIPTION Like L, this module automates web browsing with a Perl object. Fetching and rendering of web pages is delegated to the Chrome (or Chromium) browser by starting an instance of the browser and controlling it with L. INSTALLATION This is a Perl module distribution. It should be installed with whichever tool you use to manage your installation of Perl, e.g. any of cpanm . cpan . cpanp -i . Consult http://www.cpan.org/modules/INSTALL.html for further instruction. Should you wish to install this module manually, the procedure is perl Makefile.PL make make test make install REPOSITORY The public repository of this module is L. SUPPORT The public support forum of this module is L. TALKS I've given a German talk at GPW 2017, see L and L for the slides. At The Perl Conference 2017 in Amsterdam, I also presented a talk, see L. The slides for the English presentation at TPCiA 2017 are at L. At the London Perl Workshop 2017 in London, I also presented a talk, see L . The slides for that talk are L. KNOWN ISSUES Please see L. BUG TRACKER Please report bugs in this module via the Github bug queue at L CONTRIBUTING Please see L. SEE ALSO AUTHOR Max Maischein C LICENSE This module is released under the same terms as Perl itself. COPYRIGHT (c) Copyright 2010-2026 by Max Maischein C. WWW-Mechanize-Chrome-0.77/t/0000755000175000017500000000000015202310214015044 5ustar corioncorionWWW-Mechanize-Chrome-0.77/t/50-mech-content-nonhtml.t0000644000175000017500000000165215202310213021517 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 2; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; $mech->get('https://corion.net/style.css'); my $body = $mech->decoded_content(); like $body, qr!^/\*!, "We retrieve the raw CSS"; }); WWW-Mechanize-Chrome-0.77/t/52-secondary-subframe.html0000644000175000017500000000053315202310213021747 0ustar corioncorion 52-secondary-subframe.html
52-secondary-subframe.html
WWW-Mechanize-Chrome-0.77/t/65-is_visible_hidden.html0000644000175000017500000000114615202310213021626 0ustar corioncorion 65-is_visible_hidden.html

Text before

Text after

WWW-Mechanize-Chrome-0.77/t/65-is_visible.t0000644000175000017500000001565515202310213017624 0ustar corioncorion#!perl use strict; use warnings; use Test::More; use WWW::Mechanize::Chrome; use Cwd; use URI; use URI::file; use File::Basename; use File::Spec; use File::Temp 'tempdir'; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # A parallelization hack can prefill @files already with other files # see t/65-is_visible-2.t our @files; if( !@files) { @files = qw< 65-is_visible_class.html 65-is_visible_text.html 65-is_visible_hidden.html >; }; # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => (12*@files+5)*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, #headless => 0, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 12*@files+5, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; # Check that we can execute JS $mech->get_local($files[0]); $mech->allow('javascript' => 1); my ($triggered,$type,$ok); eval { ($triggered, $type) = $mech->eval_in_page('timer'); $ok = 1; }; if (! $triggered) { SKIP: { skip("Couldn't get at 'timer'. Do you have a Javascript blocker?", 12*@files +5); }; return; }; # Check that we can trigger the timeout for my $file ($files[0]) { $mech->get_local($file); is $mech->title, $file, "We loaded the right file ($file)"; $mech->allow('javascript' => 1); ok $mech->is_visible(selector => '#before'), "The element is visible"; my $finished = eval { $mech->wait_until_invisible(selector => '#before', timeout => 1); 1; }; is $finished, undef, "We got an exception"; like $@, qr/Timeout/, "We got a timeout error message"; }; for my $file (@files) { $mech->get_local($file); is $mech->title, $file, "We loaded the right file ($file)"; $mech->allow('javascript' => 1); my ($timer,$type) = $mech->eval_in_page('timer'); #(my ($window),$type) = $mech->eval_in_page('window'); #$window = $mech->tab->{linkedBrowser}->{contentWindow}; ok $mech->is_visible(selector => 'body'), "We can see the body"; if(! ok !$mech->is_visible(selector => '#standby'), "We can't see #standby") { my $standby = $mech->by_id('standby', single=>1); my $style = $standby->{style}; diag "style.visibility <" . $style->{visibility} . ">"; diag "style.display <" . $style->{display} . ">"; #$style = $window->getComputedStyle($standby, undef); diag "computed-style.visibility <" . $style->{visibility} . ">"; diag "computed-style.display <" . $style->{display} . ">"; }; ok !$mech->is_visible(selector => '.status', any => 1), "We can't see .status even though there exist multiple such elements"; $mech->click({ selector => '#start', synchronize => 0 }); my $timeout = time+2; while( time < $timeout and !$mech->is_visible(selector => '#standby')) { $mech->sleep(0.1); }; ok $mech->is_visible(selector => '#standby'), "We can see #standby"; my $ok = eval { $mech->wait_until_invisible(selector => '#standby', timeout => $timer+2); 1; }; is $ok, 1, "No timeout" or diag $@; if(! ok( !$mech->is_visible(selector => '#standby'), "The #standby is invisible")) { my $standby = $mech->by_id('standby', single=>1); my $style = $standby->{style}; diag "style.visibility <" . $style->{visibility} . ">"; diag "style.display <" . $style->{display} . ">"; #$style = $window->getComputedStyle($standby, undef); diag "computed-style.visibility <" . $style->{visibility} . ">"; diag "computed-style.display <" . $style->{display} . ">"; }; # Now test with plain text $mech->get_local($file); is $mech->title, $file, "We loaded the right file ($file)"; $mech->allow('javascript' => 1); ($timer,$type) = $mech->eval_in_page('timer'); if(! ok( !$mech->is_visible(xpath => '//*[contains(text(),"stand by")]'), "We can't see the standby message (via its text)")) { my $standby = $mech->by_id('standby', single=>1); my $style = $standby->{style}; diag "style.visibility <" . $style->{visibility} . ">"; diag "style.display <" . $style->{display} . ">"; #$style = $window->getComputedStyle($standby, undef); diag "computed-style.visibility <" . $style->{visibility} . ">"; diag "computed-style.display <" . $style->{display} . ">"; }; $mech->click({ selector => '#start', synchronize => 0 }); # Busy-wait $timeout = time+2; while( time < $timeout and !$mech->is_visible(xpath => '//*[contains(text(),"stand by")]')) { $mech->sleep(0.1); }; if(! ok $mech->is_visible(xpath => '//*[contains(text(),"stand by")]'), "We can see the standby message (via its text)") { my $standby = $mech->by_id('standby', single=>1); my $style = $standby->{style}; diag "style.visibility <" . $style->{visibility} . ">"; diag "style.display <" . $style->{display} . ">"; #$style = $window->getComputedStyle($standby, undef); diag "computed-style.visibility <" . $style->{visibility} . ">"; diag "computed-style.display <" . $style->{display} . ">"; }; $ok = eval { # This needs to re-query every time as the text changes!! $mech->wait_until_invisible(xpath => '//*[contains(text(),"stand by")]', timeout => $timer+2); 1; }; if(! is $ok, 1, "No timeout") { diag $@; for ($mech->xpath('//*[contains(text(),"stand by")]')) { diag $_->{tagName}, $_->{innerHTML}; }; my $standby = $mech->xpath('//*[contains(text(),"stand by")]', single=>1); my $style = $standby->{style}; diag "style.visibility <" . $style->{visibility} . ">"; diag "style.display <" . $style->{display} . ">"; #$style = $window->getComputedStyle($standby, undef); diag "computed-style.visibility <" . $style->{visibility} . ">"; diag "computed-style.display <" . $style->{display} . ">"; }; ok !$mech->is_visible(selector => '#standby'), "The #standby is invisible"; }; }); WWW-Mechanize-Chrome-0.77/t/50-click.html0000644000175000017500000000210415202310213017235 0ustar corioncorion 50-click.html
A link
Some div
Open a window (or tab) WWW-Mechanize-Chrome-0.77/t/50-form-with-fields.t0000644000175000017500000000411015202310213020626 0ustar corioncorion#!/usr/bin/perl -w # file 50-form3.t use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 8*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 8, sub { my ($browser_instance, $mech) = @_; $mech->get_local('50-form3.html'); $mech->form_number(1); my $the_form_dom_node = $mech->current_form; my $button = $mech->selector('#btn_ok', single => 1); isa_ok $button, 'WWW::Mechanize::Chrome::Node', "The button image"; ok $mech->submit, 'Sent the page'; $mech->get_local('50-form3.html'); @{$mech->{event_log}} = (); $mech->form_id('snd'); if(! ok $mech->current_form, "We can find a form by its id") { for (@{$mech->{event_log}}) { diag $_ }; }; $mech->get_local('50-form3.html'); $mech->form_with_fields('r1[name]'); ok $mech->current_form, "We can find a form by its contained input fields (single,matched)"; $mech->get_local('50-form3.html'); $mech->form_with_fields('r1[name]','r2[name]'); ok $mech->current_form, "We can find a form by its contained input fields (double,matched)"; $mech->get_local('50-form3.html'); $mech->form_with_fields('r3name]'); ok $mech->current_form, "We can find a form by its contained input fields (single,closing)"; $mech->get_local('50-form3.html'); $mech->form_with_fields('r4[name'); ok $mech->current_form, "We can find a form by its contained input fields (single,opening)"; $mech->get_local('50-form3.html'); $mech->form_name('snd'); ok $mech->current_form, "We can find a form by its name"; }); WWW-Mechanize-Chrome-0.77/t/78-memleak.t0000644000175000017500000000732215202310213017103 0ustar corioncorion#!perl -w use strict; use Test::More; use Cwd; use URI::file; use File::Basename; use File::Spec; use Data::Dumper; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; use Capture::Tiny 'capture'; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 14; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); my %args = @_; my $transport = WWW::Mechanize::Chrome->_preferred_transport( \%args ); if( $transport =~ /Pipe::AnyEvent$/ ) { die "AnyEvent Pipe transport is broken for this test"; # And I don't even know what tickles it, and not the other tests }; WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $have_test_memory_cycle = eval {; require Test::Memory::Cycle; 1; }; sub no_memory_cycles_ok { my( $mech, $name ) = @_; if( $have_test_memory_cycle ) { capture { Test::Memory::Cycle::memory_cycle_ok($mech, "No cycles $name"); }; } else { SKIP: { skip "Test::Memory::Cycle needed for deeper leak testing", 1; }; }; } sub load_file_ok { my ($mech, $htmlfile,@options) = @_; my $fn = File::Spec->rel2abs( File::Spec->catfile(dirname($0),$htmlfile), getcwd, ); #$mech->allow(@options); #diag "Loading $fn"; $mech->get_local($fn); ok $mech->success, "Loading $htmlfile is considered a success"; is $mech->title, $htmlfile, "We loaded the right file (@options)" or diag $mech->content; }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; $mech = new_mech( headless => 1 ); no_memory_cycles_ok( $mech, "at the start" ); my $old_destroy = $mech->can('DESTROY'); my $called = 0; no warnings 'redefine'; local *WWW::Mechanize::Chrome::DESTROY = sub { $called++; goto &$old_destroy; }; undef $mech; is $called, 1, "We destroyed our object immediately after loading"; note "Constructing fresh mechanize"; $mech = new_mech( headless => 1 ); load_file_ok($mech, 'xhtml.xhtml', javascript => 1); no_memory_cycles_ok( $mech, "after loading a page" ); $called = 0; undef $mech; is $called, 1, "We destroyed our object after loading"; note "Constructing fresh mechanize"; $mech = new_mech( headless => 1 ); $called = 0; my @alerts; $mech->on_dialog( sub { my ( $mech, $dialog ) = @_; push @alerts, $dialog; $mech->handle_dialog(1); # I always click "OK", why? }); load_file_ok($mech, '58-alert.html', javascript => 1); no_memory_cycles_ok( $mech, "after an alert()" ); undef $mech; is $called, 1, "We destroyed our object after ->on_dialog"; $called = 0; note "Constructing fresh mechanize"; $mech = new_mech( headless => 1 ); $mech->setScreenFrameCallback(sub {}); $mech->sleep(0.1); $mech->setScreenFrameCallback(); no_memory_cycles_ok( $mech, "after a screen cast frame" ); undef $mech; is $called, 1, "We destroyed our object after a frame was grabbed"; $called = 0; $mech = new_mech( headless => 1 ); $mech->get_local('49-mech-get-file.html'); my @results = $mech->xpath('//*'); no_memory_cycles_ok( $mech, "after an xpath search" ); undef $mech; is $called, 1, "We destroyed our object after a search was performed"; }); WWW-Mechanize-Chrome-0.77/t/58-alert.t0000644000175000017500000000306115202310213016571 0ustar corioncorion#!perl -w use strict; use Test::More; use Cwd; use URI::file; use File::Basename; use File::Spec; use Data::Dumper; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 4*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; sub load_file_ok { my ($mech, $htmlfile,@options) = @_; my $fn = File::Spec->rel2abs( File::Spec->catfile(dirname($0),$htmlfile), getcwd, ); #$mech->allow(@options); #diag "Loading $fn"; $mech->get_local($fn); ok $mech->success, "Loading $htmlfile is considered a success"; is $mech->title, $htmlfile, "We loaded the right file (@options)" or diag $mech->content; }; t::helper::run_across_instances(\@instances, \&new_mech, 4, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my @alerts; $mech->on_dialog( sub { my ( $mech, $dialog ) = @_; push @alerts, $dialog; $mech->handle_dialog(1); # I always click "OK", why? }); load_file_ok($mech, '58-alert.html', javascript => 1); is 0+@alerts, 2, "got two alerts"; undef $mech; }); WWW-Mechanize-Chrome-0.77/t/49-port.t0000644000175000017500000000206515202310213016451 0ustar corioncorion#!perl use warnings; use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR #Log::Log4perl->easy_init($DEBUG); # Set priority of root logger to ERROR # What instances of Chrome will we try? my $instance_port = 9223; my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 1*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, port => $instance_port, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, 1, sub { my ($browser_instance, $mech) = splice @_; $mech->get($server->url); pass "We can connect to port $instance_port"; undef $mech; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/51-mech-find-all-links.t0000644000175000017500000000222015202310213021165 0ustar corioncorion#!perl use warnings; use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 10; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, #headless => 0, ); }; sub WWW::Mechanize::chrome_version { "62.0.0.0" } my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my( $file, $mech ) = splice @_; # so we move references $mech->get($server->url); my $url = $server->url; my $links = $mech->find_all_links(); for my $link (@$links) { like $link->url_abs, qr!^\Q$url!, "Link is absolute"; }; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/49-pipe.t0000644000175000017500000000237715202310213016430 0ustar corioncorion#!perl use warnings; use strict; use stable 'postderef'; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use Test::HTTP::LocalServer; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR my @instances = t::helper::browser_instances(); my $testcount = 3; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } elsif ( $^O =~ /mswin/i ) { plan skip_all => "Pipes are currently unsupported on $^O"; } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '72.0.0.0', @_ ); WWW::Mechanize::Chrome->new( @_, pipe => 1, ); }; my $server = Test::HTTP::LocalServer->spawn( ); t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = splice @_; $mech->get($server->url); pass "We launch Chrome and control it via two filehandles"; my $pids = $mech->{pid}; like $mech->title, qr/^WWW::Mechanize::Firefox test page$/, "Retrieving the title works"; undef $mech; my $alive = kill( 0 => $pids->@*); is $alive, 0, "The chrome process $pids->@* was removed"; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/76-infinite-scroll.html0000644000175000017500000000337215202310213021271 0ustar corioncorion
WWW-Mechanize-Chrome-0.77/t/49-launch.t0000644000175000017500000000173015202310213016735 0ustar corioncorion#!perl use warnings; use strict; use Test::More tests => 5; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR my ($program,$msg) = WWW::Mechanize::Chrome->find_executable('path/another-nonexistent'); is $program, undef, "Nonexisting program does not get found"; like $msg, qr/^No executable like '.*' found$/, "We signal the correct error"; { local $ENV{CHROME_BIN} = 'bar'; is_deeply [WWW::Mechanize::Chrome->default_executable_names('foo')], ['bar','foo'], "CHROME_BIN overrides hardcoded values"; }; { local $ENV{CHROME_BIN}; my $lives = eval { WWW::Mechanize::Chrome->new( launch_exe => 'program.that.doesnt.exist', ); 1; }; my $err = $@; is $lives, undef, "We die if we can't find the executable in \$ENV{PATH}"; like $@, qr/No executable like '.*?' found in/, "We signal the error condition"; };WWW-Mechanize-Chrome-0.77/t/51-mech-submit.html0000644000175000017500000000272615202310213020400 0ustar corioncorion Hello Chrome!
WWW-Mechanize-Chrome-0.77/t/50-mech-get.t0000644000175000017500000000367315202310213017154 0ustar corioncorion#!perl -w use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 9; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my ($site,$estatus) = ($server->url,200); my $res = $mech->get($site); isa_ok $res, 'HTTP::Response', "Response"; is $mech->uri, $site, "Navigated to $site"; is $res->code, $estatus, "GETting $site returns HTTP code $estatus from response" or diag $mech->content; is $mech->status, $estatus, "GETting $site returns HTTP status $estatus from mech" or diag $mech->content; ok $mech->success, 'We consider this response successful'; # Check that we can GET a binary file and see its content for download note my $url = $server->local('blank.jpg'); $res = $mech->get($url); isa_ok $res, 'HTTP::Response', "We get a response for a direct image URL"; is $res->code, $estatus, "GETting image returns 200" or diag $mech->content; #like $mech->content, qr/^sleep(0.1); # we need to give the response body time to arrive :( like $res->decoded_content, qr/^\xff\xd8\xff.*?JFIF/ms, "We have an image in the response"; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/50-mech-eval.t0000644000175000017500000000241115202310213017311 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 4; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my ($val, $type) = $mech->eval('new Object'); is $type, "object", "We can create simple objects and serialize them as JSON"; ($val, $type) = $mech->eval('window', returnByValue => JSON::false); is $type, "object", "We can also return (proxies for) unserializable objects"; ($val, $type) = $mech->callFunctionOn('function add(a,b){ return a+b }', arguments => [ {value => 2 }, { value => 2 }]); is $val, 4, "We can call functions without manually encoding parameters"; }); WWW-Mechanize-Chrome-0.77/t/61-mech-download.t0000644000175000017500000000470715202310213020205 0ustar corioncorion#!perl -w use strict; use Test::More; use Cwd; use URI::file; use File::Basename; use File::Spec; use File::Temp 'tempdir'; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 5*@instances; }; my $d = tempdir( CLEANUP => 1 ); -d $d or diag "Temp directory '$d' doesn't exist?!: $!"; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, download_directory => $d, @_, #headless => 0, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1 ); t::helper::run_across_instances(\@instances, \&new_mech, 5, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; SKIP: { my $version = $mech->chrome_version; if( $version =~ /\b(\d+)\b/ and $1 < 62 ) { skip "Chrome before v62 doesn't know about downloads...", 4; } elsif( $version =~ /\b(\d+)\.\d+\.(\d+)\b/ and ($1 == 63 and $2 >= 3239)) { skip "Chrome before v63 build 3292 doesn't know about downloads anymore", 4; # No, but Chrome 63 doesn't send proper events for downloaded files # we could try with networkIdle ... } elsif( $version =~ /\b(\d+)\b/ and $1 >= 64 and $1 <= 65 ) { skip "Chrome between v64 and v65 doesn't tell us about downloads...", 4; # Actually, they are missing any kind of sensible events to tell us # anything about the quality of the response } else { my ($site,$estatus) = ($server->download('mytest.txt'),200); my $res = $mech->get($site); isa_ok $res, 'HTTP::Response', "Response"; ok $mech->success, "The download (always) succeeds"; like $res->header('Content-Disposition'), qr/attachment;/, "We got a download response"; my $timeout = time+1; while( time < $timeout && ! -f "$d/mytest.txt" ) { $mech->sleep(0.1); }; ok -f "$d/mytest.txt", "File 'mytest.txt' was downloaded OK"; }; } }); $server->stop; done_testing; WWW-Mechanize-Chrome-0.77/t/65-is_visible_class.html0000644000175000017500000000122515202310213021476 0ustar corioncorion 65-is_visible_class.html

Text before

Please stand by

Text after

WWW-Mechanize-Chrome-0.77/t/html5.html0000644000175000017500000000110015202310213016752 0ustar corioncorion Hello, World! WWW-Mechanize-Chrome-0.77/t/51-mech-links-base.html0000644000175000017500000000064515202310213021123 0ustar corioncorion Hello Firefox!

Hello World!

Hello WWW::Mechanize::Firefox

Links

relative WWW-Mechanize-Chrome-0.77/t/50-follow-link.t0000644000175000017500000000522415202310213017712 0ustar corioncorion#!perl -w use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 9*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 9, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; $mech->autodie(1); $mech->get_local('50-click.html'); $mech->allow('javascript' => 1); my ($clicked,$type,$ok); eval { ($clicked, $type) = $mech->eval_in_page('clicked'); $ok = 1; }; diag $@ if $@; if (! $clicked) { SKIP: { skip "Couldn't get at 'clicked'. Do you have a Javascript blocker?", 8; }; return; }; ok $clicked, "We found 'clicked'"; # Xpath $mech->get_local('50-click.html'); $mech->allow('javascript' => 1); $mech->follow_link( xpath => '//*[@id="a_link"]', synchronize=>0, ); ($clicked,$type) = $mech->eval_in_page('clicked'); is $clicked, 'a_link', "->follow_link() with an xpath selector works"; # CSS $mech->get_local('50-click.html'); $mech->allow('javascript' => 1); $mech->follow_link( selector => '#a_link', synchronize=>0, ); ($clicked,$type) = $mech->eval_in_page('clicked'); is $clicked, 'a_link', "->follow_link() with a CSS selector works"; # Regex $mech->get_local('50-click.html'); $mech->allow('javascript' => 1); $mech->follow_link( text_regex => qr/A link/, synchronize => 0 ); ($clicked,$type) = $mech->eval_in_page('clicked'); is $clicked, 'a_link', "->follow_link() with a RE works"; # Non-existing link $mech->get_local('50-click.html'); my $lives = eval { $mech->follow_link('foobar'); 1 }; my $msg = $@; ok !$lives, "->follow_link() on non-existing parameter fails correctly"; like $msg, qr/No elements found for Button with name 'foobar'/, "... with the right error message"; # Non-existing link via CSS selector $mech->get_local('50-click.html'); $lives = eval { $mech->follow_link({ selector => 'foobar' }); 1 }; $msg = $@; ok !$lives, "->follow_link() on non-existing parameter fails correctly"; like $msg, qr/No elements found for CSS selector 'foobar'/, "... with the right error message"; }); WWW-Mechanize-Chrome-0.77/t/49-mech-nav.t0000644000175000017500000000314715202310213017165 0ustar corioncorion#!perl use warnings; use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 5; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 5*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, #headless => 0, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my( $file, $mech ) = splice @_; # so we move references $mech->get($server->url); $mech->click_button(number => 1); like( $mech->uri, qr/formsubmit/, 'Clicking on button by number' ); my $last = $mech->uri; $mech->back; is $mech->uri, $server->url, 'We went back'; $mech->forward; is $mech->uri, $last, 'We went forward'; my $version = $mech->chrome_version; SKIP: { #if( $version =~ /\b(\d+)\b/ and $1 < 66 ) { $mech->reload; is $mech->uri, $last, 'We reloaded'; $mech->reload( ignoreCache => 1 ); is $mech->uri, $last, 'We reloaded, ignoring the cache'; #} else { # skip "Chrome v66+ doesn't know how to reload without hanging in a dialog box", 1; #} }; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/50-form3.html0000644000175000017500000000555215202310213017210 0ustar corioncorion untitled
Legno Legno: (1800)
Argilla Argilla: (1800)
Ferro Ferro: (1800)
Grano Grano: (1800)
Mercanti 20/20
Villaggio:
oppure
X: Y:

WWW-Mechanize-Chrome-0.77/t/65-is_visible_none_to_visible.html0000644000175000017500000000113415202310213023546 0ustar corioncorion 65-is_visible_none_to_visible.html

Text before

Text after

WWW-Mechanize-Chrome-0.77/t/03-listener-leak-test.t0000644000175000017500000000612015202310213021163 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Test::HTTP::LocalServer; use Data::Dumper; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR #Log::Log4perl->easy_init($TRACE) # if $^O =~ /darwin/i; # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 11; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; my ($site,$estatus) = ($server->url,200); my $res = $mech->get($site); for( 1..10 ) { my @input = $mech->xpath('//input[@name="q"]'); }; is scalar @{ $mech->driver->listener->{'DOM.setChildNodes'} || []}, 0, "We don't accumulate listeners"; my $destroyed = 0; my $old_destroy = \&Chrome::DevToolsProtocol::EventListener::DESTROY; no warnings 'redefine'; local *Chrome::DevToolsProtocol::EventListener::DESTROY = sub { $destroyed++; goto &$old_destroy; }; # Set up our listener $mech->on_dialog(sub { # ... }); is scalar @{ $mech->driver->listener->{'Page.javascriptDialogOpening'} }, 1, "We have exactly one listener"; # Remove our listener $mech->on_dialog(undef); is scalar @{ $mech->driver->listener->{'Page.javascriptDialogOpening'} }, 0, "We remove it"; is $destroyed, 1, "our destructor gets called"; is scalar @{ $mech->driver->listener->{'Runtime.consoleAPICalled'} }, 1, "We have one console listener already"; $destroyed = 0; my $called = 0; my $console = $mech->add_listener('Runtime.consoleAPICalled', sub { $called++; }); is scalar @{ $mech->driver->listener->{'Runtime.consoleAPICalled'} }, 2, "We have one listener more"; $mech->driver->on_response(undef, '{"method":"Runtime.consoleAPICalled"}'); is $called, 1, "Our handler was called"; $console->unregister; $called = 0; $destroyed = 0; $mech->driver->on_response(undef, '{"method":"Runtime.consoleAPICalled"}'); is $called, 0, "Our handler was not called after manual removal"; is scalar @{ $mech->driver->listener->{'Runtime.consoleAPICalled'} }, 1, "We remove it"; undef $console; is $destroyed, 1, "our destructor gets called"; $called = 0; $console = $mech->add_listener('Runtime.consoleAPICalled', sub { $called++; }); $mech->remove_listener( $console ); $mech->driver->on_response(undef, '{"method":"Runtime.consoleAPICalled"}'); is $called, 0, "Our handler was not called after manual removal via ->remove_listener"; note "Test with one browser instance finished"; }); note "Stopping local HTTP server"; $server->stop; note "Shutting down"; WWW-Mechanize-Chrome-0.77/t/49-mech-get-file.t0000644000175000017500000000451315202310213020073 0ustar corioncorion#!perl -w use strict; use Test::More; use Cwd; use URI::file; use File::Basename; use File::Spec; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 14*@instances; }; use Data::Dumper; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; sub load_file_ok { my ($mech, $htmlfile,@options) = @_; my $fn = File::Spec->rel2abs( File::Spec->catfile(dirname($0),$htmlfile), getcwd, ); #$mech->allow(@options); note "Loading $fn"; $mech->get_local($fn); ok $mech->success, "Loading $htmlfile is considered a success"; is $mech->title, $htmlfile, "We loaded the right file (@options)" or diag $mech->content; }; t::helper::run_across_instances(\@instances, \&new_mech, 14, sub { my ($firefox_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; load_file_ok($mech, '49-mech-get-file.html', javascript => 0); is $mech->content_type, 'text/html', "HTML content type"; $mech->get('about:blank'); load_file_ok($mech, '49-mech-get-file.html', javascript => 1); $mech->get('about:blank'); $mech->get_local('49-mech-get-file.html'); ok $mech->success, '49-mech-get-file.html'; is $mech->title, '49-mech-get-file.html', "We loaded the right file"; ok $mech->is_html, "The local file gets identified as HTML" or diag $mech->content; $mech->get_local('49-mech-get-file-lc-ct.html'); ok $mech->success, '49-mech-get-file-lc-ct.html'; is $mech->title, '49-mech-get-file-lc-ct.html', "We loaded the right file"; ok $mech->is_html, "The local file gets identified as HTML even with a weird-cased http-equiv attribute" or diag $mech->content; is $mech->content_type, 'text/html', "HTML content type is read from http-equiv meta tag"; $mech->get_local('file-does-not-exist.html'); ok !$mech->success, 'We fail on non-existing file'; #or diag $mech->content; }); WWW-Mechanize-Chrome-0.77/t/select.t0000644000175000017500000000752315202310213016516 0ustar corioncorion#!perl -w #use warnings; use strict; use Test::More; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 } use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 20; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; #my $uri = URI::file->new_abs( 't/select.html' )->as_string; my $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); my ($sendsingle, @sendmulti, %sendsingle, %sendmulti, $rv, $return, @return, @singlereturn, $form); # possible values are: aaa, bbb, ccc, ddd $sendsingle = 'aaa'; @sendmulti = qw(bbb ccc); @singlereturn = ($sendmulti[0]); %sendsingle = (n => 1); %sendmulti = (n => [2, 3]); ok($mech->form_number(1), 'set form to number 1'); $form = $mech->current_form(); # Multi-select # pass multiple values to a multi select $mech->select('multilist', \@sendmulti); @return = $mech->value('multilist'); is_deeply(\@return, \@sendmulti, 'multi->multi value is ' . join(' ', @sendmulti)); $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $mech->select('multilist', \%sendmulti); @return = $mech->value('multilist'); is_deeply(\@return, \@sendmulti, 'multi->multi value is ' . join(' ', @sendmulti)); # pass a single value to a multi select $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $mech->select('multilist', $sendsingle); #$return = $form->param('multilist'); $return = $mech->value('multilist'); is($return, $sendsingle, "single->multi value is '$sendsingle'"); $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $mech->select('multilist', \%sendsingle); $return = $mech->value('multilist'); is($return, $sendsingle, "single->multi value is '$sendsingle'"); # Single select # pass multiple values to a single select (only the _first_ should be set) $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $mech->select('singlelist', \@sendmulti); @return = $mech->value('singlelist'); is_deeply(\@return, \@singlereturn, 'multi->single value is ' . join(' ', @singlereturn)); $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $mech->select('singlelist', \%sendmulti); @return = $mech->value('singlelist'); is_deeply(\@return, \@singlereturn, 'multi->single value is ' . join(' ', @singlereturn)); # pass a single value to a single select $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $rv = $mech->select('singlelist', $sendsingle); $return = $mech->value('singlelist'); is($return, $sendsingle, "single->single value is '$sendsingle'"); $response = $mech->get_local( 'select.html' ); ok( $response->is_success, "Fetched select.html" ); $rv = $mech->select('singlelist', \%sendsingle); $return = $mech->value('singlelist'); is($return, $sendsingle, "single->single value is '$sendsingle'"); # test return value from $mech->select is($rv, 1, 'return 1 after successful select'); undef $rv; my $lived = eval { $rv = $mech->select('missing_list', 1); 1; }; is $lived, 1, 'We can ->select() on a missing field' or diag $@; is($rv, undef, 'return undef after failed select'); }); WWW-Mechanize-Chrome-0.77/t/50-form-with-fields-gh48.t0000644000175000017500000000544415202310213021411 0ustar corioncorionuse strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use WWW::Mechanize::Chrome::URLBlacklist; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 6; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; #my $bl = WWW::Mechanize::Chrome::URLBlacklist->new( # blacklist => [ # ], # whitelist => [ # qr!localhost!, # qr!^file://!, # ], # # # fail all unknown URLs # default => 'failRequest', # # allow all unknown URLs # # default => 'continueRequest', # # on_default => sub { # warn "*** Ignored URL $_[0] (action was '$_[1]')", # }, #); sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); my $mech = WWW::Mechanize::Chrome->new( autodie => 1, @_, ); #$bl->enable($mech); return $mech; }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; $mech->get_local('50-form-with-fields-gh48.html'); # A second attempt, to cycle the node ids quickly to avoid a node id 0 $mech->get_local('50-form-with-fields-gh48.html'); note "Loaded page"; #$mech->dump_forms; my $f; my $ok = eval { $f = $mech->current_form(); 1; }; my $err = $@; is $err, '', "No fatal error when retrieving ->current_form() again"; if( isnt $f, undef, "We have a form" ) { note "Retrieving HTML from ->current_form()"; my $html = $mech->current_form()->get_attribute('outerHTML'); like $html, qr/^
form_name('signIn'); 1; }; $err = $@; is $err, '', "We got no error on selecting the form by form name"; # Just checking.. yup its there: #my @text = $mech->selector('#ap_email'); #say $_->get_attribute('outerHTML') for @text; # #my @text = $mech->xpath('//input[@id="#ap_email"]'); #say $_->get_attribute('outerHTML') for @text; # Works $ok = eval { $mech->form_with_fields('email', 'password'); 1 }; $err = $@; is $err, '', "We got no error on selecting the form by field name"; #print $mech->current_form()->get_attribute('outerHTML'); # Fails! (well, no more) $ok = eval { $mech->submit_form(with_fields => {email => 'foo@bar.baz'}); }; $err = $@; is $err, '', "We got no error on submitting the form by field name"; }); WWW-Mechanize-Chrome-0.77/t/blank.jpg0000644000175000017500000000116715202310213016641 0ustar corioncorionJFIF``C    $.' ",#(7),01444'9=82<.342C  2!!22222222222222222222222222222222222222222222222222" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?(?WWW-Mechanize-Chrome-0.77/t/53-mech-capture-js-error.html0000644000175000017500000000040715202310213022275 0ustar corioncorion 53-mech-capture-js-error.html

A Javascript page with a JS parse error in it

WWW-Mechanize-Chrome-0.77/t/47-mech-simplest.t0000644000175000017500000000105515202310213020233 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR use lib '.'; use t::helper; my $mech = eval { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 0, startup_timeout => 4, headless => 1, )}; if (! $mech) { my $err = $@; plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 1; }; isa_ok $mech, 'WWW::Mechanize::Chrome'; WWW-Mechanize-Chrome-0.77/t/62-networkstatus.t0000644000175000017500000000526415202310213020421 0ustar corioncorion#!perl -w use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use JSON; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 4*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); my $m = WWW::Mechanize::Chrome->new( autodie => 1, @_, #headless => 0, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 4, sub { my ($browser_instance, $mech) = @_; SKIP: { my $version = $mech->chrome_version; if( $version =~ /\b(\d+)\b/ and $1 < 63 ) { skip "Chrome before v63 doesn't know about online/offline mode or can do throttling", 4; } elsif( $version =~ /\b(\d+)\.\d+\.(\d+)\b/ and $1 == 63 and $2 < 3239) { # https://bugs.chromium.org/p/chromium/issues/detail?id=728451 skip "Chrome before v63.0.3239 doesn't know about online/offline mode or can do throttling", 4; } else { $mech->get_local('50-click.html'); my ($value,$type); ($value, $type) = $mech->eval_in_page('window.navigator.connection.effectiveType'); #is( $value, '4g', "We are online"); ($value, $type) = $mech->eval_in_page('window.navigator.onLine'); is( $value, JSON::true, "We are online (.onLine)"); $mech->emulateNetworkConditions( offline => JSON::true, latency => 0, downloadThroughput => 0, uploadThroughput => 0, #connectionType => 'none', ); ($value, $type) = $mech->eval('navigator.connection.effectiveType'); #is( $value, 'offline', "We are offline"); ($value, $type) = $mech->eval_in_page('window.navigator.onLine'); is( $value, JSON::false, "We are offline (.onLine)"); my $res = $mech->get('https://google.de'); ok !$res->is_success, "We can't fetch pages while offline"; #$mech->eval_in_page(sprintf 'window.location="%s"', '49-mech-get-file.html'); $mech->emulateNetworkConditions( offline => JSON::false, ); ($value, $type) = $mech->eval('navigator.connection.effectiveType'); #is( $value, '4g', "We are online again"); ($value, $type) = $mech->eval_in_page('window.navigator.onLine'); is( $value, JSON::true, "We are online (.onLine)"); } } undef $mech; }); WWW-Mechanize-Chrome-0.77/t/50-form2.t0000644000175000017500000001206515202310213016503 0ustar corioncorion#!perl -w use strict; use Test::More; use Test::Deep; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 33; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; $mech->get_local('50-form2.html'); ok $mech->current_form, "At start, we have a current form"; $mech->form_number(2); my $button = $mech->selector('#btn_ok', single => 1); isa_ok $button, 'WWW::Mechanize::Chrome::Node', "The button image"; ok $mech->submit, 'Sent the page'; ok $mech->current_form, "After a submit, we have a current form"; $mech->get_local('50-form2.html'); $mech->form_id('snd2'); ok $mech->current_form, "After setting form_id, We have a current form"; $mech->sleep(0.1); # why is this here?! is $mech->current_form->get_attribute('id'), 'snd2', "We can ask the form with get_attribute(id)"; my $content = $mech->current_form->get_attribute('innerHTML'); ok !!$content, "We got content from asking the current form with get_attribute"; my $backendNodeId = $mech->current_form->backendNodeId; ok !!$backendNodeId, "The form has a backendNodeId '$backendNodeId'"; $mech->field('id', 99); pass "We survived setting the field 'id' to 99"; my $current_form = $mech->current_form; ok !!$current_form, "We got a current form"; my $objectId = $current_form->objectId; ok !!$objectId, "The form has an objectId ('$objectId')"; #like $objectId, qr{injectedScriptId}, "The objectId matches /injectedScriptId/"; $objectId = $current_form->objectId; is $@, '', "No error when retrieving objectId twice"; ok !!$objectId, "The form still has an objectId ('$objectId')"; #like $objectId, qr{injectedScriptId}, "The objectId still matches /injectedScriptId/"; my $content2; #eval { $content2 = $current_form->get_attribute('innerHTML'); #}; is $@, '', "No error when retrieving form HTML"; ok !!$content2, "We got content from (again) asking the current form with get_attribute"; isnt $content2, $content, "we managed to change the form by setting the 'id' field"; is $mech->xpath('.//*[@name="id"]', node => $mech->current_form, single => 1)->get_attribute('value', live => 1), 99, "We have set field 'id' to '99' in the correct form"; $mech->get_local('50-form2.html'); $mech->form_with_fields('r1','r2'); ok $mech->current_form, "We can find a form by its contained input fields"; $mech->get_local('50-form2.html'); $mech->form_name('snd'); ok $mech->current_form, "We can find a form by its name"; is $mech->current_form->get_attribute('name'), 'snd', "We can find a form by its name"; $mech->get_local('50-form2.html'); ok $mech->current_form, "On a new ->get, we have a current form"; $mech->get_local('50-form2.html'); $mech->form_with_fields('comment'); ok $mech->current_form, "We can find a form by its contained textarea fields"; $mech->field('comment', "Just another Phrome Hacker,"); pass "We survived setting the field 'comment' to some JAPH"; like $mech->xpath('.//textarea', node => $mech->current_form, single => 1)->get_attribute('value'), qr/Just another/, "We set textarea and verified it"; $mech->get_local('50-form2.html'); $mech->form_with_fields('quickcomment'); ok $mech->current_form, "We can find a form by its contained select fields"; $mech->field('quickcomment', 2); pass "We survived setting the field 'quickcomment' to 2"; my @result = $mech->value('quickcomment'); cmp_bag \@result, [2], "->field returned bag 2"; # diag explain \@result; $mech->get_local('50-form2.html'); $mech->form_with_fields('multic'); ok $mech->current_form, "We can find a form by its contained multi-select fields"; @result = $mech->value('multic'); cmp_bag \@result, [2,2,3], "->field returned bag 2,2,3"; # diag explain \@result; $mech->field('multic', [1,2]); pass "We survived setting the field 'multic' to 1,2"; @result = $mech->value('multic'); cmp_bag \@result, [1,1,2,2], "->field returned bag 1,1,2,2"; # diag explain \@result; # Check that we can address multiple fields with the same form parameter name $mech->get_local('50-form2.html'); $mech->form_with_fields('date'); @result = (); my $ok = eval { $mech->set_fields( date => ['2020-04-04',2] ); 1; }; is $ok, 1, "We survived setting the second date field" or diag $@; @result = $mech->value('date',2); is_deeply \@result, ['2020-04-04'], "We set the second date field"; }); WWW-Mechanize-Chrome-0.77/t/50-mech-start-url.t0000644000175000017500000000172015202310213020321 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use Test::HTTP::LocalServer; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 2*@instances; }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1 ); my $url = $server->url; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, start_url => $url, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 2, sub { my ($browser_instance, $mech) = @_; $mech->sleep(1); isa_ok $mech, 'WWW::Mechanize::Chrome'; is $mech->uri, $url, "We moved to the start URL instead of about:blank"; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/77-reload-fragment.t0000644000175000017500000000261715202310213020540 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use strict; use Test::More; use Cwd; use URI; use URI::file; use File::Basename; use File::Spec; use File::Temp 'tempdir'; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 2*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, #headless => 0, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1 ); my $url = $server->url; my @urls = ( "$url#1", "$url#2", ); t::helper::run_across_instances(\@instances, \&new_mech, 2, sub { my ($browser_instance, $mech) = @_; SKIP: { my $version = $mech->chrome_version; if( $version =~ /\b(\d+)\b/ and ($1 == 64 or $1 == 59)) { skip "Chrome 64 doesn't handle self-navigating well", 2; } else { for my $url (@urls) { $mech->get( $url ); pass "We retrieved $url"; }; }; }; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/49-mech-get-file.html0000644000175000017500000000035615202310213020575 0ustar corioncorion 49-mech-get-file.html

A Javascript page that has no (JS) errors

WWW-Mechanize-Chrome-0.77/t/50-mech-encoding.t0000644000175000017500000000243015202310213020151 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; my @tests = ( [ 'mixi_jp_index.html', 'EUC-JP', qr/\x{30DF}\x{30AF}\x{30B7}\x{30A3}/ ], [ 'sophos_co_jp_index.html', 'SHIFT_JIS', qr/\x{30B0}\x{30ED}\x{30FC}\x{30D0}\x{30EB}/ ], ); my $testcount = 2*@tests; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; for (@tests) { my ($file,$encoding,$content_re) = @$_; $mech->get_local($file); is uc $mech->content_encoding, $encoding, "$file has encoding $encoding"; note "Length of content", length $mech->content; like $mech->content, $content_re, "Partial expression gets found in UTF-8 content"; }; }); WWW-Mechanize-Chrome-0.77/t/50-mech-content.t0000644000175000017500000000447415202310213020047 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 9; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my $html = $mech->content; like $html, qr!!, "We can get the plain HTML"; my $html2 = $mech->content( format => 'html' ); is $html2, $html, "When asking for HTML explicitly, we get the same text"; my $text = $mech->content( format => 'text' ); is $text, '', "We can get the plain text"; my $version = $mech->chrome_version; if( $version =~ /\b(\d+)\b/ and $1 < 80 ) { SKIP: { skip "Chrome version is $version, need Chrome version 80 for MHTML", 2; }; } else { my $mhtml = $mech->content( format => 'mhtml' ); like $mhtml, qr/^Snapshot-Content-Location:/m, "We can get the MHTML of the whole page"; $mech->get_local('52-frameset.html'); $mhtml = $mech->content( format => 'mhtml' ); like $mhtml, qr!52-subframe.html!, "We can get the MHTML of the whole page, including frames"; }; my $text2; my $lives = eval { $mech->content( format => 'bogus' ); 1 }; ok !$lives, "A bogus content format raises an error"; { local $TODO = "Chrome devtools doesn't return the XML declaration of a document"; $mech->get_local('xhtml.xhtml'); $html = $mech->content; like $html, qr/^content preserves the XHTML directive"; } # pm11123357 $mech->get_local('scripttag.html'); $text = $mech->content( format => 'text' ); like $text, qr/^\s*This should appear.\s+This should also appear.\s*$/, "

Text before

Text after

WWW-Mechanize-Chrome-0.77/t/50-mech-ct.t0000644000175000017500000000167615202310213017004 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use Test::HTTP::LocalServer; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 2*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1 ); t::helper::run_across_instances(\@instances, \&new_mech, 2, sub { my ($browser_instance, $mech) = @_; $mech->get($server->url); isa_ok $mech, 'WWW::Mechanize::Chrome'; is $mech->ct, 'text/html', "Content-type of text/html"; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/helper.pm0000644000175000017500000001431715202310213016666 0ustar corioncorionpackage # hide from CPAN indexer t::helper; use strict; use Test::More; use File::Glob qw(bsd_glob); use Config '%Config'; use File::Spec; use Carp qw(croak); use File::Temp 'tempdir'; use WWW::Mechanize::Chrome; use Config; use Time::HiRes qw(sleep time); use POSIX qw(:sys_wait_h); use Log::Log4perl ':easy'; delete $ENV{HTTP_PROXY}; delete $ENV{HTTPS_PROXY}; $ENV{PERL_FUTURE_DEBUG} = 1 if not exists $ENV{PERL_FUTURE_DEBUG}; # Global PID tracking for fail-safe cleanup our %all_spawned_pids; { my $org_new = \&WWW::Mechanize::Chrome::new; no warnings 'redefine'; *WWW::Mechanize::Chrome::new = sub { my $self = $org_new->(@_); if (ref $self && $self->{pid}) { for my $pid ($self->{pid}->@*) { $all_spawned_pids{$pid} = 1 if $pid; } } return $self; }; # Override kill_child to be more aggressive and non-blocking in tests. # This prevents hangs during the cleanup phase of tests, especially with # modern Chromium versions that may not exit promptly on SIGTERM. *WWW::Mechanize::Chrome::kill_child = sub { my ($self, $signal, $pids, $wait_file) = @_; return unless $pids; my @p = ref $pids eq 'ARRAY' ? @$pids : ($pids); for my $pid (@p) { next unless $pid && kill(0, $pid); # Use SIGKILL in tests to ensure swift termination and avoid hangs kill('KILL', $pid); # Non-blocking wait with a short timeout my $timeout = Time::HiRes::time() + 2; while (Time::HiRes::time() < $timeout) { my $res = waitpid($pid, WNOHANG); last if $res == -1 || $res == $pid; Time::HiRes::sleep(0.1); } delete $all_spawned_pids{$pid}; } return; }; } END { # Final fail-safe cleanup of all PIDs spawned during this test process for my $pid (keys %all_spawned_pids) { if ($pid && kill(0, $pid)) { kill('KILL', $pid); waitpid($pid, WNOHANG); } } } sub need_minimum_chrome_version { my( $version, @args ) = @_; $version =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)$! or croak "Invalid version parameter '$version'"; my( $need_maj, $need_min, $need_sub, $need_patch ) = ($1,$2,$3,$4); my $v = WWW::Mechanize::Chrome->chrome_version( @args ); $v =~ m!/(\d+)\.(\d+)\.(\d+)\.(\d+)$! or die "Couldn't find version info from '$v'"; my( $maj, $min, $sub, $patch ) = ($1,$2,$3,$4); if( $maj < $need_maj or $maj == $need_maj and $min < $need_min or $maj == $need_maj and $min == $need_min and $sub < $need_sub or $maj == $need_maj and $min == $need_min and $sub == $need_sub and $patch < $need_patch ) { croak "Chrome $v is unsupported. Minimum required version is $version."; }; return; }; sub browser_instances { my ($filter) = @_; $filter ||= qr/^/; # (re)set the log level if (my $lv = $ENV{TEST_LOG_LEVEL}) { if( $lv eq 'trace' ) { Log::Log4perl->easy_init($TRACE) } elsif( $lv eq 'debug' ) { Log::Log4perl->easy_init($DEBUG) } } my @instances; if( $ENV{TEST_WWW_MECHANIZE_CHROME_INSTANCE}) { push @instances, $ENV{TEST_WWW_MECHANIZE_CHROME_VERSIONS}; } elsif( $ENV{TEST_WWW_MECHANIZE_CHROME_VERSIONS} ) { # add author tests with local versions my $spec = $ENV{TEST_WWW_MECHANIZE_CHROME_VERSIONS}; push @instances, grep { -x } bsd_glob $spec; } elsif( $ENV{CHROME_BIN}) { push @instances, $ENV{ CHROME_BIN } if $ENV{ CHROME_BIN } and -x $ENV{ CHROME_BIN }; } else { my ($default) = WWW::Mechanize::Chrome->find_executable(); push @instances, $default if $default; my $spec = 'chrome-versions/*/{*/,}chrome' . $Config{_exe}; # sorry, likely a bad default push @instances, grep { -x } bsd_glob $spec; }; # Consider filtering for unsupported Chrome versions here @instances = map { s!\\!/!g; $_ } # for Windows grep { ($_ ||'') =~ /$filter/ } @instances; # Only use unique Chrome executables my %seen; @seen{ @instances } = 1 x @instances; # Well, we should do a nicer natural sort here @instances = sort {$a cmp $b} keys %seen; return @instances; }; sub default_unavailable { return !scalar browser_instances; }; sub runtests { my ($browser_instance, $new_mech, $code, $test_count) = @_; #if ($browser_instance) { # note sprintf 'Testing with %s', # $browser_instance; #}; my $tempdir = tempdir( CLEANUP => 1 ); my @launch; if( $ENV{TEST_WWW_MECHANIZE_CHROME_INSTANCE} ) { my( $host, $port ) = split /:/, $ENV{TEST_WWW_MECHANIZE_CHROME_INSTANCE}; @launch = ( host => $host, port => $port, reuse => 1, new_tab => 1, ); } else { @launch = ( launch_exe => $browser_instance, #port => $port, data_directory => $tempdir, headless => 1, ); }; { my $mech = eval { $new_mech->(@launch) }; if( ! $mech ) { my $err = $@; SKIP: { skip "Couldn't create new object: $err", $test_count; }; my $version = eval { WWW::Mechanize::Chrome->chrome_version( launch_exe => $browser_instance ); }; diag sprintf "Failed on Chrome version '%s': %s", ($version || '(unknown)'), $err; return; }; note sprintf "Using Chrome version '%s'", $mech->chrome_version; # Run the user-supplied tests, making sure we don't keep a # reference to $mech around @_ = ($browser_instance, $mech); }; # Ensure stack frame is cleared to allow proper destruction goto &$code; } sub run_across_instances { #my ($instances, $new_mech, $test_count, $code) = @_; croak 'No test count given' unless $_[2]; #$test_count; for my $browser_instance (@{$_[0]}) { runtests( $browser_instance, @_[1,3,2] ); }; return; }; 1; WWW-Mechanize-Chrome-0.77/t/50-form-with-fields-gh48.html0000644000175000017500000017323615202310213022117 0ustar corioncorion Amazon Sign In

Sign-In

By signing-in you agree to Amazon's Conditions of Use & Sale. Please see our Privacy Notice, our Cookies Notice and our Interest-Based Ads Notice.
Need help?
New to Amazon?
Create your Amazon account
Conditions of Use Privacy Notice Help Cookies Notice Interest-Based Ads Notice
© 1996-2019, Amazon.com, Inc. or its affiliates
WWW-Mechanize-Chrome-0.77/t/50-mech-status.t0000644000175000017500000000265215202310213017714 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 5*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; t::helper::run_across_instances(\@instances, \&new_mech, 5, sub { my($browser_instance, $mech)= @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my ($site,$estatus) = ('https://'.rand(1000).'.www.doesnotexist.example/',500); my $res = $mech->get($site); #is $mech->uri, $site, "Navigating to (nonexisting) $site"; if( ! isa_ok $res, 'HTTP::Response', 'The response') { SKIP: { skip "No response returned", 2 }; } else { my $c = $res->code; like $res->code, qr/^(404|5\d\d)$/, "GETting $site gives a 5xx (no proxy) or 404 (proxy)" or diag $mech->content; like $mech->status, qr/^(404|5\d\d)$/, "GETting $site returns a 5xx (no proxy) or 404 (proxy) HTTP status" or diag $mech->content; }; ok !$mech->success, 'We consider this response not successful'; }); WWW-Mechanize-Chrome-0.77/t/60-mech-cookies.t0000644000175000017500000000750315202310213020026 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Log::Log4perl ':easy'; use HTTP::Cookies; use File::Basename 'dirname'; use Test::HTTP::LocalServer; use Data::Dumper; use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 15; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; my $version = $mech->chrome_version; note "Fetching cookie jar"; my $cookies = $mech->cookie_jar; isa_ok $cookies, 'HTTP::Cookies'; if( $version =~ /\b(\d+)\b/ and ($1 >= 59 and $1 <= 62)) { SKIP: { skip "Chrome v$1 doesn't properly handle setting cookies...", $testcount-1; }; } else { for my $cookie_val (1, JSON::true, JSON::false, 0, '', undef) { my $lived = eval { $cookies->set_cookie(undef, 'foo','bar','/','localhost', undef, undef, $cookie_val, time+10, undef); 1; }; is $lived, 1, sprintf "We can use %s as a value for 'secure'", defined $cookie_val ? "'$cookie_val'" : "undef" or diag $@; }; # Count how many cookies we get as a test. my $count = 0; $cookies->scan(sub{$count++; }); ok $count > 0, 'We found at least one cookie'; my $other_jar = HTTP::Cookies->new(); $other_jar->set_cookie( 1, 'mycookie' => 'tasty1', '/', 'example.com', 0, '', 1, 600, 0 ); my $lived = eval { $cookies->load_jar( $other_jar, replace => 1 ); 1; }; ok $lived, "We can load another cookie jar" or diag $@; $count = 0; my @c; $cookies->scan(sub{$count++; push @c, [@_];}); is $count, 1, 'We replaced all the cookies with our single cookie from the jar' or diag Dumper \@c; $lived = eval { $cookies->load(dirname($0).'/CookiesOld'); 1; }; ok $lived, "We can load cookies from file" or diag $@; $other_jar = HTTP::Cookies->new(); #$self->SUPER::set_cookie( $version, $key, $val, $path, $domain, $port, $path_spec, $secure, $maxage, $discard ); $other_jar->set_cookie( 1, 'mycookie' => 'tasty2', '/', $server->url->host_port, $server->url->port, #undef, '', 0, # our test server only implements http 600, 0 ); $lived = eval { $cookies->load_jar( $other_jar, replace => 1 ); 1; }; ok $lived, "We can load another cookie jar" or diag $@; $count = 0; @c = (); $cookies->scan(sub{$count++; push @c,[@_]}); is $count, 1, 'We replaced all the cookies with our single cookie from the (manual) jar' or diag Dumper \@c; $mech->cookie_jar->load; $mech->get($server->url); like $mech->content, qr/\btasty2\b/, "Our cookie gets sent"; $mech->cookie_jar->load; $count = 0; @c = (); $cookies->scan(sub{$count++; push @c,[@_]}); cmp_ok $count, '>=', 3, "We keep the cookies our test server sends"; } undef $mech; }); undef $server; WWW-Mechanize-Chrome-0.77/t/70-mech-png.t0000644000175000017500000000662315202310213017161 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use Data::Dumper; use Log::Log4perl qw(:easy); use lib '.'; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my $testcount = 11; if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => @instances*$testcount; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; sub save { my ($data,$filename) = @_; open my $fh, '>', $filename or die "Couldn't create '$filename': $!"; binmode $fh; print {$fh} $data; }; # This is a bit inefficient, but for a test I value simplicity sub image_dimensions_are { if( eval { require Image::Info; 1 }) { my $got = Image::Info::image_info( \$_[0] ); delete $got->{$_} for grep { $_ !~ /^(width|height)$/ } keys %$got; is_deeply $got, $_[1], $_[2] or diag Dumper $got; } else { SKIP: { skip "Image::Info not available", 1; } }; }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; $mech->update_html(<<'HTML'); Hello PNG! Hello PNG! HTML #ok $mech->success, 'We got the page'; my $pngData = $mech->content_as_png(); like $pngData, '/^.PNG/', "The result looks like a PNG format file"; #save $pngData, 'tmp.png'; my $pngName = $mech->selector("#my_name", single => 1); $pngData = $mech->element_as_png($pngName); like $pngData, '/^.PNG/', "The result looks like a PNG format file"; #save $pngData, 'tmp.png'; #if( 0 ) { my $rect = { left => 0, top => 0, width => 200, height => 200, }; my $topleft = $mech->content_as_png($rect); like $topleft, '/^.PNG/', "The result looks like a PNG format file"; image_dimensions_are( $topleft, { width => 200, height => 200 }, "Partial image" ); $rect = { left => 0, top => 0, width => 200, height => 200, }; my $target = { scalex => 2, }; $topleft = $mech->content_as_png($rect, $target); like $topleft, '/^.PNG/', "The result looks like a PNG format file"; image_dimensions_are( $topleft, { width => 400, height => 400 }, "Blown up (scalex)" ); $rect = { left => 0, top => 0, width => 200, height => 300, }; $target = { width => 150, }; $topleft = $mech->content_as_png($rect, $target); like $topleft, '/^.PNG/', "The result looks like a PNG format file"; image_dimensions_are( $topleft, { width => 150, height => 225 }, "Scaled down via fixed with" ); $rect = { left => 0, top => 0, width => 300, height => 200, }; $target = { height => 150, }; $topleft = $mech->content_as_png($rect, $target); like $topleft, '/^.PNG/', "The result looks like a PNG format file"; image_dimensions_are( $topleft, { width => 225, height => 150 }, "Scaled down via fixed height" ); #save($pngData,"Topleft-".$i++.".png"); #}; }) WWW-Mechanize-Chrome-0.77/t/rt127588.t0000644000175000017500000000137315202310213016360 0ustar corioncorion#! /usr/bin/perl -w use strict; use Log::Log4perl qw( :easy ); use WWW::Mechanize::Chrome; use Test::More; use lib '.'; use t::helper; Log::Log4perl -> easy_init ( $ERROR ); # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 1*@instances; }; sub new_mech { WWW::Mechanize::Chrome->new( autodie => 1, launch_arg => [ "--no-sandbox", "--disable-suid-sandbox", '--headless', ], ); }; t::helper::run_across_instances(\@instances, \&new_mech, 1, sub { pass "We didn't crash when disabling the suid sandbox"; }); WWW-Mechanize-Chrome-0.77/t/49-mech-get-file-lc-ct.html0000644000175000017500000000036415202310213021574 0ustar corioncorion 49-mech-get-file-lc-ct.html

A Javascript page that has no (JS) errors

WWW-Mechanize-Chrome-0.77/t/52-nested-frameset.html0000644000175000017500000000106315202310213021243 0ustar corioncorion 52-nested-frameset.html <body> <a id="change_frame" onclick="javascript:document.all.myframe1.src='select.html';" href="#">Change frame</a> <div id="content">52-frameset.html</div> <p>Duh - no frame support?</p> </body> WWW-Mechanize-Chrome-0.77/t/50-mech-redirect.t0000644000175000017500000000254515202310213020173 0ustar corioncorion#!perl -w use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; #use Mojolicious; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 6*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, 6, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my ($site,$estatus) = ($server->url,200); my $res = $mech->get($server->redirect('')); isa_ok $res, 'HTTP::Response', "Response"; is $mech->uri, $site, "Navigated to $site"; is $res->code, $estatus, "GETting $site returns HTTP code $estatus from response" or diag $mech->content; is $mech->status, $estatus, "GETting $site returns HTTP status $estatus from mech" or diag $mech->content; ok $mech->success, 'We consider this response successful'; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/CookiesOld0000644000175000017500000000016415202310213017022 0ustar corioncorion#LWP-Cookies-1.0 Set-Cookie3: key=OLD; path="/"; domain=OLD.old; port=80; expires="2020-03-28 20:41:55Z"; version=0WWW-Mechanize-Chrome-0.77/t/49-existing-port.t0000644000175000017500000000574615202310213020312 0ustar corioncorion#!perl use warnings; use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR my @instances = t::helper::browser_instances(); my $test_count = 4; my $transport = WWW::Mechanize::Chrome->_preferred_transport({}); if (my $err = t::helper::default_unavailable) { plan skip_all => q{Couldn't connect to Chrome: } . $@; exit } elsif( $transport =~ /::Pipe::/ ) { plan skip_all => 'Pipe transport makes no sense for this test'; exit } else { plan tests => $test_count*@instances; }; # Launch our Chrome instance separately: my ($existing_mech, $instance_host, $instance_port); my $expected_location = 'data:text/html,Test-' . $$; my $browser_launched = 0; my $org = \&WWW::Mechanize::Chrome::_spawn_new_chrome_instance; { no warnings 'redefine'; *WWW::Mechanize::Chrome::_spawn_new_chrome_instance = sub { $browser_launched++; goto &$org; }; } sub new_mech { my(%args) = @_; t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); $existing_mech = WWW::Mechanize::Chrome->new( @_, autodie => 1, headless => 1, connection_style => 'websocket', autoclose => 0, # Manual cleanup autoclose_tab => 0, ); $existing_mech->get($expected_location); #my $existing_mech; #my $instance_port = 9222; $instance_port = $existing_mech->{ port }; $instance_host = $existing_mech->{ host }; note "Instance communicates on port $instance_host:$instance_port"; WWW::Mechanize::Chrome->new( autodie => 1, port => $instance_port, host => $instance_host, autoclose => 0, # Manual cleanup autoclose_tab => 0, # tab => 'current', @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, $test_count, sub { my ($browser_instance, $mech) = splice @_; pass "We can connect to port $instance_port"; is $browser_launched, 1, q{We didn't spawn a second process}; is $mech->{pid}, undef, 'We have no process to kill'; note $mech->chrome_version; note $existing_mech->chrome_version; my $location = $mech->uri; is $location, $expected_location, 'We connect to the same tab'; note $mech->title; my $pids = $existing_mech->{pid}; # Explicit cleanup with error handling eval { $mech->close() if $mech; undef $mech; }; eval { $existing_mech->close() if $existing_mech; undef $existing_mech; }; # Hard kill if still alive to release files if ($pids && ref $pids eq 'ARRAY') { for my $pid (@$pids) { if ($pid && kill(0, $pid)) { kill('KILL', $pid); waitpid($pid, 0); } } } $browser_launched = 0; }); undef $existing_mech; $server->stop; WWW-Mechanize-Chrome-0.77/t/50-mech-get-nonexistent.t0000644000175000017500000000222615202310213021521 0ustar corioncorion#!perl -w use strict; use Test::More; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; use lib '.'; use Test::HTTP::LocalServer; #use Mojolicious; use t::helper; Log::Log4perl->easy_init($ERROR); # Set priority of root logger to ERROR # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => 4*@instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my $server = Test::HTTP::LocalServer->spawn( #debug => 1, ); t::helper::run_across_instances(\@instances, \&new_mech, 4, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; my ($site,$estatus) = ('https://nonexistent.example/',200); my $res = $mech->get($site); isa_ok $res, 'HTTP::Response', "Response"; cmp_ok $res->code, '>=', 500, "An error gets reported as error"; ok !$mech->success, "We don't consider this response successful"; }); $server->stop; WWW-Mechanize-Chrome-0.77/t/select.html0000644000175000017500000000077315202310213017217 0ustar corioncorion Like a hole
WWW-Mechanize-Chrome-0.77/t/xhtml.xhtml0000644000175000017500000000235115202310213017256 0ustar corioncorion ]> xhtml.xhtml WWW-Mechanize-Chrome-0.77/t/56-render-content.t0000644000175000017500000000644515202310213020420 0ustar corioncorion#!perl -w use strict; use Test::More; use WWW::Mechanize::Chrome; use lib '.'; use File::Temp qw(tempfile); use t::helper; use Log::Log4perl qw(:easy); # What instances of Chrome will we try? my @instances = t::helper::browser_instances(); my @tests= ( # PDF only works with headless Chrome { format => 'pdf', like => qr/^%PDF-/ }, { format => 'png', like => qr/^.PNG/, }, #{ format => 'jpg', like => qr/^......JFIF/, }, ); my $testcount = (1+@tests*2+2); if (my $err = t::helper::default_unavailable) { plan skip_all => "Couldn't connect to Chrome: $@"; exit } else { plan tests => $testcount * @instances; }; sub new_mech { t::helper::need_minimum_chrome_version( '62.0.0.0', @_ ); WWW::Mechanize::Chrome->new( autodie => 1, @_, ); }; my @delete; END { for( @delete ) { unlink $_ or diag "Couldn't remove tempfile '$_': $!"; } }; t::helper::run_across_instances(\@instances, \&new_mech, $testcount, sub { my ($browser_instance, $mech) = @_; isa_ok $mech, 'WWW::Mechanize::Chrome'; $mech->get_local('50-click.html'); for my $test ( @tests ) { my $format= $test->{format}; my $content= eval { $mech->render_content( format => $format ); }; SKIP: { if( $@ ) { skip "$@", 2; }; my $shortcontent = substr( $content, 0, 30 ); like $shortcontent, $test->{like}, "->render_content( format => '$format' )" or diag $shortcontent; my @delete; my( $tempfh,$outfile )= tempfile; close $tempfh; push @delete, $outfile; $mech->render_content( format => $format, filename => $outfile ); my($res, $reason)= (undef, "Outfile '$outfile' was not created"); if(-f $outfile) { if( open my $fh, '<:raw', $outfile ) { local $/; my $content= <$fh>; $res= $content =~ $test->{like} or $reason= "Content did not match /$test->{like}/: " . substr($content,0,10); } else { $reason= "Couldn't open '$outfile': $!"; }; }; ok $res, "->render_content to file" or diag $reason; }; }; my $content= eval { $mech->content_as_pdf( format => 'A4' ); }; SKIP: { if( $@ ) { skip "$@", 1; }; my $shortcontent = substr( $content, 0, 30 ); like $shortcontent, qr/^%PDF-/, "looks like PDF" or diag $shortcontent; my @delete; my( $tempfh,$outfile )= tempfile; close $tempfh; push @delete, $outfile; $mech->content_as_pdf( format => 'A4', filename => $outfile ); my($res, $reason)= (undef, "Outfile '$outfile' was not created"); if(-f $outfile) { if( open my $fh, '<:raw', $outfile ) { local $/; my $content= <$fh>; $res= $content =~ qr/^%PDF-/, or $reason= "Content did not match /^%PDF-/: " . substr($content,0,10); } else { $reason= "Couldn't open '$outfile': $!"; }; }; ok $res, "->content_as_pdf to file" or diag $reason; }; }); WWW-Mechanize-Chrome-0.77/t/52-iframeset.html0000644000175000017500000000100315202310213020126 0ustar corioncorion 52-frameset.html
52-iframeset.html
Change frame Change frame to 404