1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!perl -T
use strict;
use warnings;
use 5.010;
use Test::More;
use Test::Differences;
if ($^O ne 'dos' and $^O ne 'os2' and $^O ne 'MSWin32' ) {
plan skip_all => 'these tests are irrelevant on non-dos-ish systems';
} else {
plan tests => 11;
}
delete @ENV{qw{PATH ENV IFS CDPATH BASH_ENV}};
my $d = 't/win-dummy';
my @files = qw[bar.com bla.bat foo.exe pfff.scr puff.pif unix.sh];
my @exe_files = qw[bar.com bla.bat foo.exe];
use_ok( 'Run::Parts' );
# Testing the perl backend
run_test_on_rp($d, 'perl');
# Testing the automatically chosen backend
run_test_on_rp($d);
sub run_test_on_rp {
my ($d, $desc) = @_;
my $rp = Run::Parts->new($d, $desc);
$desc ||= 'default';
ok($rp, 'Run::Parts->new($desc) returned non-nil');
# List files
eq_or_diff([$rp->list],
[map { "$d/$_" } @files],
"Returns list of files in array context ($desc)");
eq_or_diff(''.$rp->list,
join('', map { "$d/$_\n" } @files),
"Returns list of files in string context ($desc)");
# List executable files
eq_or_diff([$rp->test],
[map { "$d/$_" } @exe_files],
"Returns list of executables in array context ($desc)");
eq_or_diff(''.$rp->test,
join('', map { "$d/$_\n" } @exe_files),
"Returns list of executables in string context ($desc)");
}
|
