File Coverage

blib/lib/Test/JSON/Assert.pm

Criterion	Covered	Total	%
statement	14	34	41.1
branch			n/a
condition			n/a
subroutine	5	9	55.5
pod	4	4	100.0
total	23	47	48.9

## ----------------------------------------------------------------------------
# Copyright (C) 2014-2016 NZRS Ltd.
## ----------------------------------------------------------------------------
package Test::JSON::Assert;

use 5.006000;
use strict;
use warnings;
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use JSON::Assert;

our @EXPORT = qw(
    is_jpath_count
    does_jpath_value_match
    do_jpath_values_match
    does_jpath_contains
);


my $CLASS = __PACKAGE__;

sub is_jpath_count($$$;$) {
    my ($doc, $jpath, $count, $name) = @_;

    # create the $json_assert object
    my $json_assert = JSON::Assert->new();

    # do the test and remember the result
    my $is_ok = $json_assert->is_jpath_count($doc, $jpath, $count);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub does_jpath_value_match($$$;$) {
    my ($doc, $jpath, $match, $name) = @_;

    my $json_assert = JSON::Assert->new();

    # do the test and remember the result
    my $is_ok = $json_assert->does_jpath_value_match($doc, $jpath, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub do_jpath_values_match($$$;$) {
    my ($doc, $jpath, $match, $name) = @_;

    my $json_assert = JSON::Assert->new();

    # do the test and remember the result
    my $is_ok = $json_assert->do_jpath_values_match($doc, $jpath, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub does_jpath_contains($$$;$) {
    my ($doc, $jpath_str, $match, $name) = @_;

    my $json_assert = JSON::Assert->new();

    # do the test and remember the result
    my $is_ok = $json_assert->does_jpath_contains($doc, $jpath_str, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);

}


1;

__END__