view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

setting1 = [% param1 %]
setting2 = [% param2 %]
TEMPLATE

print $config_fh $config or die $!;
print $tmpl_fh $template or die $!;

close $config_fh;
close $tmpl_fh;

my $output = <<OUTPUT;
setting1 = value1
setting2 = value2
OUTPUT

my $result = test_app( 'App::Rcsync' => [ '--config', $config_filename, '--stdout', 'test1' ] );

eq_or_diff($result->stdout, $output, 'file parsed properly');
is($result->error, undef, 'threw no exceptions');