t/001_basic.t - forgot to check for has-no-setter

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

diff --git a/t/001_basic.t b/t/001_basic.t
index d5f7fc5..aab7cdf 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -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');