view release on metacpan or  search on metacpan

t/01spew_slurp.t  view on Meta::CPAN

#!perl -w
use strict;
use Test::More tests => 10;
use File::Path qw( rmtree );

if (eval { require Test::Differences; 1 }) {
    no warnings 'redefine';
    *is_deeply = \&Test::Differences::eq_or_diff;
}


my $path = 't/sample';
my $tree = {
    subdir => {},
    file   => 'this is a test file',
};

use_ok qw( File::Slurp::Tree );