# New Ticket Created by Eric Wilhelm # Please include the string: [perl #45153] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=45153 >
With TAP::Parser, the attached patch and Parrot/TAP/Harness.pm in the
current directory[1], the tests can be run as:
runtests --harness Parrot::TAP::Harness $(perl t/harness --files)
Running all of the tests is easy,
runtests --harness Parrot::TAP::Harness -r t language
but the t/harness tendency to only run ~80% of the tests means that will
take a very long time (and fail more tests.)
[1] One of many caveats.
See the pod in Harness.pm for observations, caveats, and recommended
actions. "Coming soon" changes in TAP::Harness will cleanup the
TAP::Harness "API and features" issues.
--Eric
--
If the collapse of the Berlin Wall had taught us anything, it was that
socialism alone was not a sustainable economic model.
--Robert Young
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
Index: t/harness
===================================================================
--- t/harness (revision 20774)
+++ t/harness (working copy)
@@ -113,6 +113,9 @@
$use_test_run ||= $ENV{'PARROT_USE_TEST_RUN'};
+my $print_files = grep { $_ eq '--files' } @ARGV;
[EMAIL PROTECTED] = grep { $_ ne '--files' } @ARGV;
+
# Suck the short options into the TEST_PROG_ARGS evar:
my %opts;
getopts('wgjPCSefbvdr?hO:D:', \%opts);
@@ -189,6 +192,11 @@
my @tests = @ARGV ? map { glob( $_ ) } @ARGV : @default_tests;
+if($print_files) {
+ print join("\n", @tests), "\n";
+ exit;
+}
+
if ($use_test_run) {
require Test::Run::CmdLine::Iface;
my $test_run =
Harness.pm
Description: application/perl-module
