DateTime-Set-0.3900/t/04recurrence.t

29             $_[0]->add( months => 1 );
34 my $months = DateTime::Set->from_recurrence(
42     is( $months->contains( $t1 ), 0, "does not contain datetime" );
43     is( $months->contains( $t1, $t0 ), 0, "does not contain datetime list" );
44     is( $months->contains( $t0 ), 1, "contains datetime" );
46     is( $months->intersects( $t1 ), 0, "does not intersect datetime" );
47     is( $months->intersects( $t1, $t0 ), 1, "intersects datetime list" );
48     is( $months->intersects( $t0 ), 1, "intersects datetime" );
50     ok( ! defined $months->contains( $months ) ,
53     is( $t0_set->intersects( $months ), 1, "intersects unbounded set" );
58 $months = DateTime::Set->from_recurrence(
66     is( $months->contains( $t1 ), 0, "does not contain datetime" );
67     is( $months->contains( $t1, $t0 ), 0, "does not contain datetime list" );
68     is( $months->contains( $t0 ), 1, "contains datetime" );
70     is( $months->intersects( $t1 ), 0, "does not intersect datetime" );
71     is( $months->intersects( $t1, $t0 ), 1, "intersects datetime list" );
72     is( $months->intersects( $t0 ), 1, "intersects datetime" );
75 $res = $months->min;
79 $res = $months->max;
85 $months = DateTime::Set->from_recurrence(
89 $res = $months->min;
95 $res = $months->max;
101 is( $months->count, undef, "count" );
104 $months = DateTime::Set->from_recurrence(
109 $res = $months->min;
115 $res = $months->max;
124 $months = DateTime::Set->from_recurrence(
129 $res = $months->min;
135 $res = $months->max;
144 $res = $months->intersection( DateTime->new( year=>1810, month=>11, day=>1 ) );
165 my $months = DateTime::Set->from_recurrence(
168 my $bounded = $months->intersection( $set );