summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-06-25 15:35:04 +0200
committerfranck cuny <franck@lumberjaph.net>2009-06-25 15:35:04 +0200
commitf2abfabf5be710092fad4bad8223b23d1619f48a (patch)
treedbc6e433f5d45481912f73a22a99894047b64675
parentPOD, add useragent string to async, tests (diff)
downloadmoosex-useragent-f2abfabf5be710092fad4bad8223b23d1619f48a.tar.gz
uncomment tests ...
-rw-r--r--xt/tests/Test/MooseX/UserAgent.pm24
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;