diff options
| -rw-r--r-- | xt/tests/Test/MooseX/UserAgent.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/xt/tests/Test/MooseX/UserAgent.pm b/xt/tests/Test/MooseX/UserAgent.pm index db08c8d..0c5a630 100644 --- a/xt/tests/Test/MooseX/UserAgent.pm +++ b/xt/tests/Test/MooseX/UserAgent.pm @@ -92,19 +92,19 @@ sub fetch : Tests(14) { } } -#sub get_content : Tests(8) { - #my $test = shift; +sub get_content : Tests(8) { + my $test = shift; - #foreach my $ua (@ua_roles) { - #can_ok $ua, 'get_content'; + foreach my $ua (@ua_roles) { + can_ok $ua, 'get_content'; - #ok my $obj = $ua->new(), ' ... object is created'; - #my $url = 'http://google.com'; - #my $res = $obj->fetch($url); - #is $res->code, "200", "... fetch is a success"; - #my $content = $obj->get_content($res); - #like $content, qr/google/, "... and content is good"; - #} -#} + ok my $obj = $ua->new(), ' ... object is created'; + my $url = 'http://google.com'; + my $res = $obj->fetch($url); + is $res->code, "200", "... fetch is a success"; + my $content = $obj->get_content($res); + like $content, qr/google/, "... and content is good"; + } +} 1; |