view release on metacpan or  search on metacpan

t/05_bin.t  view on Meta::CPAN

ok(-d $data, "Data dir found in $RealBin: $data");
ok(-d $bind, "Bin dir found in $RealBin: $bind");

my $bin  = File::Spec->catfile($bind, 'cavaspazi');

my $cmd = qq($^X $bin  -r -n "$data"/*);
ok(defined $cmd, "Running: $cmd");
my @out = `$cmd`;

ok($? == 0, "Program executed without errors");
ok($out[0] =~/^#mv/, "Output starts with #mv: " . $out[0]);
ok(scalar @out == 2, "Got two output lines: " . scalar @out);
done_testing();