| Subject: | Doesn't cope with dates two mellenia ago |
Maybe version 2.0 will fix this, but it's still a good test case.
hornenj@ncbimac2027:~/tmp$ cat bar
#!/usr/bin/env perl
use Genealogy::Gedcom::Date;
my $d = Genealogy::Gedcom::Date->new();
my $h = $d->parse_date_value(date => '1 Jan 1000');
print $h->{one_date}->strftime('%Y'), "\n";
my $h = $d->parse_date_value(date => '1 Jan 900');
print $h->{one_date}->strftime('%Y'), "\n";
hornenj@ncbimac2027:~/tmp$ ./bar
1000
1900
hornenj@ncbimac2027:~/tmp$
It should print 1000 then 900.