89 lines
4.2 KiB
Perl
89 lines
4.2 KiB
Perl
#!/usr/bin/env perl
|
||
|
||
use strict;
|
||
use warnings;
|
||
use Test::More;
|
||
use DDG::Test::Goodie;
|
||
use utf8;
|
||
|
||
zci answer_type => 'chinesezodiac';
|
||
zci is_cached => 0;
|
||
|
||
ddg_goodie_test(
|
||
[qw(
|
||
DDG::Goodie::ChineseZodiac
|
||
)],
|
||
|
||
#Primary example
|
||
'chinese zodiac for 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
|
||
#Secondary examples
|
||
'2004 chinese zodiac animal' => test_zci('Monkey', html => qr/Monkey/),
|
||
'what was the chinese zodiac animal in 1992' => test_zci('Monkey', html => qr/Monkey/),
|
||
'what will the chinese zodiac animal be for 2056' => test_zci('Rat', html => qr/Rat/),
|
||
"last year's chinese zodiac" => test_zci(qr/./, html => qr/./),
|
||
"last years chinese zodiac" => test_zci(qr/./, html => qr/./),
|
||
|
||
#Primary example with different query formats
|
||
'1969 chinese zodiac animal' => test_zci('Rooster', html => qr/Rooster/),
|
||
'what was the chinese zodiac animal for 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'what will the chinese zodiac animal be for people born in the year 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'chinese zodiac for a person born in 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'chinese zodiac of 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
|
||
#Alternative triggers
|
||
'1969 shēngxiào' => test_zci('Rooster', html => qr/Rooster/),
|
||
'shengxiao animal 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'shēng xiào for 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'i was born in 1969 what is my sheng xiao' => test_zci('Rooster', html => qr/Rooster/),
|
||
|
||
#Test some different years
|
||
# Taken from http://www.chinesezodiac.com/calculator.php
|
||
'chinese zodiac animal for 1924' => test_zci('Rat', html => qr/Rat/),
|
||
'chinese zodiac animal for 1929' => test_zci('Snake', html => qr/Snake/),
|
||
'chinese zodiac animal for 1934' => test_zci('Dog', html => qr/Dog/),
|
||
'chinese zodiac animal for 1939' => test_zci('Rabbit', html => qr/Rabbit/),
|
||
'chinese zodiac animal for 1944' => test_zci('Monkey', html => qr/Monkey/),
|
||
'chinese zodiac animal for 1949' => test_zci('Ox', html => qr/Ox/),
|
||
'chinese zodiac animal for 1954' => test_zci('Horse', html => qr/Horse/),
|
||
'chinese zodiac animal for 1959' => test_zci('Pig', html => qr/Pig/),
|
||
'chinese zodiac animal for 1964' => test_zci('Dragon', html => qr/Dragon/),
|
||
'chinese zodiac animal for 1969' => test_zci('Rooster', html => qr/Rooster/),
|
||
'chinese zodiac animal for 1974' => test_zci('Tiger', html => qr/Tiger/),
|
||
'chinese zodiac animal for 2027' => test_zci('Goat', html => qr/Goat/),
|
||
'chinese zodiac animal for 2040' => test_zci('Monkey', html => qr/Monkey/),
|
||
|
||
#Test for correct date ranges
|
||
# Taken from http://www.chinesezodiac.com/calculator.php
|
||
'chinese zodiac animal for 1925' => test_zci('Ox', html => qr/24 Jan 1925–12 Feb 1926/),
|
||
'chinese zodiac animal for 1937' => test_zci('Ox', html => qr/11 Feb 1937–30 Jan 1938/),
|
||
'chinese zodiac animal for 1953' => test_zci('Snake', html => qr/14 Feb 1953–02 Feb 1954/),
|
||
'chinese zodiac animal for 1973' => test_zci('Ox', html => qr/03 Feb 1973–22 Jan 1974/),
|
||
'chinese zodiac animal for 1997' => test_zci('Ox', html => qr/07 Feb 1997–27 Jan 1998/),
|
||
'chinese zodiac animal for 2013' => test_zci('Snake', html => qr/10 Feb 2013–30 Jan 2014/),
|
||
'chinese zodiac animal for 2017' => test_zci('Rooster', html => qr/28 Jan 2017–15 Feb 2018/),
|
||
'chinese zodiac animal for 2041' => test_zci('Rooster', html => qr/01 Feb 2041–21 Jan 2042/),
|
||
|
||
#Handled by the date role–
|
||
'chinese zodiac 20 march 1997' => test_zci('Ox', html => qr/07 Feb 1997–27 Jan 1998/),
|
||
'chinese zodiac 1997-03-20' => test_zci('Ox', html => qr/07 Feb 1997–27 Jan 1998/),
|
||
'what was the chinese zodiac animal on the 3rd of april 1945' => test_zci('Rooster', html => qr/13 Feb 1945–01 Feb 1946/),
|
||
|
||
#Should not trigger
|
||
'wikipedia chinese zodiac' => undef,
|
||
'what is my zodiac sign' => undef,
|
||
'what is the chinese word for duck' => undef,
|
||
'buy an inflatable zodiac chinese online store' => undef,
|
||
|
||
#No support currently for years outside 1900--2069
|
||
'chinese zodiac 1899' => undef,
|
||
'chinese zodiac 1900' => test_zci('Rat', html => qr/Rat/),
|
||
'chinese zodiac 2069' => test_zci('Ox', html => qr/Ox/),
|
||
'chinese zodiac 2070' => undef,
|
||
'chinese zodiac 2000000000000' => undef,
|
||
|
||
);
|
||
|
||
done_testing;
|
||
|