Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 55 lines (46 sloc) 0.82 kB
0fa3c27 [fudge] move fudge/fudgeall to t/spec to make easy to check out with …
lwall authored
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
1a3b0cc [spec tests] allow fudge and fudgeall to process arguments
particle authored
6 my @opts;
7 while( $_ = $ARGV[0], /^-/ ) {
8 shift;
9 last if /^--$/;
10 push @opts, $_;
11 }
12
0fa3c27 [fudge] move fudge/fudgeall to t/spec to make easy to check out with …
lwall authored
13 my $platform = shift;
14
15 use Cwd;
16 my $top = getcwd;
17 my $fudge;
18
19 TOP:
20 while ($top) {
21 for ("$top/fudge",
22 "$top/spec/fudge",
23 "$top/t/spec/fudge",
24 "$top/perl6/t/spec/fudge",
25 "$top/languages/perl6/t/spec/fudge",
26 ) {
27 if (-f $_) {
28 $fudge = $_;
29 last TOP;
30 }
31 }
32 $top =~ s!(.*)/(.*)!!;
33 }
34 if (not $fudge) {
35 for (split(/[:;]/, $ENV{PATH})) {
36 if (-f "$_/fudge") {
37 $fudge = "$_/fudge";
38 last;
39 }
40 }
41 }
42
43 print join(' ',
44 map {
45 my $pick;
46 if ( $_ !~ m/\.$platform$/ ) {
4b5dc4f Added quotes in case fudge path has spaces. (Tested on Linux and Win3…
deven authored
47 my $cmd = "$^X \"$fudge\" @opts $platform $_";
1a3b0cc [spec tests] allow fudge and fudgeall to process arguments
particle authored
48 chomp( $pick = `$cmd` );
0fa3c27 [fudge] move fudge/fudgeall to t/spec to make easy to check out with …
lwall authored
49 }
50 defined $pick ? $pick : ();
51 } @ARGV
52 ), "\n";
53
54
Something went wrong with that request. Please try again.