From ce332af50f68223a3eb2224a68a648b836d9f6e5 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 19 Dec 2009 14:19:38 -0600 Subject: a couple more tests --- t/002-moose.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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'); -- cgit v1.2.3