updated dependents test

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

diff --git a/t/accessor-coerce.t b/t/accessor-coerce.t
index 76381bd..4288b97 100644 (file)
--- a/t/accessor-coerce.t
+++ b/t/accessor-coerce.t
@@ -14,6 +14,20 @@ sub run_for {
   is($obj->plus_three, 7, 'Value changes after set');
 }
 
+sub run_with_default_for {
+  my $class = shift;
+
+  my $obj = $class->new();
+
+  is($obj->plus_three, 4, "initial value set (${class})");
+
+  $obj->plus_three(4);
+
+  is($obj->plus_three, 7, 'Value changes after set');
+}
+
+
+
 {
   package Foo;
 
@@ -52,7 +66,7 @@ run_for 'Bar';
 
   has plus_three => (
     is => 'rw',
-    isa => quote_sub(
+    coerce => quote_sub(
       q{
         my ($value) = @_;
         $value + $plus
@@ -70,9 +84,81 @@ run_for 'Baz';
   use Sub::Quote;
   use Moo;
 
-  has dies => (
+  has plus_three => (
+    is => 'rw',
+    coerce => quote_sub(
+      q{
+        die 'could not add three!'
+      },
+    )
+  );
+}
+
+like exception { Biff->new(plus_three => 1) }, qr/coercion for "plus_three" failed: could not add three!/, 'Exception properly thrown';
+
+{
+  package Foo2;
+
+  use Moo;
+
+  has plus_three => (
+    is => 'rw',
+    default => sub { 1 },
+    coerce => sub { $_[0] + 3 }
+  );
+}
+
+run_with_default_for 'Foo2';
+
+{
+  package Bar2;
+
+  use Sub::Quote;
+  use Moo;
+
+  has plus_three => (
+    is => 'rw',
+    default => sub { 1 },
+    coerce => quote_sub q{
+      my ($x) = @_;
+      $x + 3
+    }
+  );
+}
+
+run_with_default_for 'Bar2';
+
+{
+  package Baz2;
+
+  use Sub::Quote;
+  use Moo;
+
+  has plus_three => (
+    is => 'rw',
+    default => sub { 1 },
+    coerce => quote_sub(
+      q{
+        my ($value) = @_;
+        $value + $plus
+      },
+      { '$plus' => \3 }
+    )
+  );
+}
+
+run_with_default_for 'Baz2';
+
+{
+  package Biff2;
+
+  use Sub::Quote;
+  use Moo;
+
+  has plus_three => (
     is => 'rw',
-    isa => quote_sub(
+    default => sub { 1 },
+    coerce => quote_sub(
       q{
         die 'could not add three!'
       },
@@ -80,6 +166,40 @@ run_for 'Baz';
   );
 }
 
-like exception { Biff->new(plus_three => 1) }, 'could not add three!', 'Exception properly thrown';
+like exception { Biff2->new() }, qr/could not add three!/, 'Exception properly thrown';
+
+{
+  package Foo3;
+
+  use Moo;
+
+  has plus_three => (
+    is => 'rw',
+    default => sub { 1 },
+    coerce => sub { $_[0] + 3 },
+    lazy => 1,
+  );
+}
+
+run_with_default_for 'Foo3';
+
+{
+  package Bar3;
+
+  use Sub::Quote;
+  use Moo;
+
+  has plus_three => (
+    is => 'rw',
+    default => sub { 1 },
+    coerce => quote_sub(q{
+      my ($x) = @_;
+      $x + 3
+    }),
+    lazy => 1,
+  );
+}
+
+run_with_default_for 'Bar3';
 
 done_testing;