/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
/usr/share/doc/perl-Test-Harness/examples
mkdir
upload
Name
Size
Mode
Actions
bin/
-
0755
rm
harness-hook/
-
0755
rm
t/
-
0755
rm
analyze_tests.pl
2072
0644
edit
dl
rm
my_exec
387
0755
edit
dl
rm
README
2155
0644
edit
dl
rm
silent-harness.pl
349
0644
edit
dl
rm
test_urls.txt
45
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-Test-Harness/examples/my_exec
(387B)
#!/usr/bin/perl use strict; use warnings; my $url = qr/^http/; my $prog = shift; if ( $prog !~ $url && !-e $prog ) { die "Cannot find ($prog)"; } my @exec; if ( 't/ruby.t' eq $prog ) { push @exec => '/usr/bin/ruby', $prog; } elsif ( $prog =~ $url ) { push @exec => 'bin/test_html.pl', $prog; } else { push @exec, $prog; } exec @exec or die "Cannot (exec @exec): $!";
Save
cmd:
run