view release on metacpan or  search on metacpan

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

    $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' );