that good (when no test fails):
Failed 1/5 test scripts, 80.00% okay. 0/29 subtests failed, 100.00% okay.
Not that great.
So I guess I'll have to go the IPC way, after all. Any advice or success
story?
--
Philippe "BooK" Bruhat
Even the worst guesser is right once in a while
ther webservers. They can be skipped
if the test script detects that for some reason the web "does not work".
(Oops, I seem to remember this is in version 0.08, which is not out yet.
You can fetch a repository snapshot from http://http-proxy.mongueurs.net/
Have a look at t/22http.t and t
-06 18:22:04.0 +0100
@@ -1,6 +1,7 @@
use warnings;
use strict;
use Test::More tests => 9;
+use t::Utils;
BEGIN {
use_ok( 'WWW::Mechanize' );
@@ -9,6 +10,9 @@
my $t = WWW::Mechanize->new;
isa_ok( $t, 'WWW::Mechanize', 'Created object' );
+SKIP: {
+skip "Web does not seem to work", 7 unless web_ok();
+
ok( $t->get("http://www.google.com/intl/en/";)->is_success, "Got Google" );
is(scalar @{$t->{page_stack}}, 0, "Page stack starts empty");
$t->_push_page_stack();
@@ -21,3 +25,4 @@
is(scalar @{$t->{page_stack}}, 0, "Popped item from page stack");
$t->_pop_page_stack();
is(scalar @{$t->{page_stack}}, 0, "Can't pop beyond end of page stack");
+}
--
Philippe "BooK" Bruhat
When you wander near evil, Security is only a function of foolishness...
(Moral from Groo The Wanderer #21 (Epic))
