zeroclickinfo-goodies/t/TimezoneConverter.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
use Test::MockTime qw( :all );

zci answer_type => 'timezone_converter';
zci is_cached   => 1;

ddg_goodie_test(
    ['DDG::Goodie::TimezoneConverter'],
    '3:14 in GMT' =>
        test_zci('3:14 (UTC) is 3:14 (GMT).',
        structured_answer => {
            input => ['3:14 in GMT'],
            operation => 'Convert Timezone',
            result => '3:14 (UTC) is 3:14 (GMT).',
        },
    ),
    '8:10 AM AZOST into CAT' =>
        test_zci('8:10 AM (AZOST, UTC-1) is 11:10 AM (CAT, UTC+2).',
        structured_answer => {
            input => ['8:10 AM AZOST into CAT'],
            operation => 'Convert Timezone',
            result => '8:10 AM (AZOST, UTC-1) is 11:10 AM (CAT, UTC+2).',
        },
    ),
    '1pm EDT into UTC+2' =>
        test_zci('1:00 PM (EDT, UTC-4) is 7:00 PM (UTC+2).',
        structured_answer => {
            input => ['1pm EDT into UTC+2'],
            operation => 'Convert Timezone',
            result => '1:00 PM (EDT, UTC-4) is 7:00 PM (UTC+2).',
        },
    ),
    '0pm into GMT' =>
        test_zci('Noon (UTC) is noon (GMT).',
        structured_answer => {
            input => ['0pm into GMT'],
            operation => 'Convert Timezone',
            result => 'Noon (UTC) is noon (GMT).',
        },
    ),
    '0am into UTC' =>
        test_zci('Midnight (UTC) is midnight (UTC).',
        structured_answer => {
            input => ['0am into UTC'],
            operation => 'Convert Timezone',
            result => 'Midnight (UTC) is midnight (UTC).',
        },
    ),
    '1 into UTC -2 ' =>
        test_zci('1:00 (UTC) is 23:00, 1 day prior (UTC-2).',
        structured_answer => {
            input => ['1 into UTC -2'],
            operation => 'Convert Timezone',
            result => '1:00 (UTC) is 23:00, 1 day prior (UTC-2).',
        },
    ),
    ' 1 into UTC-1' =>
        test_zci('1:00 (UTC) is 0:00 (UTC-1).',
        structured_answer => {
            input => ['1 into UTC-1'],
            operation => 'Convert Timezone',
            result => '1:00 (UTC) is 0:00 (UTC-1).',
        },
    ),
    '21 FNT into EET' =>
        test_zci('21:00 (FNT, UTC-2) is 1:00, 1 day after (EET, UTC+2).',
        structured_answer => {
            input => ['21 FNT into EET'],
            operation => 'Convert Timezone',
            result => '21:00 (FNT, UTC-2) is 1:00, 1 day after (EET, UTC+2).',
        },
    ),
    '23:00:00  InTo  UTC+1' =>
        test_zci('23:00 (UTC) is 0:00, 1 day after (UTC+1).',
        structured_answer => {
            input => ['23:00:00 InTo UTC+1'],
            operation => 'Convert Timezone',
            result => '23:00 (UTC) is 0:00, 1 day after (UTC+1).',
        },
    ),
    '23:00:01  Into    UTC+1' =>
        test_zci('23:00:01 (UTC) is 0:00:01, 1 day after (UTC+1).',
        structured_answer => {
            input => ['23:00:01 Into UTC+1'],
            operation => 'Convert Timezone',
            result => '23:00:01 (UTC) is 0:00:01, 1 day after (UTC+1).',
        },
    ),
    '13:15:00 UTC-0:30 into UTC+0:30' =>
        test_zci('13:15 (UTC-0:30) is 13:15 (UTC+0:30).',
        structured_answer => {
            input => ['13:15:00 UTC-0:30 into UTC+0:30'],
            operation => 'Convert Timezone',
            result => '13:15 (UTC-0:30) is 13:15 (UTC+0:30).',
        },
    ),
    # ok, this is unlikely to happen without trying to do that
    '19:42:42 BIT into GMT+100' =>
        test_zci('19:42:42 (BIT, UTC-12) is 11:42:42, 5 days after (GMT+100).',
        structured_answer => {
            input => ['19:42:42 BIT into GMT+100'],
            operation => 'Convert Timezone',
            result => '19:42:42 (BIT, UTC-12) is 11:42:42, 5 days after (GMT+100).',
        },
    ),
    '19:42:42 CHADT into GMT-100' =>
        test_zci('19:42:42 (CHADT, UTC+13:45) is 1:57:42, 4 days prior (GMT-100).',
        structured_answer => {
            input => ['19:42:42 CHADT into GMT-100'],
            operation => 'Convert Timezone',
            result => '19:42:42 (CHADT, UTC+13:45) is 1:57:42, 4 days prior (GMT-100).',
        },
    ),
    '10:00AM MST to PST' =>
        test_zci('10:00 AM (MST, UTC-7) is 9:00 AM (PST, UTC-8).',
        structured_answer => {
            input => ['10:00AM MST to PST'],
            operation => 'Convert Timezone',
            result => '10:00 AM (MST, UTC-7) is 9:00 AM (PST, UTC-8).',
        },
    ),
    '19:00 UTC to EST' =>
        test_zci('19:00 (UTC) is 14:00 (EST, UTC-5).',
        structured_answer => {
            input => ['19:00 UTC to EST'],
            operation => 'Convert Timezone',
            result => '19:00 (UTC) is 14:00 (EST, UTC-5).',
        },
    ),
    '1am UTC to PST' =>
        test_zci('1:00 AM (UTC) is 5:00 PM, 1 day prior (PST, UTC-8).',
        structured_answer => {
            input => ['1am UTC to PST'],
            operation => 'Convert Timezone',
            result => '1:00 AM (UTC) is 5:00 PM, 1 day prior (PST, UTC-8).',
        },
    ),
    '12:40pm PST into JST' =>
        test_zci('12:40 PM (PST, UTC-8) is 5:40 AM, 1 day after (JST, UTC+9).',
        structured_answer => {
            input => ['12:40pm PST into JST'],
            operation => 'Convert Timezone',
            result => '12:40 PM (PST, UTC-8) is 5:40 AM, 1 day after (JST, UTC+9).',
        },
    ),
    '12:40 pm from PST to JST' =>
        test_zci('12:40 PM (PST, UTC-8) is 5:40 AM, 1 day after (JST, UTC+9).',
        structured_answer => {
            input => ['12:40 pm from PST to JST'],
            operation => 'Convert Timezone',
            result => '12:40 PM (PST, UTC-8) is 5:40 AM, 1 day after (JST, UTC+9).',
        },
    ),
    '11:22am est in utc' =>
        test_zci('11:22 AM (EST, UTC-5) is 4:22 PM (UTC).',
        structured_answer => {
            input => ['11:22am est in utc'],
            operation => 'Convert Timezone',
            result => '11:22 AM (EST, UTC-5) is 4:22 PM (UTC).',
        },
    ),
      '1600 UTC in BST' =>
        test_zci('16:00 (UTC) is 17:00 (BST, UTC+1).',
        structured_answer => {
            input => ['1600 UTC in BST'],
            operation => 'Convert Timezone',
            result => '16:00 (UTC) is 17:00 (BST, UTC+1).',
        },
    ),  
    
    # Intentional non-answers
    '12 in binary' => undef,
);

