From: Stevan Little <stevan.little@iinteractive.com>
Date: Wed, 21 Mar 2007 14:01:47 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_19~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1c338c92845b7f4a3dc0415088a07f24b91dfbe;p=gitmo%2FMoose.git

foo
---

diff --git a/t/105_module_refresh_bug.t b/t/105_module_refresh_bug.t
index 8cbb31a..ab139a0 100644
--- a/t/105_module_refresh_bug.t
+++ b/t/105_module_refresh_bug.t
@@ -11,7 +11,7 @@ use Test::Exception;
 BEGIN {
     eval "use Module::Refresh;";
     plan skip_all => "Module::Refresh is required for this test" if $@;        
-    plan tests => 18;    
+    plan tests => 23;    
 }
 
 =pod
@@ -34,7 +34,8 @@ do {
 
 =pod
 
-Now, lets try something a little trickier ...
+Now, lets try something a little trickier
+and actually change the module itself.
 
 =cut
 
@@ -64,6 +65,8 @@ has 'foo' => (is => 'rw', isa => 'Int');
 
 use_ok('TestBaz');
 is(TestBaz->meta->name, 'TestBaz', '... initialized the meta correctly');
+ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
+ok(!TestBaz->isa('Foo'), '... TestBaz is not a Foo');
 
 {
     open FILE, ">", $test_module_file 
@@ -76,6 +79,10 @@ lives_ok {
     Module::Refresh->new->refresh_module($test_module_file)
 } '... successfully refreshed ' . $test_module_file;
 
+is(TestBaz->meta->name, 'TestBaz', '... initialized the meta correctly');
+ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
+ok(TestBaz->isa('Foo'), '... TestBaz is a Foo');
+
 unlink $test_module_file;