1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use strict;
use warnings;
use Test::More;
use DateTime;
use DateTime::Duration;
{
my $dt = DateTime->new( year => 2008, month => 2, day => 28 );
my $du = DateTime::Duration->new( years => 1 );
my $p;
$p = $dt->set( year => 1882 );
is( DateTime->compare( $p, $dt ), 0, 'set returns self' );
$p = $dt->set_time_zone('Australia/Sydney');
is( DateTime->compare( $p, $dt ), 0, 'set_time_zone returns self' );
$p = $dt->add_duration($du);
is( DateTime->compare( $p, $dt ), 0, 'add_duration returns self' );
$p = $dt->add( years => 2 );
is( DateTime->compare( $p, $dt ), 0, 'add returns self' );
$p = $dt->subtract_duration($du);
is( DateTime->compare( $p, $dt ), 0, 'subtract_duration returns self' );
$p = $dt->subtract( years => 3 );
is( DateTime->compare( $p, $dt ), 0, 'subtract returns self' );
$p = $dt->truncate( to => 'day' );
is( DateTime->compare( $p, $dt ), 0, 'truncate returns self' );
}
done_testing();
|
