Move t/*/t into t/001_mouse

[gitmo/Mouse.git] / t / 049-coercion-application-order.t

diff --git a/t/049-coercion-application-order.t b/t/049-coercion-application-order.t
deleted file mode 100755 (executable)
index 2077cfa..0000000
--- a/t/049-coercion-application-order.t
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/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";
-