Created a New Goodie Zodiac to calculate Star Sign
NOMADY
Matt Miller
parent
ae0ae15115
commit
57ec1fd4de
1
dist.ini
1
dist.ini
|
|
@ -71,6 +71,7 @@ Telephony::CountryDialingCodes = 1.04
|
|||
URI::Escape::XS = 0.12
|
||||
DateTime::Calendar::Chinese = 1.00
|
||||
DateTime::Event::Chinese = 1.00
|
||||
DateTime::Event::Zodiac = 0
|
||||
Geo::Coordinates::DecimalDegrees = 0.09
|
||||
Math::SigFigs = 1.09
|
||||
Bit::Vector = 7.3
|
||||
|
|
|
|||
|
|
@ -0,0 +1,43 @@
|
|||
package DDG::Goodie::Zodiac;
|
||||
#ABSTRACT : Find the Zodiac Sign by feeding Date as Input
|
||||
|
||||
use DDG::Goodie;
|
||||
with 'DDG::GoodieRole::Dates';
|
||||
|
||||
#My Imports
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#Import the DateTime::Event::Zodiac Module
|
||||
use DateTime::Event::Zodiac qw(zodiac_date_name);
|
||||
|
||||
zci answer_type => "zodiac";
|
||||
|
||||
triggers startend => "zodiac","zodiac sign","starsign","star sign";
|
||||
|
||||
#File MetaData
|
||||
primary_example_queries "zodiac 21st June";
|
||||
secondary_example_queries "31 Dec starsign","1st Jan 1981 star sign","zodiac sign 1 Nov";
|
||||
description "Find the Zodiac Sign for the Respective Date given as Input based on Tropical Zodiac(2011) Source : https://en.wikipedia.org/wiki/Zodiac";
|
||||
name "zodiac";
|
||||
category "special";
|
||||
topics "science";
|
||||
attribution email => 'nomady@zoho.com',
|
||||
github => ['https://github.com/n0mady','NOMADY'];
|
||||
|
||||
handle remainder => sub {
|
||||
|
||||
my $datestring = $_; # The remainder should just be the string for their date.
|
||||
|
||||
#Parse the Given Date String
|
||||
my $zodiacdate = parse_datestring_to_date($datestring);
|
||||
|
||||
#Return Nothing if the User Provided Date is Invalid
|
||||
return unless $zodiacdate;
|
||||
|
||||
#Return the Star Sign
|
||||
return "Star Sign : " . ucfirst(zodiac_date_name($zodiacdate));
|
||||
};
|
||||
|
||||
1;
|
||||
|
||||
|
|
@ -0,0 +1,86 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use DDG::Test::Goodie;
|
||||
|
||||
zci answer_type => 'zodiac';
|
||||
|
||||
ddg_goodie_test([qw(
|
||||
DDG::Goodie::Zodiac
|
||||
)
|
||||
],
|
||||
|
||||
#Test Aries
|
||||
'Zodiac 21st March 1967' => test_zci('Star Sign : Aries'),
|
||||
'StarSign 30 Mar' => test_zci('Star Sign : Aries'),
|
||||
'20 April star sign' => test_zci('Star Sign : Aries'),
|
||||
|
||||
#Test Taurus
|
||||
'Zodiac 21st April 2014' => test_zci('Star Sign : Taurus'),
|
||||
'StarSign 27 Apr' => test_zci('Star Sign : Taurus'),
|
||||
|
||||
#Test Gemini
|
||||
'21 May star sign' => test_zci('Star Sign : Gemini'),
|
||||
'Zodiac 22nd May 1500' => test_zci('Star Sign : Gemini'),
|
||||
'Zodiac 21.05.1965' => test_zci('Star Sign : Gemini'),
|
||||
'StarSign 31 May' => test_zci('Star Sign : Gemini'),
|
||||
'21 jun star sign' => test_zci('Star Sign : Gemini'),
|
||||
|
||||
#Test Cancer
|
||||
'Zodiac 22nd June 1889' => test_zci('Star Sign : Cancer'),
|
||||
'StarSign 30 June 2017' => test_zci('Star Sign : Cancer'),
|
||||
'22nd july star sign' => test_zci('Star Sign : Cancer'),
|
||||
|
||||
#Test Leo
|
||||
'Zodiac 23 July 1654' => test_zci('Star Sign : Leo'),
|
||||
'StarSign 24th July' => test_zci('Star Sign : Leo'),
|
||||
'22 aug star sign' => test_zci('Star Sign : Leo'),
|
||||
'Zodiac 23rd Aug 1700' => test_zci('Star Sign : Leo'),
|
||||
|
||||
#Test Virgo
|
||||
'StarSign 1 Sep' => test_zci('Star Sign : Virgo'),
|
||||
|
||||
#Test Libra
|
||||
'23rd Sep star sign' => test_zci('Star Sign : Libra'),
|
||||
'Zodiac 24 September 2001' => test_zci('Star Sign : Libra'),
|
||||
'StarSign 7th October' => test_zci('Star Sign : Libra'),
|
||||
|
||||
#Test Scorpius
|
||||
'23 oct star sign' => test_zci('Star Sign : Scorpius'),
|
||||
'Zodiac 24 October 1213' => test_zci('Star Sign : Scorpius'),
|
||||
'StarSign 9th November' => test_zci('Star Sign : Scorpius'),
|
||||
|
||||
#Test Sagittarius
|
||||
'22 nov star sign' => test_zci('Star Sign : Sagittarius'),
|
||||
'Zodiac 23 Nov 1857' => test_zci('Star Sign : Sagittarius'),
|
||||
'StarSign 6 Dec' => test_zci('Star Sign : Sagittarius'),
|
||||
'21 Dec star sign' => test_zci('Star Sign : Sagittarius'),
|
||||
|
||||
#Test Capricornus
|
||||
'Zodiac 22nd December' => test_zci('Star Sign : Capricornus'),
|
||||
'StarSign 23 Dec 1378' => test_zci('Star Sign : Capricornus'),
|
||||
'starsign 31 Dec 2009' => test_zci('Star Sign : Capricornus'),
|
||||
'31.12.2100 zodiac' => test_zci('Star Sign : Capricornus'),
|
||||
'1 Jan zodiac' => test_zci('Star Sign : Capricornus'),
|
||||
|
||||
#Test Aquarius
|
||||
'20 Jan star sign' => test_zci('Star Sign : Aquarius'),
|
||||
'Zodiac 21st Jan' => test_zci('Star Sign : Aquarius'),
|
||||
'StarSign 1st Feb' => test_zci('Star Sign : Aquarius'),
|
||||
|
||||
#Test Pisces
|
||||
'19 Feb star sign' => test_zci('Star Sign : Pisces'),
|
||||
'Zodiac 20th Feb 1967' => test_zci('Star Sign : Pisces'),
|
||||
'StarSign 1st Mar' => test_zci('Star Sign : Pisces'),
|
||||
'20 Mar star sign' => test_zci('Star Sign : Pisces'),
|
||||
|
||||
#Test Invalid Inputs
|
||||
'31st April 1876 zodiac' => undef,
|
||||
'Zodiac 31Feb' => undef,
|
||||
'Zodiac 5thMay1200' => undef,
|
||||
|
||||
);
|
||||
|
||||
done_testing;
|
||||
Loading…
Reference in New Issue