<code><br><br>--- computers4sure.t 2008-09-30 15:15:09.000000000 -0300<br>+++ teste.pl 2009-01-12 14:10:48.000000000 -0200<br>@@ -20,8 +20,8 @@<br> is( $mech->response->code, 200, "Fetched $first_page" );<br>
ok( $mech->content =~ /Support/, 'Found a likely word in the first page' );<br> <br>-my @links = $mech->find_all_links( url_regex => qr{product\.asp\?productid=} );<br>-cmp_ok( scalar @links, '>', 10, 'Should have lots of product links' );<br>
+my @links = $mech->find_all_links( url_regex => qr{category\.asp\?catId=} );<br>+cmp_ok( scalar @links, '>', 30, 'Should have lots of product links' );<br> <br> my $link = $links[@links/2]; # Pick one in the middle<br>
isa_ok( $link, 'WWW::Mechanize::Link' );<br>@@ -31,7 +31,7 @@<br> # comes back gzipped.<br> $mech->get( $link_str );<br> is( $mech->response->code, 200, "Fetched $link_str" );<br>-ok( $mech->content =~ /Your price/i, 'Found a likely phrase in the second page' );<br>
+ok( $mech->content =~ /For a listing of more/i, 'Found a likely phrase in the second page' );<br> <br> SKIP: {<br> eval 'use Test::Memory::Cycle';<br><br></code><br><br><div class="gmail_quote">
2009/1/12 Otávio Fernandes <span dir="ltr"><<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Não Daniel, acho que eu não fui claro. Quando eu disse "diff"<br>
significa: "$ diff -u file.pl.orig file.pl". O retorno disso você cola<br>
aqui na lista, assim nós podemos ver o que você mudou.<br>
<div><div></div><div class="Wj3C7c"><br>
um abraço,<br>
<br>
--<br>
Otávio Fernandes <otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>><br>
<a href="http://otaviof.blogspot.com/" target="_blank">http://otaviof.blogspot.com/</a><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br><br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>