Group
Extension

Matches 8

Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/timezone.t ( view source; MetaCPAN )
ay $b->epoch;
        cmp_ok $date->epoch, '>', $b->epoch;
        cmp_ok $date, '>', $b;
        isnt $date, $b;
        is $date->to_string, $b->to_string;
    }
};

subtest 'clone with tz' => sub {
 date('2014-01-01 00:00:00');
            is $date->to_string, '2014-01-01 00:00:00';
            isnt $date, $src;
        }
    };
    subtest 'with other' => sub {
        foreach my $zone ("Europe
one;
            $date->to_timezone($zone);
            is $date->epoch, $src->epoch;
            isnt $date->to_string, $src->to_string;
        }
    };
};

subtest 'tz()' => sub {
    for my $zone 
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/relative/basic.t ( view source; MetaCPAN )
");
        is $rel->to_string, "1Y 1M 1D 1h 1m 1s";
        is $rel->duration, 34304461;
        isnt $rel->duration, rdate($rel->to_string)->duration;
        is $rel->from, "2012-03-02 15:47:32";
 
      is $rel->from, "2013-04-03 16:48:33";
        is $rel->till, "2012-03-02 15:47:32";
        isnt $rel->duration, rdate($rel->to_string)->duration;
    };

    subtest 'rdate' => sub {
        is
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/clone.t ( view source; MetaCPAN )
  is($date2->tzname, tzget()->name);

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

    $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);
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/time/tzdir.t ( view source; MetaCPAN )
;

tzset('Europe/Moscow');
is(tzname(), 'Europe/Moscow');
my $date1 = &localtime($now);
isnt($date1, undef);
isnt($date1, '');
my @date1 = lt2tl(&localtime($now));
tzset('America/New_York');
is(tzname
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/relative/operations.t ( view source; MetaCPAN )

    cmp_ok($rel, '<', "2Y");
    cmp_ok($rel, '==', "1Y 2M");
    cmp_ok($rel, '==', "14M");
    isnt($rel, "14M");
    
    ok(!eval {2/YEAR});
    
    # reverse test
    is('10D' - MONTH, "-1M 10D
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/time/tzget.t ( view source; MetaCPAN )
transitions are present ($zname)");
    }
};

done_testing();

sub wrong {
    my $zone = shift;
	isnt(tzget($zone)->name, $zone);
}

sub check {
    my $zname = shift;
	my $zone = tzget($zname);
	is(
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/integration/storable.t ( view source; MetaCPAN )
e/Kiev');
        my $date_cloned = thaw($frozen);
        is($date_cloned->epoch, $dts);
        isnt($date_cloned.'', $date.'');
        ok($date_cloned->tzlocal);
        is($date_cloned->tzname, '
Date ( S/SY/SYBER/Date-5.2.11.tar.gz, SYBER, 2022; MetaCPAN )
Date/t/mksec.t ( view source; MetaCPAN )
x $date->epoch, 1_000_000_000.000001;
    is($date->to_string, "2001-09-09 05:46:40.000001");
    isnt($date, "2001-09-09 05:46:40");
    is($date, Date->new("2001-09-09 05:46:40.000001"));
    is("$d

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