diff options
Diffstat (limited to 'test/it_url.t')
| -rwxr-xr-x | test/it_url.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/it_url.t b/test/it_url.t index 624b4bf..b265afa 100755 --- a/test/it_url.t +++ b/test/it_url.t @@ -118,13 +118,18 @@ is( $url = new it_url('http://www.gna.ch/'); +is((bool)$url->is_reachable(), true, "is_reachable($url->url)"); $page = $url->get(); ok( strpos($page, '</html>'), # UTF8SAFE '$url->get with url in constructor' ); +$url = new it_url('http://www.search.ch/not_found'); +is((bool)$url->is_reachable(), false, "is_reachable($url->url)"); + $url = new it_url('http://bogus.url'); +is((bool)$url->is_reachable(), false, "is_reachable($url->url)"); $page = $url->get('http://www.gna.ch/'); ok( strpos($page, '</html>'), # UTF8SAFE |