view release on metacpan or  search on metacpan

t/05iterator.t  view on Meta::CPAN

my $iterator = $months->iterator;
my @res;
for (1..3) {
        my $tmp = $iterator->next;
        push @res, $tmp->ymd if defined $tmp;
}
$res = join( ' ', @res );
is( $res, '1810-09-01 1810-10-01 1810-11-01',
        "3 iterations give $res" );


# sub-second iterator
{
    my $count = 0;
    my $micro_callback = sub {
            # truncate and add to 'microsecond'
            $_[0]->set( nanosecond =>
                           1000 * int( $_[0]->nanosecond / 1000 ) )
                 ->add( nanoseconds => 1000 );

t/05iterator.t  view on Meta::CPAN

        my $tmp = $iterator->next;
        if (defined $tmp) {
            my $str = $tmp->datetime.'.'.sprintf('%06d',$tmp->microsecond);
            # warn "iter: $str";
            push @res, $str;
        }
    }

    $res = join( ' ', @res );
    is( $res, '1810-08-22T00:00:00.000000 1810-08-22T00:00:00.000001 1810-08-22T00:00:00.000002',
        "3 iterations give $res" );
}

# test the iterator limits.  Ben Bennett.
{
    # Make a recurrence that returns all months
    my $all_months = DateTime::Set->from_recurrence( recurrence => $month_callback );

    my $t1 = new DateTime( year => '1810', month => '08', day => '22' );
    my $t2 = new DateTime( year => '1810', month => '11', day => '24' );
    my $span = DateTime::Span->from_datetimes( start => $t1, end => $t2 );

t/12iterator_intersection.t  view on Meta::CPAN

my $iterator = $months1->iterator;
my @res = ();
for (1..5) {
        my $tmp = $iterator->next;
        push @res, $tmp->ymd if defined $tmp;
}
$res = join( ' ', @res );
ok( $res eq '1810-09-15 1810-10-15 1810-11-15 1810-12-15 1811-01-15',
        "iterations of month1 give $res" );

$iterator = $months2->iterator;
@res = ();
for (1..5) {
        my $tmp = $iterator->next;
        push @res, $tmp->ymd if defined $tmp;
}
$res = join( ' ', @res );
ok( $res eq '1810-12-16 1811-01-16 1811-02-13 1811-03-16 1811-04-15',
        "iterations of month2 give $res" );

my $m12 = $months1->intersection( $months2 );

$res = $m12->min;
$res = $res->ymd if ref($res);
ok( $res eq '1811-04-15', 
    "min() - got $res" );


$iterator = $m12->iterator;
@res = ();
for (1..3) {
        my $tmp = $iterator->next;
        push @res, $tmp->ymd if defined $tmp && ref($tmp);
}
$res = join( ' ', @res );
ok( $res eq '1811-04-15 1811-06-15 1811-09-15',
        "3 iterations give $res" );


1;