diff options
Diffstat (limited to '')
-rwxr-xr-x | t/00-all.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/00-all.t b/t/00-all.t index eddfb7c..45477bd 100755 --- a/t/00-all.t +++ b/t/00-all.t @@ -4,7 +4,7 @@ use strict; use LWPx::ParanoidAgent; use Time::HiRes qw(time); -use Test::More tests => 29; +use Test::More tests => 30; use Net::DNS; use IO::Socket::INET; @@ -96,6 +96,11 @@ ok(! $res->is_success); like($res->status_line, qr/DNS lookup resulted in bad host/); $ua->resolver($old_resolver); +# can't do empty host name +$res = $ua->get(''); +print $res->status_line, "\n"; +ok(! $res->is_success); + # black-listed via blocked_hosts $res = $ua->get("http://brad.lj/"); print $res->status_line, "\n"; |