WWW-Mechanize-2.06/000755 000765 000024 00000000000 14135615003 014110 5ustar00olafstaff000000 000000 WWW-Mechanize-2.06/perltidyrc000644 000765 000024 00000000330 14135615003 016210 0ustar00olafstaff000000 000000 --blank-lines-before-packages=0 --iterations=2 --no-outdent-long-comments -b -bar -boc -ci=4 -i=4 -l=78 -nolq -se -wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x=" WWW-Mechanize-2.06/perlcriticrc000644 000765 000024 00000001277 14135615003 016527 0ustar00olafstaff000000 000000 [-CodeLayout::ProhibitParensWithBuiltins] [CodeLayout::ProhibitHardTabs] allow_leading_tabs = 0 [-CodeLayout::RequireTidyCode] [-ControlStructures::ProhibitPostfixControls] [-Documentation::RequirePodAtEnd] [-Documentation::RequirePodSections] [-Editor::RequireEmacsFileVariables] [-ErrorHandling::RequireCarping] [-InputOutput::ProhibitInteractiveTest] [-InputOutput::ProhibitBacktickOperators] [-Miscellanea::RequireRcsKeywords] [-Modules::RequireVersionVar] [-RegularExpressions::RequireExtendedFormatting] [-RegularExpressions::RequireLineBoundaryMatching] [-ValuesAndExpressions::ProhibitConstantPragma] [-ValuesAndExpressions::ProhibitEmptyQuotes] [-Variables::ProhibitPunctuationVars] WWW-Mechanize-2.06/cpanfile000644 000765 000024 00000005551 14135615003 015622 0ustar00olafstaff000000 000000 # This file is generated by Dist::Zilla::Plugin::CPANFile v6.024 # Do not edit this file directly. To change prereqs, edit the `dist.ini` file. requires "Carp" => "0"; requires "Getopt::Long" => "0"; requires "HTML::Form" => "1.00"; requires "HTML::HeadParser" => "0"; requires "HTML::TokeParser" => "0"; requires "HTML::TreeBuilder" => "5"; requires "HTTP::Cookies" => "0"; requires "HTTP::Request" => "1.30"; requires "HTTP::Request::Common" => "0"; requires "LWP::UserAgent" => "6.45"; requires "Pod::Usage" => "0"; requires "Scalar::Util" => "1.14"; requires "Tie::RefHash" => "0"; requires "URI::URL" => "0"; requires "URI::file" => "0"; requires "base" => "0"; requires "perl" => "5.006"; requires "strict" => "0"; requires "warnings" => "0"; recommends "Compress::Zlib" => "0"; on 'test' => sub { requires "CGI" => "4.32"; requires "Exporter" => "0"; requires "ExtUtils::MakeMaker" => "0"; requires "File::Spec" => "0"; requires "File::Temp" => "0"; requires "FindBin" => "0"; requires "HTTP::Daemon" => "6.12"; requires "HTTP::Response" => "0"; requires "HTTP::Server::Simple::CGI" => "0"; requires "LWP" => "0"; requires "LWP::Simple" => "0"; requires "Path::Tiny" => "0"; requires "Test::Deep" => "0"; requires "Test::Exception" => "0"; requires "Test::Fatal" => "0"; requires "Test::Memory::Cycle" => "1.06"; requires "Test::More" => "0.96"; requires "Test::NoWarnings" => "1.04"; requires "Test::Output" => "0"; requires "Test::Taint" => "1.08"; requires "Test::Warn" => "0"; requires "Test::Warnings" => "0"; requires "URI" => "0"; requires "URI::Escape" => "0"; requires "bytes" => "0"; requires "lib" => "0"; }; on 'test' => sub { recommends "CPAN::Meta" => "2.120900"; }; on 'configure' => sub { requires "ExtUtils::MakeMaker" => "0"; }; on 'configure' => sub { suggests "JSON::PP" => "2.27300"; }; on 'develop' => sub { requires "Code::TidyAll" => "0.71"; requires "Code::TidyAll::Plugin::SortLines::Naturally" => "0.000003"; requires "Code::TidyAll::Plugin::Test::Vars" => "0.04"; requires "Code::TidyAll::Plugin::UniqueLines" => "0.000003"; requires "LWP::Protocol::https" => "6.07"; requires "Parallel::ForkManager" => "1.19"; requires "Perl::Critic" => "1.132"; requires "Perl::Tidy" => "20180220"; requires "Pod::Coverage::TrustPod" => "0"; requires "Test::Code::TidyAll" => "0.50"; requires "Test::EOL" => "0"; requires "Test::Mojibake" => "0"; requires "Test::More" => "0.88"; requires "Test::Needs" => "0"; requires "Test::Pod" => "1.41"; requires "Test::Pod::Coverage" => "1.08"; requires "Test::Portability::Files" => "0"; requires "Test::RequiresInternet" => "0"; requires "Test::Vars" => "0.014"; requires "Test::Version" => "1"; requires "constant" => "0"; requires "lib" => "0"; }; on 'develop' => sub { recommends "Dist::Zilla::PluginBundle::Git::VersionManager" => "0.007"; }; WWW-Mechanize-2.06/Changes000644 000765 000024 00000164062 14135615003 015414 0ustar00olafstaff000000 000000 Revision history for WWW::Mechanize 2.06 2021-10-25 20:56:12Z [DOCUMENTATION] - Document methods that don't work with :content_file (GH#219) (Julien Fiegehenn) 2.05 2021-09-21 14:06:00Z - Update docs for protocols_allowed and protocols_forbidden (GH#323) (Olaf Alders) 2.04 2021-08-06 12:28:31Z [ENHANCEMENTS] - Add a head() method to allow relative URLs (GH#321) (Julien Fiegehenn) [DOCUMENTATION] - Document that form_id() accepts an id, not a name (GH#319) (Olaf Alders) - Clarify documentation (GH#320) (Julien Fiegehenn) 2.03 2020-11-10 14:47:04Z [FIXED] - Validate exclusive button selectors (GH#314) (Ferenc Erki) 2.02 2020-10-13 13:50:28Z [ENHANCEMENTS] - Add redirects() as a short to HTTP::Response->redirects (GH#116) (Julien Fiegehenn) - click_button( value => $foo) now also works for button tags and image buttons (GH#131) (Spencer Christensen) and (Julien Fiegehenn) [DOCUMENTATION] - Document that click_button() will die when it cannot find a button (GH#136) (Julien Fiegehenn) - Document that content() returns undef before a request was made (GH#134) (Julien Fiegehenn) [TESTS] - Add a test for dump_forms() with multiselect (GH#133) (Julien Fiegehenn) - Add tests for select multiple (GH#132) (Michael G. Schwern) and (Julien Fiegehenn) - Remove use of discouraged vars pragma (James Raspass) - Add tests for dump_forms() and field() with empty attributes (GH#125) (Julien Fiegehenn) 2.01 2020-09-18 17:51:10Z - Add rel filter to find_link() (GH#305) (Julien Fiegehenn) - Fix typos (GH#304) (Ferenc Erki) 2.00 2020-06-09 19:09:53Z - Require LWP::UserAgent 6.45 (GH#302) (Shoichi Kaji) 1.99 2020-06-08 15:35:04Z - Bump HTTP::Daemon test dependency to 6.12 (GH#300) (Olaf Alders) 1.98 2020-05-25 17:06:47Z (TRIAL RELEASE) - Don't make assumptions about port 80 in test (GH#299) (Olaf Alders) 1.97 2020-05-14 00:46:53Z - Respect CDATA[[ sections when parsing HTML (GH#298) (Max Maischein) - extract image links also from css (GH#12) (Jozef Kutej) and (GH#297) (Julien Fiegehenn) - s/parm/param/ in documentation (GH#295) (Olaf Alders) 1.96 2020-02-21 02:23:40Z [FIXED] - HTML::Form::find_input() has a 1-based index (GH#293) (Olaf Alders) - Fix invocation of dump_forms in mech-dump (GH#288) (積丹尼 Dan Jacobson) - make xt/author/eol.t pass (GH#291) (Shoichi Kaji) [DOCUMENTATION] - Fix documentation of use of undef in form_with() and all_forms_with() (GH#289) (積丹尼 Dan Jacobson) 1.95 2019-10-28 13:07:45Z [FIXED] - die if submit_form() called with invalid form_id (GH#287) (Olaf Alders) 1.94 2019-10-10 13:12:28Z [FIXED] - Issue #182: Don't autocheck for mech-dump so basic auth works (GH#285) (Julien Fiegehenn) [DOCUMENTATION] - Fix pod error reported by CPANTS. (GH#284) (Mohammad S Anwar) 1.93 2019-10-04 21:06:49Z [FIXED] - Allow images to not have a src attribute (GH#282) (Julien Fiegehenn) [DOCUMENTATION] - Pod fixes. (GH#283) (Mohammad S Anwar) 1.92 2019-08-24 01:00:35Z [FIXED] - Test requires HTTP::Daemon 6.05+ and uses 127.0.0.1 or [::1] according to server's sockdomain (GH#280) (Shoichi Kaji) - Install LWP::Protocol::https and fix xt/author/live/encoding.t (GH#277) (Shoichi Kaji) - Set dist trusty for old Perls on Travis (GH#279) (Shoichi Kaji) - Fixed pod errors as reported by CPANTS. (GH#273) (Mohammad S Anwar) [DOCUMENTATION] - Document that follow_link will die on failure with autocheck enabled (GH#271) (Olaf Alders) [TESTS] - Add a test for finding a link in a meta refresh tag (GH#275) (Olaf Alders) 1.91 2019-01-10 18:44:33Z [ENHANCEMENTS] - Don't install Perl::Critic and Perl::Tidy to run user tests (GH#268) (Julien Fiegehenn) - Remove redundant PodSyntaxTests (GH#265) (Andrew Grangaard) - Add test dependency for Perl::Tidy (GH#263) (Julien Fiegehenn) 1.90 2018-11-12 18:02:03Z [DOCUMENTATION] - Pod fixes (GH#261) (Julien Fiegehenn) - Fixed pod error as reported by CPANTS. (GH#264) (Mohammad S Anwar) [ENHANCEMENTS] - Upgrade to HTML::TreeBuilder version 5 to get support for weak references in HTML::Element (GH#251) (GH#262) (Julien Fiegehenn) 1.89 2018-10-18 19:13:34Z [ENHANCEMENTS] - Add support to find_image() and find_all_images() via 'id' and 'class' (GH#242) (Julien Fiegehenn) - Pass strict/verbose constructor args to HTML::Form (GH#256) (Julien Fiegehenn) - Add ability to clear history and tests for history (GH#259) (mschae94) 1.88 2018-03-23 15:37:25Z ======================================== [FIXED] - tick() now dies if checkbox is not found (GH#248) (Olaf Alders) [DOCUMENTATION] - Clarify behaviour of submit_form when with_fields is supplied as an arg (GH#247) (Olaf Alders) - Document some "Best Practices" (GH#246) (Olaf Alders) - Update links in Pod. Suggest LWP::ConsoleLogger rather than LWP::Debug (GH#244) (Olaf Alders) 1.87 2018-02-07 22:04:16Z ======================================== [FIXED] - Fix typo in contributor name (GH#241) (Philippe Bruhat (BooK)) - Fix link to Michael Schilli's article in Linux magazine (GH#240) (Bernhard Wagner) - Fix some section links (GH#238) (Evan Zacks) - Override _agent() method. (GH#236) (Сергей Романов) - Link to appropriate section of HTML::Form (GH#237) (Evan Zacks) - Make version consistent in .pm files (GH#231) (Olaf Alders) [ENHANCEMENTS] - Return form number in list context. (GH#235) (Сергей Романов) - Overload 'post' in order to set 'base'. (GH#111) (Stuart A Johnston) - Allow multiple file paths/uris in mech-dump; fixes issue 72 (GH#113) (Nik LaBelle) - Add docs for the output of dump_forms (GH#112) (John Beppu) 1.86 2017-07-04 15:48:46Z ======================================== [FIXED] - use 127.0.0.1 instead of 'localhost' in a test script to avoid the test hanging due to ipv6 issues (GH#31, see also changes in 1.85) 1.85 2017-06-28 22:06:00Z ======================================== [FIXED] - use 127.0.0.1 instead of 'localhost' in a test to avoid the test hanging due to ipv6 issues (GH#31) - Remove private logic for taint checking (Dave Doyle) - Fix Pod (simbabque) - Bump Test::More prereq to get working subtest support (Karen Etheridge) - Fix intermittent failures of taint.t (GH#108) (Kivanc Yazan) - Fix kwalitee issues (GH#107) (Kivanc Yazan) [ENHANCEMENTS] - Print section titles if mech-dump --all is invoked (GH#81) (Сергей Романов) - Add cookbook docs on dumping a req without sending it (#115) (Grigor Karavardanyan) - Document that submit only submits current form (GH#114) (nawglan) - Add Travis testing on Perl 5.26 (Karen Etheridge) - Remove obsolete and unincremented $VERSIONs in test modules (Karen Etheridge) 1.84 2017-03-07 13:34:57-05:00 America/Toronto ======================================== [ENHANCEMENTS] - Parse url (href attribute) for js window.open GH#11 [FIXED] - Set STDOUT to be utf8 in mech-dump. Fixes issue GH#36 - Added --version option to mech-dump - Don't die on uri() when there has been no request. Fixes issue GH#60 - Remove old information from the cookbook. Fixes issue GH#28 - Documentation correction. Fixes issue GH#65 and GH#59 - Work around Test::More prior to 1.001004. Fixes GH#74 - Fix hostname in test. Fixes GH#73 1.83 2016-10-14 16:45:30-04:00 America/Toronto ======================================== [FIXED] - Moved live tests to be author tests. Run using dzil test --author. (Steve Scaffidi) 1.82 2016-10-06 23:00:30-04:00 America/Toronto ======================================== [ENHANCEMENTS] - Added strict_forms flag to submit_form() which sets the HTML::Form strict flag (Gareth Tunley) [FIXED] - Fixed tests which tried to access HTTPS urls when LWP::Protocol::https wasn't installed (Olaf Alders). Reported by Slaven Rezić. See https://github.com/libwww-perl/WWW-Mechanize/issues/54 1.81 2016-10-06 08:52:44-04:00 America/Toronto ======================================== [FIXED] - Work around bug in HTTP::Cookies that is triggered on reload(). See https://rt.cpan.org/Public/Bug/Display.html?id=75897 (Gianni Ceccarelli) 1.80 2016-09-24 22:38:27-04:00 America/Toronto ======================================== [FIXED] - Fixes behaviour of submit_form() when multiple filters have been supplied (Ed Avis) 1.79 2016-09-16 23:53:48-04:00 America/Toronto ======================================== [ENHANCEMENTS] - Added form_with() method. (Martin Sluka) 1.78 2016-08-08 09:18:59-04:00 America/Toronto ======================================== [OTHER CHANGES] - No changes specific to this version. First non-develepment release in about a year. 1.77 2016-08-05 12:50:12-04:00 America/Toronto (TRIAL RELEASE) ======================================== [TESTS] - Skip Wikipedia tests if LWP::Protocol::https is not installed. 1.76 2016-07-29 12:17:25-04:00 America/Toronto (TRIAL RELEASE) ======================================== [ENHANCEMENTS] - Added history() and history_count() methods. (Ricardo Signes) - click_button() now accepts ids. (Olaf Alders) - Add a more descriptive error message when ->request is called without a parameter. (Max Maischein) [DOCUMENTATION] - Document that form_id warns in addition to returning undef when a form cannot be found. (Olaf Alders) - Document use of a proxy with bin/mech-dump. (Florian Schlichting) [OTHER CHANGES] - New releases for this distribution are now generated by Dist::Zilla 1.75 2015-06-03 ======================================== [OTHER CHANGES] - WWW::Mechanize::Image and WWW::Mechanize::Link now have a defined $VERSION - fixed warning about the use of the encoding pragma (new in 5.22) (RT#91971) - fixed warning about the use of CGI::param in list context (RT#103096) 1.74 2015-01-23 ======================================== [OTHER CHANGES] - updated repository link in metadata 1.73 2013-08-24 ======================================== [TESTS] - Update t/local/back.t to use LocalServer for 404 checking to avoid fails on win32. Fix by Matt S Trout, patient diagnostics and testing provided by jayefuu of freenode #perl - Blow away more proxy env vars in LocalServer, and do it on load so that the LWP env checking doesn't happen before we've done it. [OTHER CHANGES] - Better error when passing only one parameter to follow_link 1.72 Thu Feb 2 18:37:28 EST 2012 ======================================== [DEPENDENCIES] Bumped the HTML::Form dependency to fix failures on CentOS 5 1.71 Tue Nov 14 13:50:41 EDT 2011 ======================================== [ENHANCEMENTS] Recognise application/xhtml+xml as HTML. [DOCUMENTATION] Improved docs about support of JavaScript Typo fixes. [TESTS] Updated tests as oops-music.com is in utf-8 now 1.70 Fri Aug 26 13:46:30 EDT 2011 ======================================== [ENHANCEMENTS] Mech now defaults to _not_ running live tests by default. You can still enable them by running "perl Makefile.PL --live" Thanks to RJBS for the suggestion 1.69_01 ======================================== [INTERNALS] The test suite for the local tests was updated 1.68 Fri Apr 22 01:10:40 EST 2011 ======================================== No changes from 1.67_01 1.67_01 ======================================== [ANNOUNCE] As of this release, Jesse Vincent has taken over maintenance of WWW-Mechanize. The project's repository can be found at: https://github.com/bestpractical/www-mechanize [FIXED] Added prereq for HTML::TreeBuilder. 1.66 Fri Sep 10 16:25:44 CDT 2010 ======================================== [FIXED] Fixed prerequisites on HTTP::Server::Simple on Windows. DNS checks in t/autocheck.t and t/local/failure.t improved. Thanks, Schwern. [ENHANCEMENTS] New $mech->text method returns the text from your HTML page. The exact rendering of this text is simply removing all the HTML tags, but this will change. It's pretty ugly. If anyone wants to work on a better-looking text dump, I'd love to see it. Added mech-dump --text. [DOCUMENTATION] Improvements to the docs explaining explicitly about the subclassed methods we inherit from LWP::UserAgent. Thanks, Lyle Hopkins! 1.64 Thu Jul 1 10:41:00 CDT 2010 ======================================== [THINGS THAT MAY BREAK YOUR CODE] If you've been accessing $mech->{forms} or $mech->{form} values directly, instead of going through the $mech->forms or $mech->current_form accessors, respectively, then this version of Mech will break your code. [ENHANCEMENTS] Parsing of forms has been delayed until they're actually needed. If don't use forms on a page, you'll no longer waste time and memory parsing them. $mech->title now caches the title of the page after parsing the page to find it. mech-dump now takes a --cookie-file parameter for keeping cookies between calls. Thanks, Damien Clark. [DOCUMENTATION] Typo fixes. 1.62 Sat Apr 10 23:10:07 CDT 2010 ======================================== [FIXED] Fixed a declaration in the Movable Type example in WWW::Mechanize::Examples. Quiet warnings if %ENV has undef values. $mech->follow_link() no longer dies with an inappropriate error if the link is not found. $mech->click_button() now checks to see if a form is selected. [INCOMPATIBILITIES] $mech->form_name() and $mech->form_number() no longer throw warnings if they can't find the form specified. They still return undef, though. [DOCUMENTATION] More additions to the FAQ. 1.60 Mon Aug 17 00:41:39 CDT 2009 ======================================== No new features. Exists only to skip tests that always fail on Windows. Fixed up some minor documentation problems. 1.58 Mon Jul 13 22:32:23 CDT 2009 ======================================== No new features. If you have 1.56 installed OK, you do NOT need to install 1.58. [FIXES] Removed prereq of HTTP::Response::Encoding, even though it was never used. Thanks for the catch, Gisle. 1.56 Thu Jul 9 00:36:54 CDT 2009 ======================================== [THINGS THAT MAY BREAK YOUR CODE] For a while, Mech used HTTP::Response::Encoding to try to suss out the proper encoding of the page it receives. Now, it lets LWP::UserAgent do the work, and no longer requires HTTP::Response::Encoding. [ENHANCEMENTS] Added a new dump_headers() method to dump the HTTP response headers. Added --headers flag to mech-dump to dump the HTTP response headers. [FIXES] Now requires LWP version 5.829 because HTTP::Response has memory cycle bugs. [DOCUMENTATION] Added a few notes to the FAQ, and fixed some incorrect docs. 1.55_01 Mon Jul 6 12:17:10 CDT 2009 ======================================== This is mostly a bug fix release. There will be a number of other bug fix releases in the next few days. [FIXED] New test server now randomizes the port it runs on. t/cookies.t should not hang on Windows any more. META.yml has been updated so the search.cpan.org links should be correct. Passing no_proxy would make LWP::UserAgent barf. Thanks to Mike Schilli for the fix. Cookies test would fail under Windows. Fixed, thanks to many people reporting it. [ENHANCEMENTS] $mech->submit_form() now can specify the form by ID using the form_id parameter. [DOCUMENTATION] The docs used to say that ->stack_depth(0) was an infinite stack size. This is wrong. Zero will tell Mech not to keep any history. 1.54 Mon Jan 12 00:36:08 CST 2009 ======================================== [FIXED] Removed the computers4sure test that was failing. 1.52 Tue Nov 25 09:52:30 CST 2008 ======================================== [FIXED] Improved some error messages in $mech->submit_form(). Thanks to Norbert Buchmuller. 1.51_03 Thu Nov 20 11:05:49 CST 2008 ======================================== [FIXED] The $mech->clone() method was not passing the cookie jar to its clone properly. Thanks to David Sainty. The $mech->back() can fail if there's nothing on the stack to go back to. Thanks to Dave Page. $mech->follow_link() did not complain if a link could not be found, even with autocheck on. Now it does. Thanks, Flavio Poletti. [ENHANCEMENTS] Added a $mech->form_id() method so you can look up forms by ID. Added $mech->content_type(), because $mech->ct() is too cryptic. 1.51_02 Tue Nov 18 01:30:54 CST 2008 ======================================== [STILL BROKEN] t/local/click_button.t is still failing its tests for calling ->click on an HTML::Form object. I suspect this is an LWP change, but I haven't dug into it enough yet. [FIXES] Fixed the bad credentials API that stomped on LWP::UserAgent's credentials() method. Thanks to Max Maschien and Matt Lawrence. The $mech->links method now finds links. Thanks to H.Merijn Brand. Makefile.PL explicitly requires Perl 5.8.0. URI.pm has to be version 1.36 or else URIs don't get encoded correctly. LWP has to be 5.819 or we have encoding problems. 1.51_01 Thu Nov 6 15:13:03 CST 2008 ======================================== [FIXES] Page history is now working much better. The $mech->back() method should behave more like a browser now. Most notably, it no longer restores the cookie state, just like your browser doesn't restore cookie state when you page back. It also should use much less memory. 1.50 Sun Sun Oct 26 22:42:46 CDT 2008 ======================================== [THINGS THAT MAY BREAK YOUR CODE] WWW::Mechanize now requires version 5.815 of LWP. This in itself may cause problems for you because of changes in how LWP does authentication. 1.49_01 Sat Sep 27 23:50:04 CDT 2008 ======================================== [THINGS THAT MAY BREAK YOUR CODE] The autocheck argument to the constructor is now ON by default, unless WWW::Mechanize is being subclassed. There are so many new programmers whose ->get() calls fail unchecked that I'm now putting on the seat belts for them. [FIXES] I do believe we are on the way to having all the encoding problems ironed out. This version incorporates a patch from here: http://code.google.com/p/www-mechanize/issues/detail?id=61 and tests from Miyagawa's WWW::Mechanize::DecodedContent http://search.cpan.org/dist/WWW-Mechanize-DecodedContent/ to finally fix this. [ENHANCEMENTS] You can now specify not to set up the proxy, if there is one. The proxy causes problems for Crypt::SSLeay. For details see: http://code.google.com/p/www-mechanize/issues/detail?id=39 [DOCUMENTATION] Fixed internal links. [INTERNALS] Lots of refactoring based on Schwern's "Skimmable Code" talk. http://use.perl.org/~schwern/journal/36704 http://schwern.org/~schwern/talks/Skimmable%20Code%20-%20YAPC-NA-2008.pdf 1.34 Mon Dec 10 00:30:39 CST 2007 ======================================== [FIXES] Many fixes to make the test suite more portable. 1.32 Tue Oct 30 12:02:17 CDT 2007 ======================================== [ENHANCEMENTS] Added dump methods to mirror mech-dump: * $mech->dump_images() * $mech->dump_links() * $mech->dump_forms() * $mech->dump_all() Sanity checks in the WWW::Mechanize::Image constructor. Every Image must have a "url" and "tag" field passed in to it. 1.31_02 Thu Oct 25 11:48:29 CDT 2007 ======================================== [ENHANCEMENTS] Added class, class_regex, id and id_regex limiters to find_link() and find_all_links(). Thanks to Adriano Ferreira. 1.31_01 Mon Sep 17 23:38:03 CDT 2007 ======================================== [FIXES] Mech tests now pass even if your DNS server gives A records for anything (like OpenDNS). Thanks, Miyagawa! Searching for the is now case-inensitive. A better solution would be to actually parse the HTML. [ENHANCEMENTS] mech-dump now handles --user and --password arguments for sites that require authentication. 1.30 Thu May 24 21:31:10 CDT 2007 ======================================== [DOCUMENTATION] Minor doc fixes. Thanks David Steinbrunner. 1.29_01 Tue May 22 14:02:55 CDT 2007 ======================================== Kevin Falcone and I ask for your assistance in figuring out how to handle the warnings thrown by the tests, other than hiding them. [FIXES] Overhauled how tainting was done. Stole code directly from Test::Taint. Have LWP only handle decoding of Content-Encoding, not charset. [DOCUMENTATION] Fixed the docs for $mech->submit_form()'s with_fields arg. Thanks, Peteris Krumins. 1.26 Wed May 16 14:21:29 CDT 2007 ======================================== [FIXES] Re-reversed the content decoding. This is critical for reading from sites with gzip on the fly, like Wikipedia. Content is now properly tainted. [ENHANCEMENTS] mech-dump can now pass --agent and --agent-alias flags so you can fetch from sites like Wikipedia that block LWP user agents. [INSTALLATION] The mech-dump program is now always installed. It no longer is presented as an option. 1.24 Fri May 11 15:57:56 CDT 2007 ======================================== NOTE: Version 1.24 will NOT automatically decode gzipped content for you any more. Consider it a "do not use" release. [FIXES] * Fixed failures in "make test" with some versions of HTTP::Server::Simple * RT #26593: Improved handling of charsets. Thanks Kevin Falcone. * RT #24354: find_link now handles http-equivs with quoted URLs. * Reverses the change in 1.21_01 where it decodes the content. [ENHANCEMENTS] * Added find_all_inputs() and find_all_submits() methods. Thanks, Mike O'Regan. * Test::LongString is no longer needed, so has been removed as a requirement. [TESTS] * Added a test for save_content() 1.22 Fri Mar 2 00:05:57 CST 2007 ======================================== [INTERNALS] Added new tests. Added Perl::Critic changes and a perlcriticrc file. 1.21_04 Sat Oct 7 21:35:42 CDT 2006 ======================================== [FIXES] * $mech->content( type => 'text' ) was not freeing memory. Thanks to Cat Okita for finding it. [INTERNALS] * Made the order of params to $mech->content() not relevant. 1.21_03 Sat Oct 7 01:21:46 CDT 2006 ======================================== [THINGS THAT MAY BREAK YOUR CODE] * The methods $mech->form() and $mech->follow() have been removed. They've been deprecated since 1.10, which was released in Feb 2005. [ENHANCEMENTS] * I'm trying to nail down what seems to be a memory leak on long-running Mech programs. I'm stringifying URI::URL objects wherever I can. [INTERNALS] * No longer uses UNIVERSAL. 1.21_02 Wed Oct 4 13:14:30 CDT 2006 ======================================== [ENHANCEMENTS THAT MAY BREAK YOUR CODE] * The $mech->stack_depth() setting had no way to say "don't cache any pages at all". How silly! Now, if you set $mech->stack_depth(0), no history of pages will be kept. In the past, it would mean "Keep all pages." This means that if you want to set it to keep all pages, set it to some ridiculously large number. [DOCUMENTATION] * The docs previously refered to Compress::Gzip instead of Compress::Zlib. 1.21_01 Mon Sep 18 17:18:43 CDT 2006 ======================================== [ENHANCEMENTS] * If Compress::Zlib is installed, gzipped content is now accepted and transparently decoded. No additional syntax needed! This should save time and bandwidth in a number of cases. (Mark Stosberg) * Added a put() method. It also calls a subfunction called _SUPER_put that will be removed once LWP::UserAgent supports put(). 1.20 Sat Aug 19 09:09:08 EDT 2006 [ENHANCEMENTS] * Added new two-argument form of credentials() method. $mech->credentials($username, $password); That provides simpler visiting of password-protected resources in the vast majority of cases and still allows the other cases to be supported. (Peter Scott) [BUG FIXES] * autocheck no longer is triggered when informational responses are returned. (Mark Stosberg) [INTERNALS] * test suite no longer fails when Test::Warn is missing. (CPAN testers, Mark Stosberg) * Removed all the testing against live sites. The networking code is not actually in Mech anway, and they were prone to breaking, as the live sites changed. (Mark Stosberg) 1.19_02 Mon Aug 7 23:57:56 CDT 2006 [ENHANCEMENTS] * Add new Do-What-I-Mean submit_form() option. $mech->submit_form( with_fields => \%data ); That expresses that you want to select the first form contains all fields in \%data, and then submit the data to that form. See the docs for form_with_fields() and submit_form() for details. (Mark Stosberg, inspired by RT#6100) [BUG FIXES] * The behavior of clone() now copies over the cookie jar, which is probably what you expected it did in the first place. This fixes bug RT#13541 filed against Test::WWW::Mechanize, which was using clone() internally. (Mark Stosberg) * The correct URL is returned after redirecting. This a regression from 1.04 and was reported as RT#9059, RT#12882, and RT#12786. The documentation about this has also been clarified that we return a URI object, but that it stringifies to the URI itself. [DOCUMENTATION] * Fixed a misleading param in the constructor. * Document the return value of set_visible (RT#6071, MJD, Mark Stosberg) * Document that form_name and form_number return an HTML::Form object (Mark Stosberg) [INTERNALS] * Made lots of little cleanups based on Perl::Critic * Fix Taint-mode warnings with Perl 5.6.1 (RT#16945) 1.18 Thu Feb 2 00:11:26 CST 2006 [TESTS] * Makefile.PL now takes four new params: * --live/nolive turns on/off the live tests * --local/nolocal turns on/off the local tests * --mech-dump/nomech-dump installs/doesn't the mech-dump program * --all turns on all tests and installs mech-dump * Fixed some failures in tests. Non-existent URLs now have a "." postpended to them, so if someone's got a search domain with a wildcard (i.e. ignore.us) it'll ignore that. Also, Google's second link is now a https:// link, which some Mechs can't handle. Added a 'url_regex' which now makes it look at the second non-https link. Thanks to Pete Krawczyk. 1.16 Fri Oct 28 17:34:20 CDT 2005 [ENHANCEMENTS] * Sped up Mech significantly (~20% in some cases). Images and links are extracted from the HTML, and objects are created, only when they're actually needed. This will be a speedup for pages where you're only following links, or vice versa. [THINGS THAT MAY BREAK YOUR CODE] * If you've been relying on the $mech->{images} and $mech->{links} fields being populated so that you can bypass the $mech->images() and $mech->links() accessors, your code will break. That's OK, because you should have been using the accessors all along. 1.14 Tue Aug 30 17:17:40 CDT 2005 [DOCUMENTATION] * Added lots of new FAQs. Thanks to Peter Stevens. [INTERNALS] * Now requires Test::LongString. That's not too odious. [FIXES] * Tests now pass with the shuffling around that Google did. 1.13_01 Tue Apr 12 14:11:18 CDT 2005 [ENHANCEMENTS] * Now dies if you call submit_form() with a non-existing form_number or form_name. Before, it would just warn. [DOCUMENTATION] * Added an example of using credentials() in the cookbook. 1.12 Thu Feb 24 23:38:44 CST 2005 [FIXES] * Fixed RT #9026: hang in t/local/back.t under Windows XP. Thanks Andrew Savige. It also should no longer complain about being unable to clean up a temp file. 1.11_01 Mon Feb 14 00:12:48 CST 2005 [THINGS THAT MAY BREAK YOUR CODE] * Removed deprecated _parse_html() method. [FIXES] * Was incorrectly looking for INPUT tags TYPE="SUBMIT" as images. Thanks to Abe Timmerman. [ENHANCEMENTS] * Calling $mech->set_fields() with no current form now dies. Thanks to Julien Beasley. 1.10 Tue Jan 31 11:30pm-ish [FIXES] * Fixed bug where images inside of links would not be found. * Fixed test failures because of Google changes. Thanks to Offer Kaye and others who sent in patches. [DOCUMENTATION] * More samples in the FAQ. Thanks to Joshua Gatcomb. [INTERNALS] * Added explanation of running live tests against Google in Makefile.PL. 1.08 Fri Dec 24 01:01:06 CST 2004 [ENHANCEMENTS] * Added find_image() and find_all_images(). 1.06 Wed Dec 8 14:58:39 CST 2004 [INTERNALS] * Now uses the base pragma instead of setting @ISA. 1.05_04 Fri Nov 5 23:35:38 CST 2004 [ENHANCEMENTS] * Added WWW::Mechanize::Image object for representing images. * Improved the regex on the URL for META tags. * Added --images flag to mech-dump. [FIXES] * When parsing urls out of meta refresh tags, "url" may now be uppercase (RT#8230) * Behavior of back() fixed in a number of cases (RT#8109 reported by Josh Purinton, patched by Dominique Quatravaux) [INTERNALS] * Mark figured out to how to prevent his text editor from putting tabs into the code. Andy's blood pressure dropped slightly. 1.05_03 Sun Oct 31 20:54:33 CST 2004 [ENHANCEMENTS] * click_button() has a new input option for HTML::Form::SubmitInput objects (DOMQ) * content() has new options to return the page formatted as text, with a added. (RT#8087, patch by Dominique Quatravaux) * update_html() method has been added, which can be used to modify the HTML that Mech parses. It should be sub-classed instead of _parse_html(), which has been deprecated. (RT#8087, patch by Dominique Quatravaux) * select() has new option to select an option by number (RT#5789, Scott Lanning) * WWW::Mechanize::Link now has support providing all the attributes of the link through a new attrs() method, which returns them as a hashref. This is a replacement for the alt() method, added in 1.05_01. It's not backwards compatible with that, but, hey, that's what developer releases are for. (RT#8092, Rob Casey and Mark Stosberg) [FIXES] * Upload does not use the default value to prevent attacks, patch by Jan Pazdziora (RT #7843). [INTERNALS] * Improved tests and documentation for select() (RT#5789, Scott Lanning) * Improve taint-safeness on Perl 5.6.1 (RT#8042, patch by Dominique Quatravaux) * Added tests for click_button() (RT#8061, by Dominique Quatravaux) * Require URI 1.25, fixing bug which exposed itself in WWW::Mechanize (RT#3048) * Move select() to better location in docs. Document and test the return values. The return value is now "1" on success instead of the undocumented behavior of returning a form value. (RT#6138, spotted by MJD, patched by Mark Stosberg) * Possible matching tags for the find_link() 'tag_regex' attribute are now documented. (RT#2989, by Mark Stosberg) * refactored find_link() to avoid use of eval(). This should improve performance a bit and avoid potential security issues. (Mark Stosberg) 1.05_02 Sat Oct 2 16:55:59 CDT 2004 [ENHANCEMENTS] * Added the $mech->save_content( $filename ) function, so you can dump stuff to files easily. 1.05_01 Thu Sep 30 21:04:44 CDT 2004 [FIXES] * set_visible() doesn't stop setting values when it finds a zero. [ENHANCEMENTS] * WWW::Mechanize::Link has a new, easier to remember constructor interface. The old one is still supported. Support for including an 'alt' attribute was added, which is useful for links. (RT #3317). Thanks to Mark Stosberg. * When links are extracted from tags, the ALT attribute will be captured and become part of the WWW::Mechanize::Link object. (RT #3317). Patch by Mark Stosberg. [INTERNALS] * t/mech-dump.t is now more portable (RT #7690) * t/local/follow.t has new tests to confirm that 'follow*' functions work with characters like o-umlaut, even when the o-umlaut is encoded in the HTML, but not in the call to follow(). (RT #2416) By Mark Stosberg. 1.04 Wed Sep 15 23:27:53 CDT 2004 [ENHANCEMENTS] * $mech->get() now accepts a WWW::Mechanize::Link object. * $mech->stack_depth(n) lets you set the depth of the mech object's page stack. This way, if you have a Mech that does lots of stuff and never/rarely goes back(), you won't be eating up memory. Thanks to BooK and Chi-Fung. (RT #5362) [FIXES] * Fixed tests that fail under LWP >= 5.800. * Added a workaround for LWP::UserAgent->clone() when ->{proxy} is undef. (RT #6443) * The Referer was getting passed as a URI object sometimes, and that caused sadness. Eugene Haimov supplied a workaround. (RT #6372) [DOCUMENTATION] * Added Ian Langworth's listmod and John Beppu's photobucket uploader programs to WWW::Mechanize::Examples. * Minor doc tweak for find_link() * Finally added a value() func. Thanks to Spoon, who even now, months after his passing, is still contributing to Mechanize. 1.02 Tue Apr 13 22:45:10 CDT 2004 No reason to install if you have 1.00. Fixes are only in tests. [FIXES] * t/referer.t didn't cope with spaces in $FindBin::Bin. Plus, it now forces its URL to localhost. 1.00 Sat Apr 10 00:35:51 CDT 2004 I figure it's about time we hit 1.00, and this version seems like a good place to do it, because of the potential breakage described below... [THINGS THAT WILL BREAK YOUR CODE] * Header handling has changed. There is no more package variable %headers that holds all the headers to be added. They are now added on a per-object basis. If you were adding a header with add_header(), and the code relied on that header still being set later on in a later instance of the class, that code will now break, because the later instance won't have the header set. [ENHANCEMENTS] * You can now prevent a header from being sent by adding it with an undef value, as in: $mech->add_header( Referer => undef ); [FIXES] * Now correctly adds Accept-Encoding to all requests that need it. [INTERNALS] * Added new $mech->_modify_request($req) method to do all the HTTP header modification before the actual request gets sent off. Subclasses are able to override it if they want. * Removed the unused Compress::Zlib stuff. 0.76 Wed Apr 7 22:01:43 CDT 2004 [ENHANCEMENTS] * Added update_html() to let you update the HTML for the page you're on. [FIXES] * Test files account for new Google layout. [INTERNALS] * Rearranged the local tests into their own t/local/ directory. * Made the standalone tests show what server they're hitting. * Checked that it runs under LWP 5.78. 0.74 Mon Mar 22 23:36:46 CST 2004 [ENHANCEMENTS] * WWW::Mechanize now sends an Accept-Encoding header of "identity" to always enforce plaintext responses. Preliminary support for Compress::Zlib is also there, but is disabled by default. * Added click_button() and select() methods. The field() method can now take an arrayref of values, if appropriate. Thanks, Linda Lee Julien. * Added url_abs and url_abs_regex params to find_all_links(). * URLs in META REFRESH tags are now treated as links. * t/taint.t makes sure that things that should be tainted are. [FIXES] * Still more fixes if the machine you're on doesn't have DNS pointing to it. * The local changes use localhost as the local host name, instead of whatever host name that might be on the box, but not in DNS. Thanks to David Wheeler for letting me play on his box. * The http_proxy and HTTP_PROXY environment variables get deleted during the tests that access the dummy local server. This should let your tests pass, and clear up a lot of RT tickets. 0.72 Mon Jan 26 21:07:20 CST 2004 [ENHANCEMENTS] * Added the set_visible() method, thanks to Peter Scott. [DOCUMENTATION] * Started the Cookbook at WWW::Mechanize::Cookbook.pod. [INTERNALS] * Made the globbing in Makefile.PL a little less command-line intensive. Also fixed the missing files in MANIFEST. * Added t/pod-coverage.t for testing POD coverage. 0.71_02 Mon Dec 22 14:29:13 CST 2003 [THINGS THAT MAY BREAK YOUR CODE] * Added a 5th, optional parameter to WWW::Mechanize::Link's constructor. In 0.71_01, it was at the beginning of the argument list and was required. Now it's at the end and is optional. If, in the 15 hours since 0.71_01 came out, you went and changed all your WWW::Mechanize::Link constructors, you'll have to change them around again. Otherwise, you can just ignore this change. 0.71_01 Sun Dec 21 23:48:12 CST 2003 [THINGS THAT MAY BREAK YOUR CODE] * WWW::Mechanize::Link's constructor has a new argument that needs to be passed in, at the start of the argument list. [ENHANCEMENTS] * WWW::Mechanize::Link object now takes a $base URL, and will return absolute URLs with the url_abs() method. Thanks to Ashley Pond. * Added another script to WWW::Mechanize::Examples. It's a script that didn't make it into Spidering Hacks. [INSTALL & TESTS] * Heavy use of the new Test::Memory::Cycle module. * Fixed Makefile.PL so that the tests are selected under Win32. * Changed t/mech-dump.t so that the test succeeds under Win32. * Updated t/referer.t and t/mech-dump.t so they run under VMS. Thanks to Peter Prymmer. 0.70 Sun Nov 30 23:45:27 CST 2003 [THINGS THAT MAY BREAK YOUR CODE] * Redirects are now handled better by LWP, so the code that changes POSTs to GETs on redirects has been removed. [FIXES] * Fixed redirect_ok(), which had its API changed out from under it in LWP 5.76. [ENHANCEMENTS] * New warnings in find_link() for strings that are space padded, and for text matches that are passed a regex. Thanks to Jim Cromie. [DOCUMENTATION] * Patches from Mark Stosberg and Jim Cromie. [INTERNALS] * Removed all the checking for Carp. I don't know why I was thinking that Carp wasn't core. RT #4523. Also, a big bump in requirements on LWP: We need 5.76. 0.66 Thu Nov 13 14:35:31 CST 2003 No new functionality. Fixed up some install bugs and made a few documentation tweaks, mostly to plug Spidering Hacks. 0.65 Mon Nov 10 00:11:06 CST 2003 [ENHANCEMENTS] * Made a _parse_html() method that you can override or call manually, per request from Gavin Estey. [FIXES] * Made some path naming use File::Spec->catfile so that they work correctly under Windows. * "make clean" cleans up temp flag files. [INTERNALS] * Uses the new Test::Pod 1.00 for simplicity. 0.64 October 23, 2003 11:15pm [ENHANCEMENTS] * Many new tests, based on the excellent coverage reporting created by Paul Johnson's Devel::Cover module. * The start of JavaScript support, sort of! If you have an tag that does an onClick that opens a window, Mech will find the URL from that and make that be the link for the tag. This is for things like Movable Type that pop little windows to rebuild indexes. This is subject to change in the future. I don't know if it will, but I'm not making promises. It might be so buggy I just yank the whole thing. * Big jump in requirements, since we'll soon be using Gisle's new HTML::Form stuff. Also, older versions of HTML::Form don't give output I'm expecting. [FIXES] * Fixed the t/mech-dump.t failure. 0.63 October 13, 2003 2:56pm [ENHANCEMENTS] * mech-dump defaults to dumping forms. * Added name, name_regex, tag and tag_regex options to find_link() and follow_link(). * Added tests from Jim Brandt. 0.62 October 7, 2003 8:46pm [THINGS THAT MIGHT BREAK YOUR CODE] * The params for find_link()'s url_regex and text_regex must now be actual regex objects, as in qr// objects. They can't just be little text strings. If this is a big bummer, let me know. [ENHANCEMENTS] * Added autocheck param, to tell your Mech object to die on any error. This saves you from having to check yourself. This closes RT #3056. * Renamed the internal _carp() method as warn(). * Added a die() method. * Can now override the warn() and die() handlers in the constructor. * find_link() now complains if it gets a *_regex param that isn't actually a regex. See RT #3032. [FIXES] * mech-dump.t no longer runs if you're not installing mech-dump. See RT #3724. [DOCUMENTATION] * More FAQs. Thanks to Gavin Estey. 0.61 October 6, 2003 6:30pm No new functionality here. It's mostly to get the new tests into the pipeline so the CPAN testers can run 'em. [FIXES] * Missing dependency on File::Temp. Thanks, Ask. [ENHANCEMENTS] * Added the test case for the form processing problem as a .t file, since I spent so long getting it down to a simple case. * Internal code uses accessors instead of direct hash entries. Prepare for deprecation of existing hash entries! [DOCUMENTATION] * The FAQ is now its own document at WWW::Mechanize::FAQ. 0.60 September 22, 2003 10:00pm [FIXES] * Changed how t/failure.t tries to fail. It used to hit a bogus hostname in .com, but with Verisign doing its SiteFinder crap, even bogus addresses in .com succeed. [ENHANCEMENTS] * Added _make_request() to let WWW::Mechanize::Cached easily hook into the request chain. 0.59 September 3, 2003 11:56pm [FIXES] * Squelched a warning in follow() where it tries to do a regex match against an undef value. * The page stack functionality, including the back() button, was entirely broken. Now it works. Thanks to the mighty Iain Truskett for help. [ENHANCEMENTS] * Added the mech-dump script, which replaces mech-forms. It will dump forms and lists of links. Eventually it will do lists of images, too, but not yet. 0.58 August 14, 2003 11:30pm [THINGS THAT MIGHT BREAK YOUR CODE] * $mech->uri() now returns a plain string, not a URI object. The automatic stringification of the URI object was causing problems on Win32 and/or threaded Perls, and I didn't feel like figuring out why. If the non-objectness of the uri() method is a problem, let me know. * form(), form_name() and form_number() now return the HTML::Form object of the form that was chosen. They used to return a 1 or 0. This means that if you're explicitly checking for 1 or 0, instead of evaluating the return code in a boolean context, your code will break. [FIXES] * The -handling in extract_links() was incorrectly building the text. * uri() now returns a string, not a URI object. * form(), form_name() and form_number() now return the HTML::Form object of the form that was chosen. [INTERNALS] * Determination of live vs. local tests is now done in Makefile.PL, and we don't have to set those silly semaphore files any more. * Made other cleanups in Makefile.PL, like using ExtUtils::Command instead of rolling my own touch(). * Moved all the *-live.t tests into t/live/*.t, and renamed the *-local.t files to not be -local. * Added more tests for tags. 0.57 July 31, 2003 11:21pm [ENHANCEMENTS] * Added tags to those that are links per find_links(). 0.56 July 24, 2003 12:15pm [THINGS THAT MIGHT BREAK YOUR CODE] * Created agent_alias() method to do the browser string translation. Passing "Windows IE 6" to agent() will get you back exactly that string as the agent. You have to call $a->agent_alias( "Windows IE 6" ) to get the translation. Fortunately, unless you used the new functionality of agent() in the past two days since I released 0.55, it won't be a problem. [ENHANCEMENTS] * Removed the dependencies on Carp and Test::Builder. There still is a dependency on Test::Builder for Test::More, but it's no longer explicit in the Makefile.PL. Mech will use Carp if possible, but it's no longer a requirement. [INTERNALS] * Added _carp method for handling conditional warnings, rather than checking quiet() all the time. 0.55 July 22, 2003 12:10pm [ENHANCEMENTS] * Added WWW::Mechanize::Link object to encapsulate what used to be an array reference of stuff from find_link(). This replaces having to know that $link->[0] was URL and so on. However, since WWW::Mechanize::Link is a blessed arrayref, it's backwards compatible with existing code. * The WWW::Mechanize::Link object now tracks what tag the link came from (, or
Fake Signature Signature Fake Signature WWW-Mechanize-2.06/t/TestServer.pm000644 000765 000024 00000004456 14135615003 017030 0ustar00olafstaff000000 000000 package TestServer; use warnings; use strict; use Test::More; use HTTP::Server::Simple::CGI; use base qw( HTTP::Server::Simple::CGI ); my $dispatch_table = {}; =head1 OVERLOADED METHODS =cut our $pid; sub new { die 'An instance of TestServer has already been started.' if $pid; my $class = shift; my $port = shift; if ( !$port ) { $port = int(rand(20000)) + 20000; } my $self = $class->SUPER::new( $port ); my $root = $self->root; return $self; } sub run { my $self = shift; $pid = $self->SUPER::run(@_); $SIG{__DIE__} = \&stop; return $pid; } sub handle_request { my $self = shift; my $cgi = shift; my $path = $cgi->path_info(); my $handler = $dispatch_table->{$path}; if (ref($handler) eq "CODE") { print "HTTP/1.0 200 OK\r\n"; $handler->($cgi); } else { my $file = $path; if ( $file =~ m{/$} ) { $file .= 'index.html'; } $file =~ s/\s+//g; my $filename = "t/html/$file"; if ( -r $filename ) { if (my $response=do { local (@ARGV, $/) = $filename; <> }) { print "HTTP/1.0 200 OK\r\n"; print "Content-Type: text/html\r\nContent-Length: ", length($response), "\r\n\r\n", $response; return; } } else { print "HTTP/1.0 404 Not found\r\n"; print $cgi->header, $cgi->start_html('Not found'), $cgi->h1('Not found'), $cgi->end_html; } } } =head1 METHODS UNIQUE TO TestServer =cut sub set_dispatch { my $self = shift; $dispatch_table = shift; return; } sub background { my $self = shift; $pid = $self->SUPER::background() or Carp::confess( q{Can't start the test server} ); sleep 1; # background() may come back prematurely, so give it a second to fire up my $root = $self->root; diag( "Test server $root as PID $pid" ); return $pid; } sub hostname { my $self = shift; return '127.0.0.1'; } sub root { my $self = shift; my $port = $self->port; my $hostname = $self->hostname; return "http://$hostname:$port"; } sub stop { if ( $pid ) { kill( 9, $pid ) unless $^S; undef $pid; } return; } 1; WWW-Mechanize-2.06/t/find_link.t000644 000765 000024 00000014431 14135615003 016500 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More; use URI::file; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/find_link.html' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; my $x; $x = $mech->find_link(); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://www.drphil.com/', 'First link on the page' ); is( $x->url, 'http://www.drphil.com/', 'First link on the page' ); $x = $mech->find_link( n => 3 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'styles.css', 'Third link should be the CSS' ); is( $x->url, 'styles.css', 'Third link should be the CSS' ); $x = $mech->find_link( url_regex => qr/upcase/i ); isa_ok( $x, 'WWW::Mechanize::Link' ); like( $x->url, qr/\Qupcase.com/i, 'found link in uppercase meta tag' ); $x = $mech->find_link( text => 'CPAN A' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://a.cpan.org/', 'First CPAN link' ); is( $x->url, 'http://a.cpan.org/', 'First CPAN link' ); $x = $mech->find_link( url => 'CPAN' ); ok( !defined $x, 'No url matching CPAN' ); $x = $mech->find_link( text_regex => qr/CPAN/, n=>3 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://c.cpan.org/', '3rd CPAN text' ); is( $x->url, 'http://c.cpan.org/', '3rd CPAN text' ); $x = $mech->find_link( text => 'CPAN', n=>34 ); ok( !defined $x, 'No 34th CPAN text' ); $x = $mech->find_link( text_regex => qr/(?i:cpan)/ ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://a.cpan.org/', 'Got 1st cpan via regex' ); is( $x->url, 'http://a.cpan.org/', 'Got 1st cpan via regex' ); $x = $mech->find_link( text_regex => qr/cpan/i ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://a.cpan.org/', 'Got 1st cpan via regex' ); is( $x->url, 'http://a.cpan.org/', 'Got 1st cpan via regex' ); $x = $mech->find_link( text_regex => qr/cpan/i, n=>153 ); ok( !defined $x, 'No 153rd cpan link' ); $x = $mech->find_link( url => 'http://b.cpan.org/' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://b.cpan.org/', 'Got b.cpan.org' ); is( $x->url, 'http://b.cpan.org/', 'Got b.cpan.org' ); $x = $mech->find_link( url => 'http://b.cpan.org', n=>2 ); ok( !defined $x, 'Not a second b.cpan.org' ); $x = $mech->find_link( url_regex => qr/[b-d]\.cpan\.org/, n=>2 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://c.cpan.org/', 'Got c.cpan.org' ); is( $x->url, 'http://c.cpan.org/', 'Got c.cpan.org' ); my @wanted_links= ( [ 'http://a.cpan.org/', 'CPAN A', undef, 'a' ], [ 'http://b.cpan.org/', 'CPAN B', undef, 'a' ], [ 'http://c.cpan.org/', 'CPAN C', 'bongo', 'a' ], [ 'http://d.cpan.org/', 'CPAN D', undef, 'a' ], ); my @links = $mech->find_all_links( text_regex => qr/CPAN/ ); @{$_} = @{$_}[0..3] for @links; is_deeply( \@links, \@wanted_links, 'Correct links came back' ); my $linkref = $mech->find_all_links( text_regex => qr/CPAN/ ); is_deeply( $linkref, \@wanted_links, 'Correct links came back' ); # Check combinations of links $x = $mech->find_link( text => 'News' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://www.msnbc.com/', 'First News is MSNBC' ); is( $x->url, 'http://www.msnbc.com/', 'First News is MSNBC' ); $x = $mech->find_link( text => 'News', url_regex => qr/bbc/ ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://www.bbc.co.uk/', 'First BBC news link' ); is( $x->url, 'http://www.bbc.co.uk/', 'First BBC news link' ); is( $x->[1], 'News', 'First BBC news text' ); is( $x->text, 'News', 'First BBC news text' ); $x = $mech->find_link( text => 'News', url_regex => qr/cnn/ ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://www.cnn.com/', 'First CNN news link' ); is( $x->url, 'http://www.cnn.com/', 'First CNN news link' ); is( $x->[1], 'News', 'First CNN news text' ); is( $x->text, 'News', 'First CNN news text' ); AREA_CHECKS: { my @wanted_links = ( [ 'http://www.cnn.com/', 'CNN', undef, 'a' ], [ 'http://www.cnn.com/', 'News', 'Fred', 'a' ], # Can someone confirm that I just fixed a bug here, and # area tags /should/ have names? -mls [ 'http://www.cnn.com/area', undef, 'Marty', 'area' ], ); my @links = $mech->find_all_links( url_regex => qr/cnn\.com/ ); @{$_} = @{$_}[0..3] for @links; is_deeply( \@links, \@wanted_links, 'Correct links came back' ); } $x = $mech->find_link( name => 'bongo' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is_deeply( $x, [ 'http://c.cpan.org/', 'CPAN C', 'bongo', 'a' ], 'Got the CPAN C link' ); $x = $mech->find_link( name_regex => qr/^[A-Z]/, n => 2 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is_deeply( $x, [ 'http://www.cnn.com/', 'News', 'Fred', 'a' ], 'Got 2nd link that begins with a capital' ); $x = $mech->find_link( tag => 'a', n => 3 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is_deeply( $x, [ 'http://b.cpan.org/', 'CPAN B', undef, 'a' ], 'Got 3rd tag' ); $x = $mech->find_link( tag_regex => qr/^(a|frame)$/, n => 7 ); isa_ok( $x, 'WWW::Mechanize::Link' ); is_deeply( $x, [ 'http://d.cpan.org/', 'CPAN D', undef, 'a' ], 'Got 7th or tag' ); $x = $mech->find_link( text => 'Rebuild Index' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is_deeply( [@{$x}[0..3]], [ '/cgi-bin/MT/mt.cgi', 'Rebuild Index', undef, 'a' ], 'Got the JavaScript link' ); $x = $mech->find_link( url => 'blongo.html' ); isa_ok( $x, 'WWW::Mechanize::Link' ); $x = $mech->find_link( url_abs => 'blongo.html' ); ok( !defined $x, 'No match' ); $x = $mech->find_link( url_abs_regex => qr[t/blongo\.html$] ); isa_ok( $x, 'WWW::Mechanize::Link' ); $x = $mech->find_link( text_regex => qr/click/i); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'http://www.yahoo.com/', 'Got js url link' ); is( $x->url, 'http://www.yahoo.com/', 'Got js url link' ); $x = $mech->find_link( rel => 'icon' ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'foo.png', 'Got icon url link' ); $x = $mech->find_link( rel_regex => qr/sheet/i ); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->[0], 'styles.css', 'Got stylesheet url link' ); $mech->get( URI::file->new_abs('t/refresh.html') ); my $link = $mech->find_link( tag => 'meta' ); is( $link->url, 'http://www.mysite.com/', 'got link from meta tag via tag search' ); done_testing(); WWW-Mechanize-2.06/t/area_link.t000644 000765 000024 00000003754 14135615003 016476 0ustar00olafstaff000000 000000 #!perl -T # WWW::Mechanize tests for tags use warnings; use strict; use Test::More tests => 9; use lib 't'; BEGIN { use Tools; } BEGIN { use_ok( 'WWW::Mechanize' ); } use URI::file; my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/area_link.html' ); $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; AREA_CHECKS: { my @wanted_links = ( [ 'http://www.msnbc.com/area', undef, undef, 'area', { coords => '1,2,3,4', href => 'http://www.msnbc.com/area' } ], [ 'http://www.cnn.com/area', undef, undef, 'area', { coords => '5,6,7,8', href => 'http://www.cnn.com/area' } ], [ 'http://www.cpan.org/area', undef, undef, 'area', { '/' => '/', coords => '10,11,12,13', href => 'http://www.cpan.org/area' } ], [ 'http://www.slashdot.org', undef, undef, 'area', { href => 'http://www.slashdot.org' } ], [ 'http://mark.stosberg.com', undef, undef, 'area', { alt => q{Mark Stosberg's homepage}, href => 'http://mark.stosberg.com' } ], ); my @links = $mech->find_all_links(); # Skip the 'base' field for now for (@links) { my $attrs = $_->[5]; @{$_} = @{$_}[0..3]; push @{$_}, $attrs; } is_deeply( \@links, \@wanted_links, 'Correct links came back' ); my $linkref = $mech->find_all_links(); is_deeply( $linkref, \@wanted_links, 'Correct links came back' ); SKIP: { skip 'Test::Memory::Cycle not installed', 2 unless $canTMC; memory_cycle_ok( \@links, 'Link list: no cycles' ); memory_cycle_ok( $linkref, 'Single link: no cycles' ); } } SKIP: { skip 'Test::Memory::Cycle not installed', 2 unless $canTMC; memory_cycle_ok( $uri, 'URI: no cycles' ); memory_cycle_ok( $mech, 'Mech: no cycles' ); } WWW-Mechanize-2.06/t/cookies.t000644 000765 000024 00000005751 14135615003 016204 0ustar00olafstaff000000 000000 # XXX add cookie reading on the server side to the test BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; } use warnings; use strict; use Test::More; if ( $^O =~ /Win32/ ) { plan skip_all => 'HTTP::Server::Simple does not support Windows yet.'; } else { plan tests => 14; } use WWW::Mechanize; use URI::Escape qw( uri_unescape ); use lib 't/'; use TestServer; my $ncookies = 0; sub send_cookies { my $cgi = shift; return if !ref $cgi; ++$ncookies; print $cgi->header( -cookie => $cgi->cookie( -name => 'my_cookie', -value => "Cookie #$ncookies", -domain => '127.0.0.1', -path => '/', -expires => '+1h', -secure => 0, ) ), $cgi->start_html( -title => "Home of Cookie #$ncookies" ), $cgi->h1( "Here is Cookie #$ncookies" ), $cgi->end_html; } sub nosend_cookies { my $cgi = shift; return if !ref $cgi; print $cgi->header(), $cgi->start_html( -title => 'No cookies sent' ), $cgi->h1( 'No cookies sent' ), $cgi->end_html; } my $server = TestServer->new(); $server->set_dispatch( { '/feedme' => \&send_cookies, '/nocookie' => \&nosend_cookies, } ); my $pid = $server->background(); my $root = $server->root; my $cookiepage_url = "$root/feedme"; my $nocookiepage_url = "$root/nocookie"; my $mech = WWW::Mechanize->new( autocheck => 0 ); isa_ok( $mech, 'WWW::Mechanize' ); FIRST_COOKIE: { $mech->get( $cookiepage_url ); is( $mech->status, 200, 'First fetch works' ); my $cookieval = cookieval( $mech ); is( $cookieval, 'Cookie #1', 'First cookie matches' ); is( $mech->title, 'Home of Cookie #1', 'Right title' ); } SECOND_COOKIE: { $mech->get( $cookiepage_url ); is( $mech->status, 200, 'Second fetch works' ); my $cookieval = cookieval( $mech ); is( $cookieval, 'Cookie #2', 'Second cookie matches' ); is( $mech->title, 'Home of Cookie #2', 'Right title' ); } BACK_TO_FIRST_PAGE: { $mech->back(); my $cookieval = cookieval( $mech ); is( $cookieval, 'Cookie #2', 'Cookie did not change...' ); is( $mech->title, 'Home of Cookie #1', '... but back to the first page title' ); } FORWARD_TO_NONCOOKIE_PAGE: { $mech->get( $nocookiepage_url ); my $cookieval = cookieval( $mech ); is( $cookieval, 'Cookie #2', 'Cookie did not change...' ); is( $mech->title, 'No cookies sent', 'On the proper 3rd page' ); } GET_A_THIRD_COOKIE: { $mech->get( $cookiepage_url ); my $cookieval = cookieval( $mech ); is( $cookieval, 'Cookie #3', 'Got the third cookie' ); is( $mech->title, 'Home of Cookie #3', 'Title is correct' ); } my $signal = ($^O eq 'MSWin32') ? 9 : 15; my $nprocesses = kill $signal, $pid; is( $nprocesses, 1, 'Signaled the child process' ); sub cookieval { my $mech = shift; return uri_unescape( $mech->cookie_jar->{COOKIES}{'127.0.0.1'}{'/'}{'my_cookie'}[1] ); } WWW-Mechanize-2.06/t/form-parsing.t000644 000765 000024 00000000733 14135615003 017147 0ustar00olafstaff000000 000000 #!perl -T use strict; use warnings; use Test::More tests=>1; use HTML::Form; my $base = 'http://localhost/'; my $content = do { local $/ = undef; }; my $forms = [ HTML::Form->parse( $content, $base ) ]; is( scalar @{$forms}, 1, 'Find one form, please' ); __DATA__ WWW::Mechanize::Shell test page
WWW-Mechanize-2.06/t/history_3.html000644 000765 000024 00000000235 14135615003 017164 0ustar00olafstaff000000 000000 Testing the history_3
To first page WWW-Mechanize-2.06/t/field.html000644 000765 000024 00000001041 14135615003 016320 0ustar00olafstaff000000 000000 Like a hole
WWW-Mechanize-2.06/t/link.t000644 000765 000024 00000003561 14135615003 015502 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More tests=>23; BEGIN { use_ok( 'WWW::Mechanize::Link' ); } OLD_API: { my $link = WWW::Mechanize::Link->new( 'url.html', 'text', 'name', 'frame', 'http://base.example.com/', { alt => 'alt text' } ); isa_ok( $link, 'WWW::Mechanize::Link' ); is( scalar @$link, 6, 'Should have five elements' ); # Test the new-style accessors is( $link->url, 'url.html', 'url() works' ); is( $link->text, 'text', 'text() works' ); is( $link->name, 'name', 'name() works' ); is( $link->tag, 'frame', 'tag() works' ); is( $link->base, 'http://base.example.com/', 'base() works' ); is( $link->attrs->{alt}, 'alt text', 'attrs() works' ); # Order of the params in the blessed array is important for backwards compatibility. is( $link->[0], 'url.html', 'param 0 is url' ); is( $link->[1], 'text', 'param 1 is text' ); is( $link->[2], 'name', 'param 2 is name' ); is( $link->[3], 'frame', 'param 3 is tag' ); is( $link->[4], 'http://base.example.com/', 'param 4 is base' ); my $URI = $link->URI; isa_ok( $URI, 'URI::URL', 'URI is proper type' ); is( $URI->rel, 'url.html', 'Short form of the url' ); is( $link->url_abs, 'http://base.example.com/url.html', 'url_abs works' ); } NEW_API: { # test new style API my $link = WWW::Mechanize::Link->new( { url => 'url.html', text => 'text', name => 'name', tag => 'frame', base => 'http://base.example.com/', attrs => { alt => 'alt text' }, } ); is( $link->url, 'url.html', 'url() works' ); is( $link->text, 'text', 'text() works' ); is( $link->name, 'name', 'name() works' ); is( $link->tag, 'frame', 'tag() works' ); is( $link->base, 'http://base.example.com/', 'base() works' ); is( $link->attrs->{alt}, 'alt text', 'attrs() works' ); } WWW-Mechanize-2.06/t/00-report-prereqs.dd000644 000765 000024 00000012345 14135615003 020100 0ustar00olafstaff000000 000000 do { my $x = { 'configure' => { 'requires' => { 'ExtUtils::MakeMaker' => '0' }, 'suggests' => { 'JSON::PP' => '2.27300' } }, 'develop' => { 'recommends' => { 'Dist::Zilla::PluginBundle::Git::VersionManager' => '0.007' }, 'requires' => { 'Code::TidyAll' => '0.71', 'Code::TidyAll::Plugin::SortLines::Naturally' => '0.000003', 'Code::TidyAll::Plugin::Test::Vars' => '0.04', 'Code::TidyAll::Plugin::UniqueLines' => '0.000003', 'LWP::Protocol::https' => '6.07', 'Parallel::ForkManager' => '1.19', 'Perl::Critic' => '1.132', 'Perl::Tidy' => '20180220', 'Pod::Coverage::TrustPod' => '0', 'Test::Code::TidyAll' => '0.50', 'Test::EOL' => '0', 'Test::Mojibake' => '0', 'Test::More' => '0.88', 'Test::Needs' => '0', 'Test::Pod' => '1.41', 'Test::Pod::Coverage' => '1.08', 'Test::Portability::Files' => '0', 'Test::RequiresInternet' => '0', 'Test::Vars' => '0.014', 'Test::Version' => '1', 'constant' => '0', 'lib' => '0' } }, 'runtime' => { 'recommends' => { 'Compress::Zlib' => '0' }, 'requires' => { 'Carp' => '0', 'Getopt::Long' => '0', 'HTML::Form' => '1.00', 'HTML::HeadParser' => '0', 'HTML::TokeParser' => '0', 'HTML::TreeBuilder' => '5', 'HTTP::Cookies' => '0', 'HTTP::Request' => '1.30', 'HTTP::Request::Common' => '0', 'LWP::UserAgent' => '6.45', 'Pod::Usage' => '0', 'Scalar::Util' => '1.14', 'Tie::RefHash' => '0', 'URI::URL' => '0', 'URI::file' => '0', 'base' => '0', 'perl' => '5.006', 'strict' => '0', 'warnings' => '0' } }, 'test' => { 'recommends' => { 'CPAN::Meta' => '2.120900' }, 'requires' => { 'CGI' => '4.32', 'Exporter' => '0', 'ExtUtils::MakeMaker' => '0', 'File::Spec' => '0', 'File::Temp' => '0', 'FindBin' => '0', 'HTTP::Daemon' => '6.12', 'HTTP::Response' => '0', 'HTTP::Server::Simple::CGI' => '0', 'LWP' => '0', 'LWP::Simple' => '0', 'Path::Tiny' => '0', 'Test::Deep' => '0', 'Test::Exception' => '0', 'Test::Fatal' => '0', 'Test::Memory::Cycle' => '1.06', 'Test::More' => '0.96', 'Test::NoWarnings' => '1.04', 'Test::Output' => '0', 'Test::Taint' => '1.08', 'Test::Warn' => '0', 'Test::Warnings' => '0', 'URI' => '0', 'URI::Escape' => '0', 'bytes' => '0', 'lib' => '0' } } }; $x; }WWW-Mechanize-2.06/t/image-parse.t000644 000765 000024 00000006013 14135615003 016732 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More tests => 47; use URI::file; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/image-parse.html' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die 'Can\'t get test page'; my @images = $mech->images; is( scalar @images, 12, 'Exactly twelve images' ); my $first = $images[0]; is( $first->url, '/Images/bg-gradient.png', 'Got the background style image' ); is( $first->tag, 'css', 'css tag' ); is( $first->alt, undef, 'alt' ); my $second = $images[1]; is( $second->tag, 'img', 'img tag' ); is( $second->url, 'wango.jpg', 'URL matches' ); is( $second->alt, 'The world of the wango', 'alt matches' ); my $third = $images[2]; is( $third->tag, 'input', 'input tag' ); is( $third->url, 'bongo.gif', 'URL matches' ); is( $third->alt, undef, 'alt matches' ); is( $third->height, 142, 'height' ); is( $third->width, 43, 'width' ); my $fourth = $images[3]; is( $fourth->url, 'linked.gif', 'Got the fourth image' ); is( $fourth->tag, 'img', 'input tag' ); is( $fourth->alt, undef, 'alt' ); my $fifth = $images[4]; is( $fifth->url, 'hacktober.jpg', 'Got the fifth image' ); is( $fifth->tag, 'img', 'input tag' ); is( $fifth->alt, undef, 'alt' ); is( $fifth->attrs->{id}, 'first-hacktober-image', 'id' ); is( $fifth->attrs->{class}, 'my-class-1', 'class' ); my $sixth = $images[5]; is( $sixth->url, 'hacktober.jpg', 'Got the sixth image' ); is( $sixth->tag, 'img', 'input tag' ); is( $sixth->alt, undef, 'alt' ); is( $sixth->attrs->{id}, undef, 'id' ); is( $sixth->attrs->{class}, 'my-class-2 foo', 'class' ); my $seventh = $images[6]; is( $seventh->url, 'hacktober.jpg', 'Got the seventh image' ); is( $seventh->tag, 'img', 'input tag' ); is( $seventh->alt, undef, 'alt' ); is( $seventh->attrs->{id}, undef, 'id' ); is( $seventh->attrs->{class}, 'my-class-3 foo bar', 'class' ); # regression github #269 my $eighth = $images[8]; is( $eighth->attrs->{id}, 'no-src-regression-269', 'Got the eighth image'); is( $eighth->url, undef, 'it has no URL'); is( $eighth->attrs->{'data-image'}, 'hacktober.jpg', 'it has an extra attribute'); my $ninth = $images[9]; is( $ninth->url, 'images/logo.png', 'Got the fifth image' ); is( $ninth->tag, 'css', 'css tag' ); is( $ninth->alt, undef, 'alt' ); # find image in css $uri = URI::file->new_abs( 't/image-parse.css' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; eval { @images = $mech->find_all_images(); }; is($@,'','survived eval'); is( scalar @images, 2, 'Exactly two images' ); my $css_first = $images[0]; is( $css_first->url, '/Images/bg-gradient.png', 'Got the first image' ); is( $css_first->tag, 'css', 'css tag' ); is( $css_first->alt, undef, 'alt' ); my $css_second = $images[1]; is( $css_second->url, 'images/logo.png', 'Got the second image' ); is( $css_second->tag, 'css', 'css tag' );WWW-Mechanize-2.06/t/form_133_regression.html000644 000765 000024 00000003246 14135615003 021037 0ustar00olafstaff000000 000000 Test Page
WWW-Mechanize-2.06/t/taint.t000644 000765 000024 00000001166 14135615003 015663 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More; BEGIN { eval 'use Test::Taint'; plan skip_all => 'Test::Taint required for checking taintedness' if $@; plan tests=>6; } BEGIN { use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( autocheck => 1 ); isa_ok( $mech, 'WWW::Mechanize', 'Created object' ); $mech->get( 'file:t/google.html' ); # Make sure taint checking is on correctly tainted_ok( $^X, 'Interpreter Variable taints OK' ); is( $mech->title, 'Google', 'Correct title' ); untainted_ok( $mech->title, 'Title should not be tainted' ); tainted_ok( $mech->content, 'But content should' ); WWW-Mechanize-2.06/t/find_link.html000644 000765 000024 00000004115 14135615003 017177 0ustar00olafstaff000000 000000 Testing the links blargle CPAN A CPAN B CPAN C CPAN D MSNBC CNN BBC News News News Rebuild Index NoWhere NoWhere Blongo! Click Here WWW-Mechanize-2.06/t/upload.t000644 000765 000024 00000001664 14135615003 016033 0ustar00olafstaff000000 000000 #!perl -T use strict; use warnings; use Test::More tests => 5; use URI::file; BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY PATH IFS CDPATH ENV BASH_ENV) }; } use_ok( 'WWW::Mechanize' ); my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/upload.html' )->as_string; $mech->get( $uri ); ok( $mech->success, $uri ); my $form = $mech->form_number(1); my $reqstring = $form->click->as_string; $reqstring =~ s/\r//g; # trim off possible extra newline $reqstring =~ s/^\Z\n//m; my $wanted = <<'EOT'; POST http://localhost/ Content-Length: 77 Content-Type: multipart/form-data; boundary=xYzZY --xYzZY Content-Disposition: form-data; name="submit" Submit --xYzZY-- EOT is( $reqstring, $wanted, 'Proper posting' ); $mech->field('upload', 'dist.ini'); $reqstring = $form->click->as_string; like( $reqstring, qr/WWW-Mechanize/, 'The uploaded file should be in the request'); WWW-Mechanize-2.06/t/autocheck.t000644 000765 000024 00000001021 14135615003 016500 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::Fatal qw( exception ); use Test::More; use WWW::Mechanize (); my $bad_url = "file:///foo.foo.xx.random"; AUTOCHECK_OFF: { my $mech = WWW::Mechanize->new( autocheck => 0 ); $mech->get( $bad_url ); ok( !$mech->success, qq{Didn't fetch $bad_url, but didn't die, either} ); } AUTOCHECK_ON: { like( exception { WWW::Mechanize->new->get($bad_url) }, qr/Error GETing/, qq{Couldn't fetch $bad_url, and died as a result} ); } done_testing(); WWW-Mechanize-2.06/t/frames.t000644 000765 000024 00000001447 14135615003 016023 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More tests => 7; use URI::file; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/frames.html' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; my $link = $mech->find_link(); isa_ok( $link, 'WWW::Mechanize::Link' ); my @links = $mech->find_all_links(); is( scalar @links, 2, 'Only two links' ); is_deeply( [@{$links[0]}[0..3]], [ 'find_link.html', undef, 'top', 'frame' ], 'First frame OK' ); is_deeply( [@{$links[1]}[0..3]], [ 'google.html', undef, 'bottom', 'frame' ], 'Second frame OK' ); WWW-Mechanize-2.06/t/upload.html000644 000765 000024 00000000350 14135615003 016523 0ustar00olafstaff000000 000000
WWW-Mechanize-2.06/t/find_frame.t000644 000765 000024 00000001113 14135615003 016626 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More tests => 5; use URI::file; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/find_frame.html' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; my $x; $x = $mech->find_link(); isa_ok( $x, 'WWW::Mechanize::Link' ); is( $x->url, 'bastro.html', 'First link sequentially' ); WWW-Mechanize-2.06/t/form_with_fields.t000644 000765 000024 00000011234 14135615003 020065 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More 'no_plan'; use Test::Fatal; use Test::Warnings ':all'; use Test::Deep; use URI::file (); BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef, autocheck => 0 ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/form_with_fields.html' )->as_string; $mech->get( $uri ); ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page}; { my $test = 'dies with no input'; like( exception { my $form = $mech->form_with_fields(); }, qr/no fields provided/, $test, ); } { my $form; cmp_deeply( [ warnings { $form = $mech->form_with_fields(qw/1b/) } ], [ re(qr/There are 2 forms with the named fields. The first one was used./) ], 'warning on ambiguous match (1)', ); isa_ok( $form, 'HTML::Form' ); is($form->attr('name'), '1st_form', 'first form matches'); } { my $form = $mech->form_with_fields('1b', 'opt[2]'); isa_ok( $form, 'HTML::Form' ); is($form->attr('name'), '2nd_form', 'second form matches'); } { my $form; cmp_deeply( [ warnings { $form = $mech->form_with_fields('4a', '4b') } ], [ re(qr/There are 2 forms with the named fields. The first one was used./) ], 'warning on ambiguous match (2)', ); isa_ok( $form, 'HTML::Form' ); is($form->attr('name'), '4th_form_1', 'fourth form matches'); } { my @forms = $mech->all_forms_with( name => '3rd_form_ambiguous' ); is( scalar @forms, 2 ); isa_ok( $forms[0], 'HTML::Form' ); isa_ok( $forms[1], 'HTML::Form' ); is($forms[0]->attr('name'), '3rd_form_ambiguous', 'first result of 3rd_form_ambiguous'); is($forms[1]->attr('name'), '3rd_form_ambiguous', 'second result of 3rd_form_ambiguous'); } { $mech->get($uri); like( exception { $mech->submit_form( with_fields => { 'xx' => '' }, ); }, qr/There is no form with the requested fields/, 'submit_form with no match (1)', ); } { $mech->get($uri); like( exception { $mech->submit_form( with_fields => { '1a' => '' }, form_number => 2, ); }, qr/There is no form that satisfies all the criteria/, 'submit_form with no match (2)', ); } { $mech->get($uri); like( exception { $mech->submit_form( form_number => 2, form_name => '3rd_form_ambiguous', ); }, qr/There is no form that satisfies all the criteria/, 'submit_form with no match (3)', ); } { $mech->get($uri); like( exception { $mech->submit_form( form_name => '3rd_form_ambiguous', ); }, qr/More than one form satisfies all the criteria/, 'submit_form with more than one match', ); } { $mech->get($uri); is( exception { $mech->submit_form( with_fields => { 'x' => '' }, form_name => '3rd_form_ambiguous', ); }, undef, 'submit_form with intersection of two criteria', ); } { $mech->get($uri); is( exception { $mech->submit_form( with_fields => { '1b' => '', 'opt[2]' => '' }, ); }, undef, ' submit_form( with_fields => %data ) ', ); } { $mech->get($uri); is( exception { $mech->submit_form( form_name => '1st_form', fields => { '1c' => 'madeup_field', }, ); }, undef, 'submit_form with invalid field and without strict_forms option succeeds', ); } { $mech->get($uri); like( exception { $mech->submit_form( form_name => '1st_form', fields => { '1c' => 'madeup_field', }, strict_forms => 1, ); }, qr/^No such field '1c'/, 'submit_form with invalid field and strict_forms option fails', ); } { $mech->get($uri); is( exception { $mech->submit_form( form_name => '1st_form', fields => { '1a' => 'value1', '1b' => 'value2', }, strict_forms => 1, ); }, undef, 'submit_form with valid fields and strict_forms option succeeds', ); }WWW-Mechanize-2.06/t/history_2.html000644 000765 000024 00000000534 14135615003 017165 0ustar00olafstaff000000 000000 Testing the history_2
WWW-Mechanize-2.06/t/select.t000644 000765 000024 00000005005 14135615003 016017 0ustar00olafstaff000000 000000 #!perl -T use warnings; use strict; use Test::More tests => 14; use URI::file; BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); } my $mech = WWW::Mechanize->new( cookie_jar => undef ); isa_ok( $mech, 'WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/select.html' )->as_string; my $response = $mech->get( $uri ); ok( $response->is_success, "Fetched $uri" ); 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 = $form->param('multilist'); is_deeply(\@return, \@sendmulti, 'multi->multi value is ' . join(' ', @return)); $mech->select('multilist', \%sendmulti); @return = $form->param('multilist'); is_deeply(\@return, \@sendmulti, 'multi->multi value is ' . join(' ', @return)); # pass a single value to a multi select $mech->select('multilist', $sendsingle); $return = $form->param('multilist'); is($return, $sendsingle, "single->multi value is '$return'"); $mech->select('multilist', \%sendsingle); $return = $form->param('multilist'); is($return, $sendsingle, "single->multi value is '$return'"); # Single select # pass multiple values to a single select (only the _first_ should be set) $mech->select('singlelist', \@sendmulti); @return = $form->param('singlelist'); is_deeply(\@return, \@singlereturn, 'multi->single value is ' . join(' ', @return)); $mech->select('singlelist', \%sendmulti); @return = $form->param('singlelist'); is_deeply(\@return, \@singlereturn, 'multi->single value is ' . join(' ', @return)); # pass a single value to a single select $rv = $mech->select('singlelist', $sendsingle); $return = $form->param('singlelist'); is($return, $sendsingle, "single->single value is '$return'"); $rv = $mech->select('singlelist', \%sendsingle); $return = $form->param('singlelist'); is($return, $sendsingle, "single->single value is '$return'"); # test return value from $mech->select is($rv, 1, 'return 1 after successful select'); EAT_THE_WARNING: { # Mech complains about the non-existent field local $SIG{__WARN__} = sub {}; $rv = $mech->select('missing_list', 1); } is($rv, undef, 'return undef after failed select'); WWW-Mechanize-2.06/t/find_inputs.html000644 000765 000024 00000001615 14135615003 017566 0ustar00olafstaff000000 000000