# t/22-date.t
{ # date()
   
    my $obj = ISP::Object->new();
    my $ret = $obj->date();
    isa_ok( $ret, 'DateTime', "calling date() with no params, return" );
}

{ # date() get param

    my $obj = ISP::Object->new();
    my $ret = $obj->date({ get => 'month' });
    ok( $ret =~ m{ \A \d{4}-\d{2} \z }xms, "called with get=>month works out ok" );
}