File Coverage

blib/lib/Test/JSON/More.pm

Criterion	Covered	Total	%
statement	64	78	82.0
branch	11	24	45.8
condition	4	7	57.1
subroutine	11	11	100.0
pod	4	4	100.0
total	94	124	75.8

package Test::JSON::More;
use strict;
use warnings;
use Test::Differences;
use parent 'Test::Builder::Module';

our $VERSION = '0.01';

my $JSON;

sub import {
    my $class       = shift;
    my $json_module = shift || 'JSON';

    my $caller = caller;

    for my $func (qw/ ok_json cmp_json parsed_json ok_json_schema /) {
        no strict 'refs'; ## no critic
        *{"${caller}::$func"} = \&{"${class}::$func"};
    }

    $JSON = _load_module($json_module)->new;
}

sub _load_module {
    my $module = shift;

    my $lib = $module;
    $lib =~ s!::!/!g;
    require "$lib.pm"; ## no critic
    $lib->import;

    $module;
}

our $PARSED_HASH;
sub parsed_json { $PARSED_HASH }

sub ok_json {
    my ($input_json, $test_name) = @_;

    my $test = __PACKAGE__->builder;

    $test->croak("ok_json: undefined JSON") unless defined $input_json;

    eval { $PARSED_HASH = $JSON->decode($input_json) };

    if ( my $error = $@ ) {
        $test->ok( 0, $test_name );
        $test->diag("invalid JSON:\n\n\t$error");
        return;
    }
    else {
        $test->ok( 1, $test_name );
        return 1;
    }
}

sub cmp_json {
    my ($input_json, $expected_json, $test_name) = @_;

    my $test = __PACKAGE__->builder;

    $test->croak("cmp_json: input JSON is undefined")    unless defined $input_json;
    $test->croak("cmp_json: expected JSON is undefined") unless defined $expected_json;

    my %json_for;

    for my $item ( [ input => $input_json ], [ expected => $expected_json ] ) {
        eval { $PARSED_HASH = $JSON->decode($item->[1]) };
        if ( my $error = $@ ) {
            $test->ok( 0, $test_name );
            $test->diag("$item->[0] is invalid JSON:\n\n\t$error");
            return;
        }
        else {
            $json_for{ $item->[0] } = $PARSED_HASH;
        }
    }
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    eq_or_diff( $json_for{input}, $json_for{expected}, $test_name );
}

sub ok_json_schema {
    my ( $input_json, $schema, $test_name  ) = @_;

    my $test = __PACKAGE__->builder;

    $test->croak("ok_json_schema: input JSON is undefined") unless defined $input_json;

    eval { $PARSED_HASH = $JSON->decode($input_json) };
    if ( my $error = $@ ) {
        $test->ok( 0, $test_name );
        $test->diag("invalid JSON: $error");
        return;
    }

    my $jsv = _load_module('JSV::Validator')->new;
    $schema = (!defined $schema || ref($schema) eq 'HASH') ? $schema : $JSON->decode($schema);
    my $res = $jsv->validate($schema, $PARSED_HASH);

    if ( $res->error || scalar @{$res->errors} ) {
        $test->ok( 0, $test_name );
        for my $error ( $res->get_error ) {
            $test->diag("schema error: $error->{message}". ($error->{pointer} ? " pointer:$error->{pointer}" : ""));
        }
        return;
    }
    else {
        if (!defined $schema) {
            $test->carp("Schema is undefined". ($test_name ? ":$test_name" : ""));
        }
        $test->ok( 1, $test_name );
        return 1;
    }
}

1;

__END__