File Coverage

blib/lib/Test/DeepFile.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	43	43	100.0

package Test::DeepFile;

use 5.010000;
use strict;
use warnings;
use Test::More;
use Test::Deep;

use YAML qw (LoadFile DumpFile);

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Test::DeepFile ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
    cmp_deeply_file
);

our $VERSION = '0.003';

our %seen;

sub cmp_deeply_file
{
    die "usage: cmp_deeply_file( expect, name);" unless @_ == 2;
    my ($d1, $name) = @_;
    die "All ready tested $name" if $seen{$name};
    $seen{$name} = 1;
    my $filename = "t/deepfile/$name.data";

    if (-r $filename) {
        my $d2 = LoadFile $filename;
	cmp_deeply($d1, $d2, $name);
    } else {
        mkdir 't/deepfile/';
        DumpFile $filename, $d1;
	pass("Created $filename");
    }
}

1;
__END__