MANIFEST, Policy POD changes, other misc stuff

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

diff --git a/t/001_basic.t b/t/001_basic.t
index d5f7fc5..0b50253 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -17,7 +17,7 @@ BEGIN {
 
     # this method (mostly stolen from M::M::Attribute) just rebuilds the
     # options so anything with 'is' gets PBP accessors
-    sub _process_options {
+    before '_process_options' => sub {
         my ($class, $name, $options) = @_;
         if (exists $options->{is}) {
             if ($options->{is} eq 'ro') {
@@ -62,6 +62,7 @@ can_ok($foo, 'get_bar');
 can_ok($foo, 'set_bar');
 
 can_ok($foo, 'get_baz');
+ok(! $foo->can('set_baz'), 'without setter');
 
 is($foo->get_bar, 'Foo::bar', '... got the right default value');
 is($foo->get_baz, 'Foo::baz', '... got the right default value');