X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F049-coercion-application-order.t;fp=t%2F049-coercion-application-order.t;h=2077cfac22734b1e1b648c4efead70e7566a49f0;hb=792f7518a13dd8da95cce349ea2676c5ca24e86c;hp=0000000000000000000000000000000000000000;hpb=13973ae99344d26373a62de94f6831353fb5c93b;p=gitmo%2FMouse.git

diff --git a/t/049-coercion-application-order.t b/t/049-coercion-application-order.t
new file mode 100755
index 0000000..2077cfa
--- /dev/null
+++ b/t/049-coercion-application-order.t
@@ -0,0 +1,88 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+# this tests that multiple type coercions on a given attribute get
+# applied in the expected order.
+
+{
+    package Date;
+    use Mouse;
+    # This is just a simple class representing a date - in real life we'd use DateTime.
+
+    has 'year' => 
+        (is => 'rw',
+         isa => 'Int');
+    has 'month' => 
+        (is => 'rw',
+         isa => 'Int');
+    has 'day' => 
+        (is => 'rw',
+         isa => 'Int');
+
+    sub from_epoch
+    {
+        my $class = shift;
+        my %d; @d{qw(year month day)} = (gmtime shift)[5,4,3];
+        $d{year} += 1900;
+        $d{month} += 1;
+        Date->new(%d);
+    }
+
+    sub from_string
+    {
+        my $class = shift;
+        my %d; @d{qw(year month day)} = split /\W/, shift;
+        Date->new(%d);
+    }
+
+
+    sub to_string
+    {
+        my $self = shift;
+        sprintf "%4d-%02d-%02d", 
+            $self->year,
+            $self->month,
+            $self->day
+    }
+
+    package Event;
+    use Mouse;
+    use Mouse::Util::TypeConstraints;
+
+    # These coercions must be applied in the right order - since a
+    # number can be interpreted as a string, but not vice-versa, the
+    # Int coercion should be applied first to get a correct answer.
+    coerce 'Date' 
+        => from 'Int' # a timestamp
+            => via { Date->from_epoch($_) }
+
+        => from 'Str' # <YYYY>-<MM>-<DD> 
+            => via { Date->from_string($_) };
+
+
+
+    has date =>
+        (is => 'rw',
+         isa => 'Date',
+         coerce => 1);       
+        
+}
+
+my $date = Date->new(year => 2001, month => 1, day => 1);
+my $str = $date->to_string;
+is $str, "2001-01-01", "initial date is correct: $str";
+
+my $event = Event->new(date => $date);
+
+$str = $event->date->to_string;
+is $str, "2001-01-01", "initial date field correct: $str";
+
+# check the order is applied correctly when given an Int
+my $timestamp = 1238778317; # Fri Apr  3 17:05:17 2009
+$event->date($timestamp);
+
+$str = $event->date->to_string;
+is $str, "2009-04-03", "coerced timestamp $timestamp to date field $str correctly";
+