From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Mon, 9 Mar 2009 21:18:39 +0000 (-0500)
Subject: Some more tests
X-Git-Tag: 0.72_01~79
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd538e29753bd1b1f3f54b1d9099173d727b30d8;p=gitmo%2FMoose.git

Some more tests
---

diff --git a/lib/Moose/Cookbook/Basics/Recipe5.pod b/lib/Moose/Cookbook/Basics/Recipe5.pod
index 5967bf0..7b75fd7 100644
--- a/lib/Moose/Cookbook/Basics/Recipe5.pod
+++ b/lib/Moose/Cookbook/Basics/Recipe5.pod
@@ -281,6 +281,14 @@ isa_ok( $r, 'Request' );
     '... the protocol died with bar params correctly';
 }
 
+{
+    $r->base('http://localhost/');
+    isa_ok( $r->base, 'URI' );
+
+    $r->uri('http://localhost/');
+    isa_ok( $r->uri, 'URI' );
+}
+
 =end testing
 
 =cut