view release on metacpan or  search on metacpan

t/02_Async-Microservice-Time.t  view on Meta::CPAN

    my $dt_data;
    $mech->get_ok($service_url . 'datetime?time_zone=Europe/Vienna');
    lives_ok(sub {$dt_data = $json->decode($mech->content)}, 'json content');
    eq_or_diff_data(
        [sort keys %{$dt_data}],
        [   sort
                qw(second year minute datetime hour time_zone_name time epoch month day time_zone date)
        ],
        'datetime'
    );
    like($dt_data->{time_zone_name}, qr{(CEST|CET)}, 'time zone name');

    $mech->get_ok($service_url . 'datetime/Europe/London');
    lives_ok(sub {$dt_data = $json->decode($mech->content)}, 'json content');
    like($dt_data->{time_zone_name}, qr{(BST|GMT)}, 'time zone name');

    $mech->get_ok($service_url . 'datetime/EST');
    lives_ok(sub {$dt_data = $json->decode($mech->content)}, 'json content');
    is($dt_data->{time_zone}, '-0500');

    $mech->post($service_url . 'datetime', content => $json->encode({epoch => 10}));