Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: RELEASE_0_0_13
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (19 sloc) 0.651 kb
#! perl -w
# $Id$
use strict;
use lib 'lib';
use Test::Harness qw(runtests);
#
# Suck the switches into the TEST_PROG_ARGS evar:
#
$ENV{RUNNING_MAKE_TEST} = grep { $_ eq '--running-make-test' } @ARGV;
@ARGV = grep { $_ ne '--running-make-test' } @ARGV;
$ENV{TEST_PROG_ARGS} = join(' ', grep { /^-/ } @ARGV);
@ARGV = grep { ! /^-/ } @ARGV;
$ENV{PARROT_QUICKTEST} = grep $_ eq 'quick', @ARGV;
@ARGV = grep $_ ne 'quick', @ARGV;
# Pass in a list of tests to run on the command line, else run all the tests.
my @tests = @ARGV
? map { glob $_ } @ARGV
: map { glob( "t/$_/*.t" ) } qw(src op pmc native_pbc) ;
runtests(@tests);
Jump to Line
Something went wrong with that request. Please try again.