X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-shortcuts.t;h=d900163649fb4c395403ef6c4c45e03df696543f;hb=040b273865600d815731e915e4806c8618486e25;hp=fa4a75201e3ddb19b9cb10cb0c3238bd359f205d;hpb=2bb6aaa3ef3d4a9ec015b5198411014ee731419d;p=gitmo%2FMoo.git

diff --git a/t/accessor-shortcuts.t b/t/accessor-shortcuts.t
index fa4a752..d900163 100644
--- a/t/accessor-shortcuts.t
+++ b/t/accessor-shortcuts.t
@@ -21,7 +21,7 @@ my $foo = Foo->new;
 # rwp
 {
   is $foo->rwp, undef, "rwp value starts out undefined";
-  like exception { $foo->rwp($test) }, qr/Usage: Foo::rwp\(self\)/, "rwp is read_only";
+  ok exception { $foo->rwp($test) }, "rwp is read_only";
   is exception { $foo->_set_rwp($test) }, undef, "rwp can be set by writer";
   is $foo->rwp, $test, "rwp value was set by writer";
 }