Author: jkeenan
Date: Mon Jan 28 15:49:40 2008
New Revision: 25320
Modified:
trunk/t/harness
Log:
Eliminate use of Test::Run in t/harness. This eliminiates t/harness CL option
'--tr' as well.
Modified: trunk/t/harness
==============================================================================
--- trunk/t/harness (original)
+++ trunk/t/harness Mon Jan 28 15:49:40 2008
@@ -114,11 +114,6 @@
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);
@@ -143,7 +138,6 @@
--core-tests
--runcore-tests
--html
- --tr ... run using Test::Run
EOF
exit;
}
@@ -236,19 +230,7 @@
# line or from @default tests
my @tests = map { glob( $_ ) } (@ARGV ? @ARGV : @default_tests);
-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) {
+if (!$html) {
Test::Harness::runtests(@tests);
} else {
my @smoke_config_vars = qw(
