make inlining a bit more easily extensible

[gitmo/Class-MOP.git] / t / 013_add_attribute_alternate.t

diff --git a/t/013_add_attribute_alternate.t b/t/013_add_attribute_alternate.t
index b40fc8f..f7ecde1 100644 (file)
--- a/t/013_add_attribute_alternate.t
+++ b/t/013_add_attribute_alternate.t
@@ -69,9 +69,9 @@ is($point->y, 42, '... the y attribute was set properly with the accessor');
 
 is($point->x, 2, '... the x attribute was initialized correctly through the metaobject');
 
-ok exception {
+isnt( exception {
     $point->x(42);
-}, '... cannot write to a read-only accessor';
+}, undef, '... cannot write to a read-only accessor' );
 is($point->x, 2, '... the x attribute was not altered');
 
 $point->clear();