Lines 61-66
Usage:
Link Here
|
61 |
--dest-path|-d PATH Where you want to build the hierarchy of tests |
61 |
--dest-path|-d PATH Where you want to build the hierarchy of tests |
62 |
scripts and modules. Leave empty to use a temporary |
62 |
scripts and modules. Leave empty to use a temporary |
63 |
directory (will be removed automatically) |
63 |
directory (will be removed automatically) |
|
|
64 |
--ignore PATTERN Ignore files with a name matching the specified |
65 |
pattern (note that this will only match on a |
66 |
single component of a filename so you cannot |
67 |
choose to ignore only one of two files with |
68 |
identical names). |
69 |
Must be a valid regular expression |
64 |
--verbose|-v Print some progress informations |
70 |
--verbose|-v Print some progress informations |
65 |
--help|-h Print this help message |
71 |
--help|-h Print this help message |
66 |
|
72 |
|
Lines 76-86
my $src_path;
Link Here
|
76 |
my $dest_path; |
82 |
my $dest_path; |
77 |
my $verbose = 0; |
83 |
my $verbose = 0; |
78 |
my $help = 0; |
84 |
my $help = 0; |
|
|
85 |
my @ignore; |
86 |
my $ignore_regex; |
79 |
|
87 |
|
80 |
my $options_ok = GetOptions( |
88 |
my $options_ok = GetOptions( |
81 |
'src-path=s' => \$src_path, |
89 |
'src-path=s' => \$src_path, |
82 |
'dest-path=s' => \$dest_path, |
90 |
'dest-path=s' => \$dest_path, |
83 |
'verbose' => \$verbose, |
91 |
'verbose' => \$verbose, |
|
|
92 |
'ignore=s' => \@ignore, |
84 |
'help' => \$help |
93 |
'help' => \$help |
85 |
); |
94 |
); |
86 |
|
95 |
|
Lines 89-94
if ($help) {
Link Here
|
89 |
exit 0; |
98 |
exit 0; |
90 |
} |
99 |
} |
91 |
|
100 |
|
|
|
101 |
if (@ignore) { |
102 |
$ignore_regex = '(' . join ('|', @ignore) . ')'; |
103 |
} |
104 |
|
92 |
if (!$src_path) { |
105 |
if (!$src_path) { |
93 |
$src_path = $src_path_default; |
106 |
$src_path = $src_path_default; |
94 |
} |
107 |
} |
Lines 133-138
find( sub {
Link Here
|
133 |
return $File::Find::prune = 1 if ($_ =~ /^$dest_path$/); |
146 |
return $File::Find::prune = 1 if ($_ =~ /^$dest_path$/); |
134 |
return $File::Find::prune = 1 if ($_ =~ /^t$/); |
147 |
return $File::Find::prune = 1 if ($_ =~ /^t$/); |
135 |
return $File::Find::prune = 1 if ($_ =~ /^blib$/); |
148 |
return $File::Find::prune = 1 if ($_ =~ /^blib$/); |
|
|
149 |
return $File::Find::prune = 1 if ($ignore_regex and $_ =~ /$ignore_regex/); |
136 |
return unless $_ =~ m/\.pm$/; |
150 |
return unless $_ =~ m/\.pm$/; |
137 |
my $file = $File::Find::name; |
151 |
my $file = $File::Find::name; |
138 |
$file =~ s#^$src_path##; |
152 |
$file =~ s#^$src_path##; |
Lines 258-263
my @scripts;
Link Here
|
258 |
find( sub { |
272 |
find( sub { |
259 |
return $File::Find::prune = 1 if ($_ =~ /^t$/); |
273 |
return $File::Find::prune = 1 if ($_ =~ /^t$/); |
260 |
return $File::Find::prune = 1 if ($_ =~ /^$dest_path$/); |
274 |
return $File::Find::prune = 1 if ($_ =~ /^$dest_path$/); |
|
|
275 |
return $File::Find::prune = 1 if ($ignore_regex and $_ =~ /$ignore_regex/); |
261 |
return unless $_ =~ m/\.pl$/; |
276 |
return unless $_ =~ m/\.pl$/; |
262 |
my $file = $File::Find::name; |
277 |
my $file = $File::Find::name; |
263 |
$file =~ s#^$src_path##; |
278 |
$file =~ s#^$src_path##; |
Lines 389-391
my $includes_param = join(' ', map { "-I$_" } @includedirs);
Link Here
|
389 |
my $scripts_param = join(' ', map { "$dest_path/$_" } @scripts_to_run); |
404 |
my $scripts_param = join(' ', map { "$dest_path/$_" } @scripts_to_run); |
390 |
|
405 |
|
391 |
system("prove $includes_param $scripts_param"); |
406 |
system("prove $includes_param $scripts_param"); |
392 |
- |
407 |
exit $? >> 8; |