use strict;
use warnings;
use DateTime;
use DateTime::Span;
use Test::More 'no_plan';

my $dt1 = DateTime->new(
    day  =>  1, month  => 1, year   => 2011,
    hour => 12, minute => 0, second =>    0,
);

my $dt2 = $dt1->clone->add( hours => 1 );
my $duration = DateTime::Duration->new( hours => 1 );

{
    my $span = DateTime::Span->from_datetimes(
        start => $dt1,
        end   => $dt2,
    );

    diag $span->start->datetime();
    diag $span->end->datetime();

    is( $span->intersects( $dt1 ), 1,
        'Spanset intersects $dt1'
    );

    is( $span->intersects( $dt2 ), 1,
        'Span intersects $dt2'
    );

    is( DateTime::Duration->compare( $span->duration, $duration ), 0,
        'Duration is 1 hour'
    );
}

{
    my $span = DateTime::Span->from_datetime_and_duration(
        start    => $dt1,
        duration => $duration,
    );

    diag $span->start->datetime();
    diag $span->end->datetime();

    is( $span->intersects( $dt1 ), 1,
        'Span intersects $dt1'
    );

    is( $span->intersects( $dt2 ), 1,
        'Span intersects $dt2'
    );

    is( DateTime::Duration->compare( $span->duration, $duration ), 0,
        'Duration is 1 hour'
    );
}