#!/usr/bin/perl -w

use Test::Inter;
$t = new Test::Inter 'recur :: unmodified date range';
$testdir = '';
$testdir = $t->testdir();

use Date::Manip;
if (DateManipVersion() >= 6.00) {
   $t->feature("DM6",1);
}

$t->skip_all('Date::Manip 6.xx required','DM6');


sub test {
  ($recur,$arg1,$arg2) = @_;
  $err = $obj->parse($recur);
  if ($err) {
     return $obj->err();
  } else {
     $start = undef;
     $end   = undef;
     if (defined($arg1)) {
        $start = $obj->new_date();
        $start->parse($arg1);
     }
     if (defined($arg2)) {
        $end = $obj->new_date();
        $end->parse($arg2);
     }
     @dates = $obj->dates($start,$end);
     @ret   = ();
     foreach my $d (@dates) {
        $v = $d->value();
        push(@ret,$v);
     }
     return @ret;
  }
}

$obj = new Date::Manip::Recur;
$obj->config("forcedate","2000-01-21-00:00:00,America/New_York");

$tests="

1*1:0:1:0:0:0***2004010100:00:00*2007123123:59:59
   =>
   2004010100:00:00
   2005010100:00:00
   2006010100:00:00
   2007010100:00:00

1*1:0:1:0:0:0*dwd**2004010100:00:00*2007123123:59:59
   =>
   2004010100:00:00
   2004123100:00:00
   2006010200:00:00
   2007010100:00:00

1*1:0:1:0:0:0*dwd**2005010100:00:00*2005123123:59:59
   =>

1*1:0:1:0:0:0*dwd**2005010100:00:00*2005123123:59:59*1
   =>
   2004123100:00:00

";

$t->tests(func  => \&test,
          tests => $tests);
$t->done_testing();

#Local Variables:
#mode: cperl
#indent-tabs-mode: nil
#cperl-indent-level: 3
#cperl-continued-statement-offset: 2
#cperl-continued-brace-offset: 0
#cperl-brace-offset: 0
#cperl-brace-imaginary-offset: 0
#cperl-label-offset: 0
#End: