File Coverage

blib/lib/Test/BSON.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	6	8	75.0
condition	1	3	33.3
subroutine	9	9	100.0
pod	2	2	100.0
total	63	67	94.0

package Test::BSON;

use 5.006;
use strict;
use parent 'Test::Builder::Module';
use English qw( -no_match_vars );
use Carp;
use BSON;
use Test::Differences;

our $VERSION   = '0.01';
our @EXPORT    = qw( bson_ok bson_is );
our @EXPORT_OK = qw( is_valid_bson is_bson );

*is_valid_bson = \&bson_ok;
*is_bson       = \&bson_is;

sub bson_ok ($;$) {
    my ($input, $test_name) = @_;
    my $test = __PACKAGE__->builder;

    croak 'usage: bson_ok(input, test_name)'
        if !defined $input;

    eval { BSON::decode($input) };

    if (my $error = $EVAL_ERROR) {
        $test->ok(0, $test_name);
        $test->diag("Input was not valid BSON: $error");
        return;
    }

    $test->ok(1, $test_name);
    return 1;
}

sub bson_is ($$;$) {
    my ($input, $expected, $test_name) = @_;
    my $test = __PACKAGE__->builder;
    my %result_for;

    croak 'usage: bson_is(input, expected, test_name)'
        if !defined $input || !defined $expected;

    for my $item (
        { key => 'input',    value => $input    },
        { key => 'expected', value => $expected },
    ) {
        $result_for{ $item->{key} } = eval { BSON::decode( $item->{value} ) };

        if (my $error = $EVAL_ERROR) {
            $test->ok(0, $test_name);
            $test->diag(ucfirst "$item->{key} was not valid BSON: $error");
            return;
        }
    }

    local $Test::Builder::Level = $Test::Builder::Level + 1;

    return eq_or_diff($result_for{input}, $result_for{expected}, $test_name);
}

1;

__END__