#!/usr/bin/perl -w

use strict;
use Test::More tests => 12;
use DateTime;
use DateTime::Fiction::JRRTolkien::Shire;

# A very important day
my $shire = DateTime::Fiction::JRRTolkien::Shire->new(year => 1419,
						      month => 3,
						      day => 25,
						      hour => 10);

# 1-6
$shire->set(day => 28);
is($shire->day, 28);
$shire->set(holiday => 2);
is($shire->doy, 182);
$shire->set(month => 'Thrimidge',
	    year => 1420);
is($shire->month, 5);
is($shire->year, 1420);
$shire->set(holiday => 'Overlithe');
is($shire->holiday, 4);
$shire->set(month => 2);
is($shire->month, 2);

# 7-11
$shire->truncate(to => 'day');
my $dt = DateTime->from_object(object => $shire);
is($dt->hour, 0);
$shire->truncate(to => 'month');
is($shire->day, 1);
is($shire->month, 2);
$shire->truncate(to => 'year');
is($shire->holiday, 1);
is($shire->year, 1420);

# 12
ok($shire->set_time_zone('floating'));