From f2abfabf5be710092fad4bad8223b23d1619f48a Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 25 Jun 2009 15:35:04 +0200
Subject: uncomment tests ...

---
 xt/tests/Test/MooseX/UserAgent.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'xt/tests/Test/MooseX/UserAgent.pm')

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;
-- 
cgit 1.4.1