# Summertime
my $test_location_tz = qr/\(EDT, UTC-4\)/;
set_fixed_time("2014-10-14T00:00:00");
ddg_goodie_test(
    ['DDG::Goodie::TimezoneConverter'],
    # Location-specific tests (variable with DST)
    '13:00 GMT in my time' =>
        test_zci(qr/13:00 \(GMT\) is 9:00 $test_location_tz/,
        structured_answer => {
            input => ['13:00 GMT in my time'],
            operation => 'Convert Timezone',
            result => qr/13:00 \(GMT\) is 9:00 $test_location_tz/,
        },
    ),
    '11:22am cest in my timezone' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in my timezone'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        },
    ),
    '11:22am cest in localtime' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in localtime'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        },
    ),
    '11:22am cest in my local timezone' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in my local timezone'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 5:22 AM $test_location_tz/,
        },
    ),
    '12pm my time in CEST' =>
        test_zci(qr/Noon $test_location_tz is 6:00 PM \(CEST, UTC\+2\)./,
        structured_answer => {
            input => ['12pm my time in CEST'],
            operation => 'Convert Timezone',
            result => qr/Noon $test_location_tz is 6:00 PM \(CEST, UTC\+2\)./,
        },
    ),
    '12pm local timezone in CEST' =>
        test_zci(qr/Noon $test_location_tz is 6:00 PM \(CEST, UTC\+2\)./,
        structured_answer => {
            input => ['12pm local timezone in CEST'],
            operation => 'Convert Timezone',
            result => qr/Noon $test_location_tz is 6:00 PM \(CEST, UTC\+2\)./,
        },
    ),
    '12am my timezone in UTC' =>
        test_zci(qr/Midnight $test_location_tz is 4:00 AM \(UTC\)./,
        structured_answer => {
            input => ['12am my timezone in UTC'],
            operation => 'Convert Timezone',
            result => qr/Midnight $test_location_tz is 4:00 AM \(UTC\)./,
        },
    ),
    '12am local time in UTC' =>
        test_zci(qr/Midnight $test_location_tz is 4:00 AM \(UTC\)./,
        structured_answer => {
            input => ['12am local time in UTC'],
            operation => 'Convert Timezone',
            result => qr/Midnight $test_location_tz is 4:00 AM \(UTC\)./,
        },
    ),
);
restore_time();

