duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

After/before can now use the pretty year

master
Tom Bebbington 2013-11-18 00:52:59 +00:00
parent 7a2281e2bd
commit b6e20ba6d4
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/DDG/Goodie/LeapYear.pm
View File

@ -84,10 +84,12 @@ handle remainder => sub {
if(defined($3) && $3 =~ /^(bce|bc)$/i) {
$cyear = -$cyear;
}
print "\nCyear: $cyear\n";
my $dir = 1;
if($1 eq "before") {
if($direction eq "before") {
$dir = -1;
}
print "\nDir: $dir\n";
my @years = search_leaps(5, $dir, 0, $cyear);
@years = map(format_year, @years);
my @pretty_years = join(', ', @years);

4
t/LeapYear.t
View File

@ -14,8 +14,8 @@ ddg_goodie_test(
'was 2012 a leap year' => test_zci('2012 CE was a leap year'),
'will 3012 be a leap year' => test_zci('3012 CE will be a leap year'),
'was 1 bce a leap year' => test_zci('1 BCE was not a leap year'),
'leap years after 2005' => test_zci('The 5 leap years after 2005 are 2008 CE, 2012 CE, 2016 CE, 2020 CE, 2024 CE, 2028 CE'),
'leap years before 2 bc' => test_zci('The 5 leap years before 2 BCE are 0 BCE, 4 BCE, 8 BCE, 12 BCE, 16 BCE, 20 BCE'),
'leap years after 2005' => test_zci('The 5 leap years after 2005 CE are 2008 CE, 2012 CE, 2016 CE, 2020 CE, 2024 CE, 2028 CE'),
'leap years before 2 bc' => test_zci('The 5 leap years before 2 BCE are 4 BCE, 8 BCE, 12 BCE, 16 BCE, 20 BCE, 24 BCE'),
);
done_testing;