New Timezonetime IA (#4393)

* Check in shivam99aa's work.

* Finish timezone/time IA.

* Refactor Timezonetime.pm

* fix indentation
master
PJ Hampton 2017-08-01 17:59:49 +01:00 committed by Zaahir Moolla
parent 1b10220bdc
commit cd0871b9f4
2 changed files with 144 additions and 0 deletions

View File

@ -0,0 +1,67 @@
package DDG::Goodie::Timezonetime;
# ABSTRACT: Gives the current time in a specified timezone
use DDG::Goodie;
use strict;
use warnings;
use DateTime;
use DateTime::TimeZone;
zci answer_type => 'timezonetime';
zci is_cached => 1;
triggers start => ("what time in", "what time is it in", "time in");
triggers startend => ("time", "now time", "time now");
# Mapping short timezone names to one used by DateTime:Timezone module
my $timezoneMapping = {
"IST" => "Asia/Kolkata",
"EST" => "EST",
"UTC" => "UTC",
"GMT" => "GMT",
"BST" => "Europe/London",
"PST" => "PST8PDT",
"CST" => "CST6CDT"
};
my $timezones = join('|', keys(%$timezoneMapping));
handle remainder => sub {
my $query = $_;
my $daylightStatus = "";
my $timezone = uc($query);
my $mappedTimezone = $timezoneMapping->{$timezone} // 0;
return unless $mappedTimezone;
# Get time for desired timezone
my $tz = DateTime::TimeZone->new( name => $mappedTimezone );
my $dt = DateTime->now();
my $offset = $tz->offset_for_datetime($dt);
$dt->add(seconds => $offset);
my $time = $dt->hms(':');
# Check if timezone is in daylight saving or not
if ($tz->is_dst_for_datetime( $dt )) {
$daylightStatus = "$timezone is in daylight saving";
}
else {
$daylightStatus = "$timezone is not in daylight saving";
}
return "$time $timezone $daylightStatus",
structured_answer => {
data => {
title => "$time $timezone",
subtitle => "$daylightStatus",
},
templates => {
group => 'text',
}
};
};
1;

77
t/Timezonetime.t Normal file
View File

@ -0,0 +1,77 @@
#!/usr/bin/env perl
# Tests for the Timezonetime goodie
use strict;
use warnings;
use Test::More;
use Test::MockTime qw/:all/;
use Test::Deep;
use DDG::Test::Goodie;
zci answer_type => 'timezonetime';
zci is_cached => 1;
sub build_structured_answer {
my ($time, $timezone, $daylightSaving) = @_;
return "$time $timezone $daylightSaving",
structured_answer => {
data => {
title => "$time $timezone",
subtitle => "$daylightSaving",
},
templates => {
group => 'text',
}
};
}
sub build_test { test_zci(build_structured_answer(@_)) }
# INFO: Freezes time for below tests.
set_fixed_time('2017-06-03T09:36:53Z');
ddg_goodie_test(
['DDG::Goodie::Timezonetime'],
#
# 1. Queries that SHOULD TRIGGER ~~ IN DAYLIGHT SAVINGS
#
'time in pst' => build_test("02:36:53", "PST", "PST is in daylight saving"),
'time now cst' => build_test("04:36:53", "CST", "CST is in daylight saving"),
'time in pst' => build_test("02:36:53", "PST", "PST is in daylight saving"),
'time now cst' => build_test("04:36:53", "CST", "CST is in daylight saving"),
'time in pst' => build_test("02:36:53", "PST", "PST is in daylight saving"),
'time now cst' => build_test("04:36:53", "CST", "CST is in daylight saving"),
);
# INFO: Freezes time for below tests.
set_fixed_time('2016-01-03T09:36:53Z');
ddg_goodie_test(
['DDG::Goodie::Timezonetime'],
#
# 2. Queries that SHOULD TRIGGER ~~ NOT IN DAYLIGHT SAVINGS
#
'time in pst' => build_test("01:36:53", "PST", "PST is not in daylight saving"),
'ist now time' => build_test("15:06:53", "IST", "IST is not in daylight saving"),
'time now cst' => build_test("03:36:53", "CST", "CST is not in daylight saving"),
'time in pst' => build_test("01:36:53", "PST", "PST is not in daylight saving"),
'ist now time' => build_test("15:06:53", "IST", "IST is not in daylight saving"),
'time now cst' => build_test("03:36:53", "CST", "CST is not in daylight saving"),
'time in pst' => build_test("01:36:53", "PST", "PST is not in daylight saving"),
#
# 3. Queries that SHOULD NOT TRIGGER
#
'what is the time in new york' => undef,
'do you know what time it is?' => undef,
'how to tell the time' => undef,
'time in brooklyn' => undef,
'time in belfast' => undef,
'whats the time' => undef,
'hammer time' => undef,
);
done_testing;