42duration_class.t   [plain text]

use strict;
use warnings;

use Test::More tests => 3;
use DateTime;


{
    package DateTime::MySubclass;
    use base 'DateTime';

    sub duration_class { 'DateTime::Duration::MySubclass' }

    package DateTime::Duration::MySubclass;
    use base 'DateTime::Duration';

    sub is_my_subclass { 1 }
}

my $dt = DateTime::MySubclass->now;
my $delta = $dt - $dt;

isa_ok( $delta, 'DateTime::Duration::MySubclass' );
isa_ok( $dt + $delta, 'DateTime::MySubclass' );

my $delta_days = $dt->delta_days($dt);
isa_ok( $delta_days, 'DateTime::Duration::MySubclass' );