Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 20 lines (16 sloc) 389 Bytes
#! /usr/bin/env perl
use strict;
use warnings;
my @OPTS = ('--keep-exit-code', 'pugs');
if (@ARGV) {
my $file = $ARGV[0];
if (! -e $file) {
my $spec = "t/spec/$file";
if (-e $spec) {
$ARGV[0] = $spec;
}
}
}
my $nt = `t/spec/fudge @OPTS @ARGV`;
$ENV{PUGS_USE_EXTERNAL_TEST}=1;
system("./Pugs/pugs", "-IPugs/ext/Test/lib", split ' ', $nt);
Jump to Line
Something went wrong with that request. Please try again.