$agent->content_contains( qr/\QEnter keyword(s)/ )
or $agent->dump_all( \*STDERR );
not ok 14 - Content contains '(?-xism:Enter\ keyword\(s\))'
# Failed test 'Content contains '(?-xism:Enter\ keyword\(s\))''
# at t/simple-search.t line 31.
# searched: "<HTML>\x{0a}<HEAD>\x{0a}<TITLE>TitleTales™</TITLE></HEA"...
# can't find: "(?-xism:Enter\ keyword\(s\))"
/buttonsd/bisac2.gif
/graphics/bar.gif
POST http://hoops.flr.follett.com:2112/simpsearch.php [simsearch]
clickval= (hidden readonly)
searchwords= (text)
S=<UNDEF> (checkbox) [*<UNDEF>/off|on/Include Out of Print / Please Order Direct Titles]
No longer do you have to do a $mech->save_content() and then run mech-dump on it. How has it taken me so long to put this stuff in there?
See Also: WWW::Mechanize::Plugin::Display (Score:1)
Default Output Stream (Score:1)
Do you think that will be the canonical use of
dump_all?If so, would it make more sense for the default output stream to be
STDERRrather thanSTDOUT, to save having to specify it every time?Re: (Score:2)
--
xoa
I hate to be a spoil sport, but... (Score:1)
I've started to migrate away from mechanize back to raw lwp in a few applications, simply because mech has become too unreliable.
Re: (Score:2)
--
xoa
Re: (Score:1)
Maybe the first thing you could do would be test that mech tests still fails on cygwin (untested Mech 1.32, fails 1.3102, untested 1.3101, fail:pass 5:1 1.30, etc.).
And then test the many flavors of http servers that might work. Just run there tests on Cygwin or review their results on t
Re: (Score:2)
--
xoa
Re: (Score:1)
NOT HTTP-Server-Simple, NOT HTTP-Server-Brick, but get twisted with POE-Component-Server-SimpleHTTP, or take what is probably the easy way with Net::HTTPServer notably 1.1.1, a distribution which shows only one fail on CPAN-Testers for about 60 submissions on various v
Re: (Score:2)
--
xoa
Re: (Score:1)
For starters, I can pick up a distribution using Net::HTTPServer for the back.t test, passing on your platform, from a url you supply and run the tests on cygwin and ActiveState MSWin32. That would mean you change your test to use Net::HTTPServer over LocalServer.pm.
If you want me to do make the changes, I will need to learn some of your code first, and I may bail, but likely will get to it in time. I like mech, but
Re: (Score:2)
What can I do to help you?
--
xoa
Re: (Score:1)
In t/local/*.t, change:
delete @ENV{ qw( http_proxy HTTP_PROXY ) };
to
foreach my $proxy (grep {/http_proxy/i} keys %ENV ) {delete $ENV{$proxy}}
because believe it or not, Win XP takes my definition of environmental variable 'http_proxy' and kindly gives me 'HTTP_PROXY' and 'HTTP_proxy'. Whereas for 'ftp_proxy' I only seem to get 'FTP_PROXY' as a bonus.
That change lets me pass t/local/back.t
Re: (Score:1)
C:/ActiveStatePerl/bin/perl -e 'foreach my $proxy (grep {/_proxy/i} keys %ENV) {print "\$ENV{$proxy} => $ENV{$proxy} \n" ; delete $ENV{$proxy}; } '
If I leave my http_proxy and set my environment no_proxy to localhost, I can pass almost every test, except that HTTP:Daemon is a smart ass and uses my machine name instead of local
Re: (Score:1)
No need to write C in Perl:
Re: (Score:2)
--
xoa