File Coverage

blib/lib/Test/Config/IOD.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	6	8	75.0
condition	1	2	50.0
subroutine	10	10	100.0
pod	1	1	100.0
total	56	59	94.9

package Test::Config::IOD;

our $DATE = '2021-06-21'; # DATE
our $VERSION = '0.351'; # VERSION

## no critic (Modules::ProhibitAutomaticExportation)

use 5.010;
use strict;
use warnings;

use Test::Differences;
use Test::Exception;
use Test::More;
use Config::IOD;

use Exporter qw(import);
our @EXPORT = qw(test_modify_doc);

sub test_modify_doc {
    my $opts;
    if (ref($_[0]) eq 'HASH') {
        $opts = shift;
    } else {
        $opts = {};
    }
    my ($code, $doc1, $doc2, $name) = @_;

    subtest +($name // "test_modify_doc") => sub {
        my $iod = Config::IOD->new;
        my $doc = $iod->read_string($doc1);
        if ($opts->{dies}) {
            dies_ok { $code->($doc) } "dies"
                or return 0;
            return 1;
        } else {
            lives_ok { $code->($doc) } "lives"
                or return 0;
        }
        eq_or_diff $doc->as_string, $doc2, "result";
    };
}

1;
# ABSTRACT: Testing routines for Config::IOD

__END__