#!/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 | Type | Size | Permission | Actions |
|---|---|---|---|---|
| bin | Folder | 0755 |
|
|
| harness-hook | Folder | 0755 |
|
|
| t | Folder | 0755 |
|
|
| README | File | 2.1 KB | 0644 |
|
| analyze_tests.pl | File | 2.04 KB | 0644 |
|
| my_exec | File | 387 B | 0755 |
|
| silent-harness.pl | File | 367 B | 0644 |
|
| test_urls.txt | File | 45 B | 0644 |
|