D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
Filename :
my_exec
back
Copy
#!/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): $!";
Name
Size
Last Modified
Owner
Permissions
Actions
bin
Dir
July 28 2023 2:57:22
root
0755
harness-hook
Dir
July 28 2023 2:57:22
root
0755
t
Dir
July 28 2023 2:57:22
root
0755
README
2.104
KB
July 07 2013 9:45:42
root
0644
analyze_tests.pl
2.023
KB
October 13 2019 12:42:34
root
0644
my_exec
0.378
KB
September 11 2016 8:19:30
root
0755
silent-harness.pl
0.341
KB
October 13 2019 12:42:34
root
0644
test_urls.txt
0.044
KB
July 07 2013 9:45:42
root
0644
2017 © D7net | D704T team