Author: coke
Date: Sat Mar 17 09:09:24 2007
New Revision: 17535
Modified:
trunk/ (props changed)
trunk/t/harness
Log:
#41877 ([PATCH] Allow to use Test::Run as a Harness)
Courtesy of <shlomif at iglu dot org dot il>
Modified: trunk/t/harness
==============================================================================
--- trunk/t/harness (original)
+++ trunk/t/harness Sat Mar 17 09:09:24 2007
@@ -109,6 +109,11 @@
my $run_exec = grep { $_ eq '--run-exec' } @ARGV;
@ARGV = grep { $_ ne '--run-exec' } @ARGV;
+my $use_test_run = grep { $_ eq '--tr' } @ARGV;
[EMAIL PROTECTED] = grep { $_ ne '--tr' } @ARGV;
+
+$use_test_run ||= $ENV{'PARROT_USE_TEST_RUN'};
+
# Suck the short options into the TEST_PROG_ARGS evar:
my %opts;
getopts('wgjPCSefbvdr?hO:D:', \%opts);
@@ -131,6 +136,7 @@
--running-make-test
--gc-debug
--html
+ --tr ... run using Test::Run
EOF
exit;
}
@@ -168,7 +174,19 @@
my @tests = @ARGV ? map { glob( $_ ) } @ARGV : @default_tests;
-unless ($html) {
+if ($use_test_run) {
+ require Test::Run::CmdLine::Iface;
+ my $test_run =
+ Test::Run::CmdLine::Iface->new(
+ {
+ 'test_files' => [EMAIL PROTECTED],
+ }
+ # 'backend_params' => $self->_get_backend_params(),
+ );
+
+ $test_run->run();
+}
+elsif (!$html) {
Test::Harness::runtests(@tests);
} else {
my @smoke_config_vars = qw(
