From: ewilhelm <ewilhelm@3efe9002-19ed-0310-8735-a98156148065>
Date: Sat, 5 Aug 2006 23:31:08 +0000 (+0000)
Subject: t/001_basic.t - forgot to check for has-no-setter
X-Git-Tag: 0_01~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ae39004a2b6e6a8a7c00382234bfa1146ce8862;p=gitmo%2FMoose-Policy.git

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

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