diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-06-25 15:35:04 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-06-25 15:35:04 +0200 |
| commit | f2abfabf5be710092fad4bad8223b23d1619f48a (patch) | |
| tree | dbc6e433f5d45481912f73a22a99894047b64675 /xt/tests/Test/MooseX/UserAgent.pm | |
| parent | POD, add useragent string to async, tests (diff) | |
| download | moosex-useragent-f2abfabf5be710092fad4bad8223b23d1619f48a.tar.gz | |
uncomment tests ...
Diffstat (limited to '')
| -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; |