From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 2 May 2012 19:08:29 +0000 (+0000)
Subject: fix test failure where Class::XSAccessor is not used for rwp
X-Git-Tag: v0.091001~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=078250e30b2cbd1ea3946c7506a55505602279c1;p=gitmo%2FMoo.git

fix test failure where Class::XSAccessor is not used for rwp
---

diff --git a/Changes b/Changes
index d27d8bd..b589fc1 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - fix test failure where Class::XSAccessor is not available
+
 0.091000 - 2012-04-27
   - document MX::AttributeShortcuts 009+ support
   - documentation for the metaclass inflation code
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";
 }