t/001_basic.t - fix # of tests, has needs an is => 'rw'

[gitmo/Moose-Policy.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index 3133f4a..867445b 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 8;
 
 BEGIN {
     use_ok('Moose::Policy');           
@@ -43,13 +43,13 @@ BEGIN {
     use Moose::Policy 'My::Moose::Policy';
     use Moose;
     
-    has 'bar' => (default => 'Foo::bar');
+    has 'bar' => (is => 'rw', default => 'Foo::bar');
 }
 
 isa_ok(Foo->meta, 'Moose::Meta::Class');
 is(Foo->meta->attribute_metaclass, 'My::Moose::Meta::Attribute', '... got our custom attr metaclass');
 
-isa_ok()
+isa_ok(Foo->meta->get_attribute('bar'), 'My::Moose::Meta::Attribute');
 
 my $foo = Foo->new;
 isa_ok($foo, 'Foo');