Group
Extension

Date/t/clone.t

use 5.012;
use warnings;
use Test::More;
use lib 't/lib'; use MyTest;

catch_run("[clone]");

subtest 'clone()' => sub {
    my $date = Date::date('2014-01-01 00:00:00');
    ok($date->tzlocal);
    is($date->tzname, tzget()->name);

    my $date2 = $date->clone;
    is($date2, $date);
    ok($date2->tzlocal);
    is($date2->tzname, tzget()->name);

    $date2 = $date->clone(tz => 'Australia/Melbourne');
    isnt($date2->epoch, $date->epoch);
    is($date2.'', $date.'');
    ok(!$date2->tzlocal);
    is($date2->tzname, 'Australia/Melbourne');

    my $date3 = $date2->clone(-1, -1, -1, 1, 2, 3);
    is($date3, "2014-01-01 01:02:03");
    is($date3->tzname, $date2->tzname);

    $date3 = $date3->clone(year => 2013, day => 10);
    is($date3, "2013-01-10 01:02:03");
    is($date3->tzname, $date2->tzname);

    $date3 = $date3->clone(month => 2, tz => "");
    is($date3, "2013-02-10 01:02:03");
    isnt($date3->tzname, $date2->tzname);
    ok($date3->tzlocal);
    is($date3->tzname, tzget()->name);

    $date2 = $date->clone(year => 1700, tz => 'Europe/Kiev');
    is($date2, "1700-01-01");
    ok(!$date2->tzlocal);
    is($date2->tzname, 'Europe/Kiev');
};

subtest 'newfrom' => sub {
    my $date = Date::date('2014-01-01 00:00:00', "America/New_York");
    my $date2 = Date::date($date);
    is($date2->epoch, $date->epoch);
    is("$date2", "$date");
    is($date2->tzname, $date->tzname);
};

done_testing();


Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.