TWMC: Doc patch and useragent patch from rT

[catagits/Test-WWW-Mechanize-Catalyst.git] / t / lib / Catty.pm

diff --git a/t/lib/Catty.pm b/t/lib/Catty.pm
index f9285d0..c67429a 100644 (file)
--- a/t/lib/Catty.pm
+++ b/t/lib/Catty.pm
@@ -127,5 +127,14 @@ sub gzipped : Global {
     $c->response->headers->push_header( 'Vary', 'Accept-Encoding' );
 }
 
+sub user_agent : Global {
+    my ( $self, $c ) = @_;
+    
+    my $html = html($c->req->user_agent, $c->req->user_agent);
+    $c->response->content_type("text/html; charset=utf-8");
+    $c->response->output( $html );
+    
+}
+
 1;