Skip to content
Browse files

add t/fudgeandrun from niecza++

simplifies testing of individual roast files.
  • Loading branch information...
1 parent dc19a70 commit 30134cf7802c14fcbb2e9b477771f5b792cc29b2 @coke coke committed Aug 15, 2012
Showing with 22 additions and 0 deletions.
  1. +22 −0 t/fudgeandrun
View
22 t/fudgeandrun
@@ -0,0 +1,22 @@
+#! /usr/bin/env perl
+use strict;
+use warnings;
+
+my @OPTS = ('--keep-exit-code', 'rakudo');
+
+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`;
+# uninstalled rakudo doesn't know how to find Test.pm
+# ... or any other modules
+my $pwd = `pwd`; chomp $pwd;
+$ENV{PERL6LIB}="$pwd/lib:.";
+system("./perl6", split ' ', $nt);

0 comments on commit 30134cf

Please sign in to comment.
Something went wrong with that request. Please try again.