diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-12-19 14:19:38 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-12-19 14:19:38 -0600 |
commit | ce332af50f68223a3eb2224a68a648b836d9f6e5 (patch) | |
tree | a393988bb828dbf0e06dab521ff18ccf9080e3bf | |
parent | dbe4c918ce9e4678550c0704310d582889196f7d (diff) | |
download | moosex-module-refresh-ce332af50f68223a3eb2224a68a648b836d9f6e5.tar.gz moosex-module-refresh-ce332af50f68223a3eb2224a68a648b836d9f6e5.zip |
a couple more tests
-rw-r--r-- | t/002-moose.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/002-moose.t b/t/002-moose.t index 9141eda..8f251c9 100644 --- a/t/002-moose.t +++ b/t/002-moose.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 14; +use Test::More tests => 16; use MooseX::Module::Refresh; @@ -52,6 +52,8 @@ is($foobar->baz, 'FOO', "We got the right new result"); is($foobar->foo, 1, "We got the right new result"); ok(!$foobar->can('bar'), "the bar method was removed"); ok(!$foobar->can('clear_foo'), "the clear_foo method was removed"); +ok(FooBar->meta->has_attribute('baz'), "the baz attribute exists"); +ok(!FooBar->meta->has_attribute('foo'), "the foo attribute was removed"); # After a refresh, did we blow away our non-file-based comp? can_ok('FooBar', 'not_in_foobarpm'); |