set_fixed_time("2014-11-02T11:00:00");
$test_location_tz = qr/\(EST, UTC-5\)/;
ddg_goodie_test(
    ['DDG::Goodie::TimezoneConverter'],
    # Location-specific tests (variable with DST)
    '13:00 GMT in my time' =>
        test_zci(qr/13:00 \(GMT\) is 8:00 $test_location_tz/,
        structured_answer => {
            input => ['13:00 GMT in my time'],
            operation => 'Convert Timezone',
            result => qr/13:00 \(GMT\) is 8:00 $test_location_tz/,
        },
    ),
    '11:22am cest in my timezone' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in my timezone'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        },
    ),
    '11:22am cest in localtime' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in localtime'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        },
    ),
    '11:22am cest in my local timezone' =>
        test_zci(qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        structured_answer => {
            input => ['11:22am cest in my local timezone'],
            operation => 'Convert Timezone',
            result => qr/11:22 AM \(CEST, UTC\+2\) is 4:22 AM $test_location_tz/,
        },
    ),
    '12pm my time in CEST' =>
        test_zci(qr/Noon $test_location_tz is 7:00 PM \(CEST, UTC\+2\)./,
        structured_answer => {
            input => ['12pm my time in CEST'],
            operation => 'Convert Timezone',
            result => qr/Noon $test_location_tz is 7:00 PM \(CEST, UTC\+2\)./,
        },
    ),
    '12pm local timezone in CEST' =>
        test_zci(qr/Noon $test_location_tz is 7:00 PM \(CEST, UTC\+2\)./,
        structured_answer => {
            input => ['12pm local timezone in CEST'],
            operation => 'Convert Timezone',
            result => qr/Noon $test_location_tz is 7:00 PM \(CEST, UTC\+2\)./,
        },
    ),
    '12am my timezone in UTC' =>
        test_zci(qr/Midnight $test_location_tz is 5:00 AM \(UTC\)./,
        structured_answer => {
            input => ['12am my timezone in UTC'],
            operation => 'Convert Timezone',
            result => qr/Midnight $test_location_tz is 5:00 AM \(UTC\)./,
        },
    ),
    '12am local time in UTC' =>
        test_zci(qr/Midnight $test_location_tz is 5:00 AM \(UTC\)./,
        structured_answer => {
            input => ['12am local time in UTC'],
            operation => 'Convert Timezone',
            result => qr/Midnight $test_location_tz is 5:00 AM \(UTC\)./,
        },
    ),
);

restore_time();
done_testing;