view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

note $JSON;

jl_test('BASIC', $JSON, [], sub {
    my ($output, $src) = @_;

    ok $output =~ m!foo!;
});

{
    my $like_json_not_json = '{"not":"JSON"';
    jl_test('LIKE_JSON_NOT_JSON', $like_json_not_json, [], sub {
        my ($output, $src) = @_;

        is $output, $like_json_not_json;
    });
}

jl_test('SORT_KEYS', encode_json({ z => 1, b => 1, a => 1 }), [], sub {
    my ($output, $src) = @_;

    ok $output =~ m!a.*b.*z!sm;
});

jl_test('JA', encode_json({ aiko => 'è©©' }), [], sub {