view release on metacpan or  search on metacpan

t/10_stouch.t  view on Meta::CPAN

is($s3->get('Template'), undef, "'Template' is ok");
is($s3->get('TemplateDir'), $TEMPLATE_DIR, "'TemplateDir' is ok");
is_deeply($s3->get('TemplateParam'), {}, "'TemplateParam' is ok");
is_deeply($s2->get('Files'), ['t.dir'], "'Files' is ok");

my (@il, @tl);
find(sub { push @il, $_ }, File::Spec->catfile(qw(t data ideality t.dir)));
find(sub { push @tl, $_ }, 't.dir');

is_deeply(\@tl, \@il, "Generated directory tree looks ok");

done_testing();

END {
	unlink      "t.pl"  if -e "t.pl";
	unlink      "t.h"   if -e "t.h";
	remove_tree "t.dir" if -e "t.dir";
}