#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => "week"; zci is_cached => 1; # Output verified with UNIX cal program ddg_goodie_test( [qw( DDG::Goodie::Week )], "what week is this?" => test_zci( qr/We are in currently in the \d+\w+ week of \d+\./, html => qr:We are in currently in the \d+\w+ week of \d+\.:), "what is the current week" => test_zci( qr/We are in currently in the \d+\w+ week of \d+\./, html => qr:We are in currently in the \d+\w+ week of \d+\.:), "what's the current week? " => test_zci( qr/We are in currently in the \d+\w+ week of \d+\./, html => qr:We are in currently in the \d+\w+ week of \d+\.:), "whats the current week of the year" => test_zci( qr/We are in currently in the \d+\w+ week of \d+\./, html => qr:We are in currently in the \d+\w+ week of \d+\.:), "what was the 5th week of this year" => test_zci( qr/The \d+\w+ week of \d+ began on January \d+\w+\./, html => qr:The \d+\w+ week of \d+ began on January \d+\w+\.:), "what was the 43rd week of 1984" => test_zci( "The 43rd week of 1984 began on October 22nd.", html => "The 43rd week of 1984 began on October 22nd."), "what was the 8th week of 1956" => test_zci( "The 8th week of 1956 began on February 20th.", html => "The 8th week of 1956 began on February 20th."), "what was the 21st week of 1987" => test_zci( "The 21st week of 1987 began on May 18th.", html => "The 21st week of 1987 began on May 18th."), 'what was the 5th week of 1944' => test_zci( 'The 5th week of 1944 began on January 31st.', html => 'The 5th week of 1944 began on January 31st.' ), ); done_testing;