use DateTime::Event::Recurrence;
use Test::More;
use strict;
use warnings;
plan tests => 3;
my $hourly = DateTime::Event::Recurrence->hourly;
my $next_day = DateTime::Span->from_datetimes(
start => DateTime->now,
end => DateTime->now->add( days => 1 )
);
my $future = DateTime::Span->from_datetimes( start => DateTime->now );
ok( $next_day->intersects($future), "next day intersects future" );
ok( $hourly->intersects($next_day), "hourly event intersects next day" );
ok( $hourly->intersects($future), "hourly event intersects future" );