This distribution has been tested as part of the cpan-testers effort to test as many new uploads to CPAN as possible. See http://testers.cpan.org/
Please cc any replies to [email protected] to keep other test volunteers informed and to prevent any duplicate effort. -- Dear Max Maischein, This is a computer-generated test report for WWW-Mechanize-Shell-0.44, created automatically by CPAN::Reporter, version 0.44, and sent to the CPAN Testers mailing list. If you have received this email directly, it is because the person testing your distribution chose to send a copy to your CPAN email address; there may be a delay before the official report is received and processed by CPAN Testers. Thank you for uploading your work to CPAN. However, it appears that there were some problems testing your distribution. Sections of this report: * Tester comments * Prerequisites * Environment and other context * Test output ------------------------------ TESTER COMMENTS ------------------------------ Additional comments from tester: [none provided] ------------------------------ PREREQUISITES ------------------------------ Prerequisite modules loaded: requires: Module Need Have -------------------------- ---- ----- Hook::LexWrap 0.2 0.20 HTML::TokeParser::Simple 2 3.15 LWP 5.69 5.805 Term::Shell 0.02 0.02 Test::Harness 2.3 2.64 URI::URL 0 5.03 WWW::Mechanize 1.2 1.30 WWW::Mechanize::FormFiller 0.05 0.06 ------------------------------ ENVIRONMENT AND OTHER CONTEXT ------------------------------ Environment variables: LANG = en_GB LANGUAGE = en_GB:en_US:en_GB:en PATH = /usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games PERL5LIB = PERL5_CPANPLUS_IS_RUNNING = 1 PERL5_CPAN_IS_RUNNING = 1 SHELL = /bin/bash TERM = screen Perl special variables (and OS-specific diagnostics, for MSWin32): Perl: $^X = /home/david/cpantesting/perl-5.6.2/bin/perl UID: $< = 1000 EUID: $> = 1000 GID: $( = 1000 46 44 29 25 24 20 1000 EGID: $) = 1000 46 44 29 25 24 20 1000 Perl module toolchain versions installed: Module Have ------------------- ------- CPAN 1.9101 Cwd 2.04 ExtUtils::CBuilder n/a ExtUtils::Command 1.09_01 ExtUtils::Install 1.41 ExtUtils::MakeMaker 6.31 ExtUtils::Manifest 1.48 ExtUtils::ParseXS n/a File::Spec 0.86 Module::Build 0.2806 Module::Signature n/a Test::Harness 2.64 Test::More 0.67 version 0.70 ------------------------------ TEST OUTPUT ------------------------------ Output from '/usr/bin/make test': PERL_DL_NONLAZY=1 /home/david/cpantesting/perl-5.6.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00-HTML-Display-use.................ok t/00-use..............................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/00a-Term-Shell-catch-smry...........ok t/01-fallback-Win32-OLE...............ok 3/3 skipped: various reasons t/01-HTML-Display-TempFile-share......ok t/02-fallback-HTML-TableExtract.......ok 4/4 skipped: various reasons t/02-fallback-Pod-Constant............ok 4/4 skipped: various reasons t/03-documentation....................ok 119/119 skipped: various reasons t/04-history-invariant................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/05-options..........................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/06-valid-output.....................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok 46/47 skipped: various reasons t/07-history-items....................ok 23/23 skipped: various reasons t/08-unknown-command..................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/09-invalid-filename.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/10-nonexistent-host.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/11-browse-without-request...........Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/12-comments.........................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/13-command-au.......................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/14-command-identity.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. # Loading HTTP::Daemon # Spawning local test server # on port 2826 # Failed test 'auth compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/EHKmYEUVAk syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->credentials('localhost:80','realm','user','password'); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->uri } , "\n"; # Failed test 'autofill compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/7YonhJDPzP syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->add_filler( "query" => "Fixed" => 'foo' ); # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print do { $agent->uri } , "\n"; # Failed test 'back compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/FBSu2dg4Ui syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('n' => 1); # $agent->back(); # print do { $agent->uri } , "\n"; # Failed test 'comment compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/jmmd3zaMyf syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->uri } , "\n"; # Failed test 'content_save compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/VMc9earw4K syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { my $filename = q{tmp.content}; # local *F; # open F, "> $filename" or die "$filename: $!"; # binmode F; # print F $agent->content,"\n"; # close F # }; # print do { unlink "tmp.content" } , "\n"; # print do { $agent->uri } , "\n"; # Failed test 'eval compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/ICrdJYSpbr syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { "Hello World" } , "\n"; # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { "Goodbye World" } , "\n"; # print do { $agent->uri } , "\n"; # Failed test 'eval_multiline compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/2Iy7hgcYCt syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->add_filler( "query" => "Keep" => ); # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print do { "Hello World ", # "from ",$agent->uri } , "\n"; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'eval_shell compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/cRl14Fe5Ch syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->ct } , "\n"; # print do { $agent->uri } , "\n"; # Failed test 'eval_sub compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/27WjKOa5mC syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { sub ::custom_today { "20030511" }; } , "\n"; # $formfiller->add_filler( "session" => "Callback" => '::custom_today' ); # $formfiller->add_filler( "query" => "Keep" => ); # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # print do { $agent->current_form->value("session") } , "\n"; # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'form_name compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/RJjiUGEChn syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->form_name('f'); # $agent->submit(); # print do { $agent->uri } , "\n"; # Failed test 'form_num compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/UlDqPn8g2w syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->form_number(1); # $agent->submit(); # print do { $agent->uri } , "\n"; # Failed test 'formfiller_chars compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/bVtQYw0jsF syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { srand 0 } , "\n"; # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->add_filler( "query" => "Random::Chars" => 'size','5','set','alpha' ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_date compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/uF1jwqW2ub syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { srand 0 } , "\n"; # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->add_filler( "query" => "Random::Date" => 'string','%Y%m%d' ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_default compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/VtQYw0jsFc syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $formfiller->add_filler( "query" => "Default" => 'foo' ); # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_fixed compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/GhYj71KRQ5 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $formfiller->add_filler( "query" => "Fixed" => 'foo' ); # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_keep compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/bwHF6BJXJg syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $formfiller->add_filler( "query" => "Keep" => ); # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_random compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/aQTvGvrNvZ syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $formfiller->add_filler( "query" => "Random" => 'foo' ); # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_re compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/uF1jwqW2ub syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { srand 0 } , "\n"; # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->add_filler( qr((?-xism:qu)) => "Random::Date" => 'string','%Y%m%d' ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'formfiller_word compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/F1jwqW2ubV syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { srand 0 } , "\n"; # $formfiller->add_filler( "cat" => "Keep" => ); # $formfiller->add_filler( "query" => "Random::Word" => 'size','1' ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'get compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/tQYw0jsFcG syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->uri } , "\n"; # Failed test 'get_content compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/hYj71KRQ5b syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'get_redirect compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/wHF6BJXJg2 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/redirect/startpage'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->uri } , "\n"; # Failed test 'get_save compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/aQTvGvrNvZ syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # my @links; # my @all_links = $agent->links(); # my $count = -1; # @links = map { $count++; (($_->text =~ qr((?-xism:\.save_log_server_test\.tmp$)))||($_->url =~ qr((?-xism:\.save_log_server_test\.tmp$)))) ? $count : () } @all_links; # my $base = $agent->uri; # for my $link (@links) { # my $target = $all_links[$link]->url; # my $url = URI::URL->new($target,$base); # $target = $url->path; # $target =~ s!^(.*/)?([^/]+)$!$2!; # $url = $url->abs; # # # use this line instead of the next in case you want to use smart mirroring # #$agent->mirror($url,$target); # $agent->get( $url, ':content_file' => $target ); # }; # # print do { $agent->uri } , "\n"; # Failed test 'get_value2_submit compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/o5fqbljncn syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { local $^W; $agent->current_form->value('query', 'foo'); }; # { local $^W; $agent->current_form->value('session', '2'); }; # $agent->submit(); # print do { $agent->uri } , "\n"; # Failed test 'get_value_click compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/I7IbU7WYG7 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { local $^W; $agent->current_form->value('query', 'foo'); }; # $agent->click('submit'); # print do { $agent->uri } , "\n"; # Failed test 'get_value_submit compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/9j1J4oD77w syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { local $^W; $agent->current_form->value('query', 'foo'); }; # $agent->submit(); # print do { $agent->uri } , "\n"; # Failed test 'interactive_script_creation compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/xjR7jbX5Bv syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { @::list=qw(foo bar xxx) } , "\n"; # print do { no warnings qw"redefine once"; *WWW::Mechanize::FormFiller::Value::Ask::ask_value = sub { my $value=shift @::list; push @{$_[0]->{shell}->{answers}}, [ $_[1]->name, $value ]; $value } } , "\n"; # $formfiller->add_filler( "cat" => "Keep" => ); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->add_filler( 'session' => Fixed => 'foo' ); # $formfiller->add_filler( 'query' => Fixed => 'bar' ); # $formfiller->add_filler( 'submit' => Fixed => 'xxx' );$formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_parm compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/skanuEDwrH syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('n' => 1); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/SEqWtMJKzi syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text' => 'Link foo1.save_log_server_test.tmp'); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re2 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/TgaNtAkd6v syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:foo1))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re3 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/HAe00F1wjG syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:Link /foo))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re4 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/zu4f27jdZo syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:Link /foo))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re5 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/2kN9Jrr9oo syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:Link /$))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re6 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/0q8UxJ1la8 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:^/Link$))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'open_re7 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/1cP00tIdwe syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:^/Link in slashes/))); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'reload compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/jbCUakFpkO syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->reload; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'reload_2 compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/u71EhXAsDB syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $agent->follow_link('text_regex' => qr((?-xism:Link /foo))); # $agent->reload; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'tick compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/vm5hZYMTMl syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { local $^W; for ('cat_foo') { $agent->tick('cat', $_); };} # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'tick_all compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/XJcxLsdInP syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # # { local $^W; my $index = 0; # while(my $input = $agent->current_form->find_input('cat','checkbox',$index)) { # my $value = (grep { defined $_ } ($input->possible_values()))[0]; # $agent->tick('cat',$value); # $index++; # }; # } # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'timeout compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/H2GuXiEXmw syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->timeout(60); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'ua_get compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/aziteQeee0 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->agent('foo/1.1'); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print do { $agent->uri } , "\n"; # Failed test 'ua_get_content compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/4WhllbrNvS syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->agent('foo/1.1'); # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'untick compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/wF357mEHnE syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # { local $^W; for ('cat_foo') { $agent->untick('cat', $_); };} # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'untick_all compiles' # at t/14-command-identity.t line 254. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/iOl5jjcHO9 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # $agent->get('http://pigsty:2826/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # # { local $^W; my $index = 0; # while(my $input = $agent->current_form->find_input('cat','checkbox',$index)) { # my $value = (grep { defined $_ } ($input->possible_values()))[0]; # $agent->untick('cat',$value); # $index++; # }; # } # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Looks like you failed 44 tests of 353. dubious Test returned status 44 (wstat 11264, 0x2c00) DIED. FAILED tests 7, 15, 23, 31, 39, 47, 55, 63, 71, 79, 87, 95, 103, 111, 119, 127, 135, 143, 151, 159, 167, 175, 183, 191, 199, 207, 215, 223, 231, 239, 247, 255, 263, 271, 279, 287, 295, 303, 311, 319, 327, 335, 343, 351 Failed 44/353 tests, 87.54% okay (less 88 skipped tests: 221 okay, 62.61%) t/15-history-save.....................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/16-form-fillout.....................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. # Failed test 'interactive_script_creation compiles' # at t/16-form-fillout.t line 107. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201.' # expected: '/tmp/D7ZsAXDBE1 syntax OK' # #!/home/david/cpantesting/perl-5.6.2/bin/perl -w # use strict; # use WWW::Mechanize; # use WWW::Mechanize::FormFiller; # use URI::URL; # # my $agent = WWW::Mechanize->new( autocheck => 1 ); # my $formfiller = WWW::Mechanize::FormFiller->new(); # $agent->env_proxy(); # # print do { @::list=qw(1 2 3 4 5 6 7 8 9 10 foo NY 11 DE 13 V 15 16 2038-01-01) } , "\n"; # print do { no warnings qw"once redefine"; # *WWW::Mechanize::FormFiller::Value::Ask::ask_value = sub { # #warn "Filled out ",$_[1]->name; # my $value=shift @::list || "empty"; # push @{$_[0]->{shell}->{answers}}, [ $_[1]->name, $value ]; # $value # } } , "\n"; # $agent->get('http://pigsty:3004/'); # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; # $formfiller->add_filler( 'recipient_first_name' => Fixed => '1' ); # $formfiller->add_filler( 'recipient_middle_name' => Fixed => '2' ); # $formfiller->add_filler( 'recipient_last_name' => Fixed => '3' ); # $formfiller->add_filler( 'recipient_nick_name' => Fixed => '4' ); # $formfiller->add_filler( 'recipient_room_number' => Fixed => '5' ); # $formfiller->add_filler( 'card_amount' => Fixed => '6' ); # $formfiller->add_filler( 'billing_first_names' => Fixed => '7' ); # $formfiller->add_filler( 'billing_last_name' => Fixed => '8' ); # $formfiller->add_filler( 'billing_email' => Fixed => '9' ); # $formfiller->add_filler( 'billing_line1' => Fixed => '10' ); # $formfiller->add_filler( 'billing_city' => Fixed => 'foo' ); # $formfiller->add_filler( 'billing_usps_abbrev' => Fixed => 'NY' ); # $formfiller->add_filler( 'billing_zip_code' => Fixed => '11' ); # $formfiller->add_filler( 'billing_country_code' => Fixed => 'DE' ); # $formfiller->add_filler( 'billing_daytime_phone' => Fixed => '13' ); # $formfiller->add_filler( 'billing_card_type' => Fixed => 'V' ); # $formfiller->add_filler( 'billing_name_on_card' => Fixed => '15' ); # $formfiller->add_filler( 'billing_card_number' => Fixed => '16' ); # $formfiller->add_filler( 'creditcard_expire' => Fixed => '2038-01-01' ); # $formfiller->add_filler( 'Submit' => Fixed => 'empty' );$formfiller->fill_form($agent->current_form); # $agent->submit(); # print $agent->content,"\n"; # print do { $agent->uri } , "\n"; # Failed test 'Script interactive_script_creation didn't compile' # at t/16-form-fillout.t line 110. # Failed test 'Script interactive_script_creation didn't compile' # at t/16-form-fillout.t line 111. # Looks like you failed 3 tests of 7. dubious Test returned status 3 (wstat 768, 0x300) DIED. FAILED tests 5-7 Failed 3/7 tests, 57.14% okay t/17-eval-multiline...................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/18-browser-autosync.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/19-value-multi......................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/20-restart-without-script...........Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. # Failed test ''restart' on -e dosen't crash' # at t/20-restart-without-script.t line 18. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. # OK' # expected: 'OK' # Looks like you failed 1 test of 4. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 4 Failed 1/4 tests, 75.00% okay t/21-autofill-re......................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/22-complete-command.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/23-check-dumpresponses..............Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/24-source-file......................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/25-save-file-nolink.................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/26-form-no-form.....................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/27-form_number......................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/28-cmd-title........................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/28-html-tableextract................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok 1/3 skipped: various reasons t/29-launch-shell.....................Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. ok t/98-bin.............................. # Failed test 'Script 'bin/wwwshell.pl' compiles' # at t/98-bin.t line 29. # got: 'Misplaced _ in number at /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/WWW/Mechanize.pm line 201. # bin/wwwshell.pl syntax OK' # expected: 'bin/wwwshell.pl syntax OK' # Looks like you failed 1 test of 1. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 1 Failed 1/1 tests, 0.00% okay t/99-manifest.........................ok t/99-pod..............................ok t/99-todo.............................ok t/99-unix-text........................ok t/embedded-HTML-Display-Common........ok t/embedded-HTML-Display-Debian........ok t/embedded-HTML-Display-Dump..........ok t/embedded-HTML-Display-Galeon........ok t/embedded-HTML-Display-Mozilla.......ok t/embedded-HTML-Display-Opera.........ok t/embedded-HTML-Display-OSX-Camino....ok t/embedded-HTML-Display-OSX-Safari....ok t/embedded-HTML-Display-OSX...........ok t/embedded-HTML-Display-Phoenix.......ok t/embedded-HTML-Display-TempFile......ok t/embedded-HTML-Display-Win32-IE......ok t/embedded-HTML-Display-Win32-OLE.....ok t/embedded-HTML-Display-Win32.........ok t/embedded-HTML-Display...............ok Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/14-command-identity.t 44 11264 353 44 7 15 23 31 39 47 55 63 71 79 87 95 103 111 119 127 135 143 151 159 167 175 183 191 199 207 215 223 231 239 247 255 263 271 279 287 295 303 311 319 327 335 343 351 t/16-form-fillout.t 3 768 7 3 5-7 t/20-restart-without-script.t 1 256 4 1 4 t/98-bin.t 1 256 1 1 1 288 subtests skipped. Failed 4/55 test scripts. 49/859 subtests failed. Files=55, Tests=859, 64 wallclock secs (14.96 cusr + 5.30 csys = 20.26 CPU) Failed 4/55 test programs. 49/859 subtests failed. make: *** [test_dynamic] Error 11 -- Summary of my perl5 (revision 5.0 version 6 subversion 2) configuration: Platform: osname=linux, osvers=2.4.27-3-686, archname=i686-linux uname='linux pigsty 2.4.27-3-686 #1 tue dec 5 21:03:54 utc 2006 i686 gnulinux ' config_args='-Dprefix=/home/david/cpantesting/perl-5.6.2 -de' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef Compiler: cc='cc', ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O3', cppflags='-fno-strict-aliasing' ccversion='', gccversion='3.3.5 (Debian 1:3.3.5-13)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldl -lm -lc -lcrypt -lutil perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil libc=/lib/libc-2.3.2.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
