use strict;
BEGIN { $^W = 1 }

use Test::More tests => 3;
use DateTime::Calendar::Pataphysical;

#########################

my $dt = DateTime::Calendar::Pataphysical->new(
            year => 130, month => 2, day => 10);

$dt->truncate( to => 'day' );
is( $dt->ymd, '130-02-10', 'truncate to day' );

$dt->truncate( to => 'month' );
is( $dt->ymd, '130-02-01', 'truncate to month' );

$dt->truncate( to => 'year' );
is( $dt->ymd, '130-01-01', 'truncate to year' );