inlining for overloaded object isa/coerce

[gitmo/Moo.git] / t / accessor-mixed.t

diff --git a/t/accessor-mixed.t b/t/accessor-mixed.t
index 83bc7bc..ecf91ca 100644 (file)
--- a/t/accessor-mixed.t
+++ b/t/accessor-mixed.t
@@ -6,7 +6,7 @@ my @result;
 {
   package Foo;
 
-  use Class::Tiny;
+  use Moo;
 
   my @isa = (isa => sub { push @result, 'isa', $_[0] });
   my @trigger = (trigger => sub { push @result, 'trigger', $_[1] });
@@ -16,25 +16,25 @@ my @result;
   }
 
   has a1 => (
-    is => 'ro', @isa
+    is => 'rw', @isa
   );
   has a2 => (
-    is => 'ro', @isa, @trigger
+    is => 'rw', @isa, @trigger
   );
   has a3 => (
-    is => 'ro', @isa, @trigger
+    is => 'rw', @isa, @trigger
   );
   has a4 => (
-    is => 'ro', @trigger, _mkdefault('a4')
+    is => 'rw', @trigger, _mkdefault('a4')
   );
   has a5 => (
-    is => 'ro', @trigger, _mkdefault('a5')
+    is => 'rw', @trigger, _mkdefault('a5')
   );
   has a6 => (
-    is => 'ro', @isa, @trigger, _mkdefault('a6')
+    is => 'rw', @isa, @trigger, _mkdefault('a6')
   );
   has a7 => (
-    is => 'ro', @isa, @trigger, _mkdefault('a7')
+    is => 'rw', @isa, @trigger, _mkdefault('a7')
   );
 }