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

Added metadata and better test cases

master
gsquire 2013-08-10 17:15:46 -07:00
parent e72db7c2bc
commit 4a30847621
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/DDG/Goodie/Week.pm
View File

@ -6,15 +6,26 @@ use DDG::Goodie;
# My imports
use strict;
use warnings;
use DateTime; # Already in dist.ini
use Date::Calc qw(:all); # Already in dist.ini
use DateTime;
use Date::Calc qw(:all);
# File metadata
primary_example_queries "week current";
secondary_example_queries "week 8", "week 14 1988";
description "find the current week number or when a random week began";
name "Week";
code_url "https://github.com/gsquire/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Week.pm";
category "dates";
topics "everyday", "special_interest";
attribution twitter => "garrettsquire",
github => "gsquire";
triggers start => "week";
handle remainder => sub {
my $input = $_; # Named variables are better
my $dt = DateTime->now(time_zone => "local"); # Local to sub
my $dt = DateTime->now(time_zone => "local");
if ($input eq "current") {
return "We are in week number " . $dt->week_number;
@ -53,6 +64,7 @@ handle remainder => sub {
};
zci is_cached => 1;
zci answer_type => "week";
1;

4
t/Week.t
View File

@ -15,9 +15,9 @@ ddg_goodie_test(
DDG::Goodie::Week
)],
# "week current" => test_zci("We are in week number 32"),
"week current" => test_zci(qr/We are in week number \d+/),
# "week 6" => test_zci("Week 6 started on 2-4 in 2013"),
"week 6" => test_zci(qr/Week \d+ started on \d+-\d+ in \d+/),
"week 43 1984" => test_zci("Week 43 started on 10-22 of 1984"),