view release on metacpan or  search on metacpan

t/vs_plain.t  view on Meta::CPAN

use warnings;
my $count;
BEGIN { $count = 40 };
use Test::More tests => $count * 2;
use Filesys::Virtual::Plain;
use Filesys::Virtual::SSH;
use File::Slurp::Tree;
use Cwd;
use Sys::Hostname;

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

# A comparitive test against Filesys::Virtual::Plain, more so I
# understand the api as Filesys::Virtual is low on docs

my $tree = {
    foo => "I r foo\n",
    bar => {
        baz => "I r not foo\n",
    },