Attached patch.
Parrot Assembler via RT wrote:
Greetings,
This message has been automatically generated in response to the
creation of a parrotbug regarding:
"Make smoke tests give progress indication"
There is no need to reply to this message right now. Your ticket has been
assigned an ID of [perl #37891].
Please include the string:
[perl #37891]
In the subject line of all future correspondence about this issue. To do so,
you may reply to this message.
Thank you,
parrotbug
https://rt.perl.org/rt3/Ticket/Display.html?id=37891
-------------------------------------------------------------------------
Received: (qmail 2946 invoked by alias); 11 Dec 2005 21:46:40 -0000
Received: (qmail 2939 invoked from network); 11 Dec 2005 21:46:40 -0000
Received: from localhost (HELO la.mx.develooper.com) (127.0.0.1) by localhost
with SMTP; 11 Dec 2005 21:46:40 -0000
Received: (qmail 2936 invoked by alias); 11 Dec 2005 21:46:40 -0000
Received: from la.mx.develooper.com (HELO x1.develooper.com) (63.251.223.176)
by la.mx.develooper.com (qpsmtpd/0.28) with SMTP; Sun, 11 Dec 2005 13:46:33
-0800
Received: (qmail 2850 invoked by uid 225); 11 Dec 2005 21:46:28 -0000
Received: (qmail 2845 invoked by alias); 11 Dec 2005 21:46:28 -0000
Received: from eremita.di.uminho.pt (HELO eremita.di.uminho.pt)
(193.136.19.131) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Sun, 11 Dec
2005 13:46:20 -0800
Received: by eremita.di.uminho.pt (Postfix, from userid 1000) id BE805157050;
Sun, 11 Dec 2005 21:47:40 +0000 (WET)
Delivered-To: [EMAIL PROTECTED]
Delivered-To: [EMAIL PROTECTED]
Delivered-To: [EMAIL PROTECTED]
Subject: Make smoke tests give progress indication
X-Spam-Status: No, hits=-2.6 required=8.0 tests=BAYES_00
Return-Path: <[EMAIL PROTECTED]>
X-Spam-Check-BY: la.mx.develooper.com
X-Old-Spam-Status: No, hits=-2.6 required=8.0 tests=BAYES_00
Date: Sun, 11 Dec 2005 21:47:40 +0000 (WET)
Received-SPF: neutral (x1.develooper.com: local policy)
Received-SPF: pass (x1.develooper.com: local policy)
X-Old-Spam-Check-BY: la.mx.develooper.com
Message-ID: <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
From: [EMAIL PROTECTED] (Alberto Manuel Brandao Simoes)
X-RT-Original-Encoding: ascii
content-type: text/plain; charset="utf-8"
---
osname= linux
osvers= 2.4.26
arch= i486-linux
cc= cc
---
Flags:
category=core
severity=none
ack=no
---
Running make smoke as it is at the moment is too much boring as we don't have
any progress indication at all.
We requested Test::TAP::HTMLMatrix authors help (gaal and nothingmuch) and they
promise us a new release of Test::TAP::Model real-soon-now (I wonder how much
time this is).
At the moment, just changed added "evil" code. It should be changed as soon as
the new release (Test::TAP::Model 0.05) is out.
I'll attach the diff in the RT mail.
Cheers
Alberto
---
Summary of my parrot 0.4.0 (r10446) configuration:
configdate='Sun Dec 11 17:43:04 2005'
Platform:
osname=linux, archname=i486-linux
jitcapable=1, jitarchname=i386-linux,
jitosname=LINUX, jitcpuarch=i386
execcapable=1
perl=/usr/bin/perl5.8.5
Compiler:
cc='cc', ccflags=' -pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -D_GNU_SOURCE',
Linker and Libraries:
ld='cc', ldflags=' -L/usr/local/lib',
cc_ldflags='',
libs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lrt -lgmp'
Dynamic Linking:
share_ext='.so', ld_share_flags='-shared -L/usr/local/lib -fPIC',
load_ext='.so', ld_load_flags='-shared -L/usr/local/lib -fPIC'
Types:
iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
ptrsize=4, ptr_alignment=1 byteorder=1234,
nv=double, numvalsize=8, doublesize=8
---
Environment:
HOME LANG LANGUAGE LC_ALL LC_COLLATE LD_LIBRARY_PATH
LOGDIR PATH PERL5_CPANPLUS_CONFIG SHELL
--
Alberto Simões - Departamento de Informática - Universidade do Minho
Campus de Gualtar - 4710-057 Braga - Portugal
Index: t/harness
===================================================================
--- t/harness (revision 10449)
+++ t/harness (working copy)
@@ -158,28 +158,52 @@
};
die "You must have Test::TAP::HTMLMatrix installed.\n\n$@" if $@;
- my $start = time();
- my $model = Test::TAP::Model::Visual->new_with_tests(@tests);
- my $end = time();
+ ## FIXME: ###
+ # This is a temporary solution until Test::TAP::Model version
+ # 0.05. At that point, this function should be removed, and the
+ # verbose line below should be uncommented.
+ {
+ no warnings qw/redefine once/;
+ *Test::TAP::Model::run_tests = sub {
+ my $self = shift;
- my $duration = $end - $start;
+ $self->_init;
+ $self->{meat}{start_time} = time;
- my $v = Test::TAP::HTMLMatrix->new(
+ foreach my $file (@_) {
+ print STDERR "- $file\n";
+ $self->run_test($file);
+ }
+
+ $self->{meat}{end_time} = time;
+ };
+
+ my $start = time();
+ my $model = Test::TAP::Model::Visual->new();
+ # $model->set_verbose();
+ $model->run_tests(@tests);
+
+ my $end = time();
+
+ my $duration = $end - $start;
+
+ my $v = Test::TAP::HTMLMatrix->new(
$model,
join("\n",
"duration: $duration",
"branch: unknown",
"harness_args: " . (($args) ? $args : "N/A"),
map { "$_: $PConfig{$_}" } sort @smoke_config_vars),
- );
+ );
- $v->has_inline_css(1); # no separate css file
+ $v->has_inline_css(1); # no separate css file
- open HTML, ">", "smoke.html";
- print HTML $v->html;
- close HTML;
+ open HTML, ">", "smoke.html";
+ print HTML $v->html;
+ close HTML;
- print "smoke.html has been generated.\n";
+ print "smoke.html has been generated.\n";
+ }
}
=head1 HISTORY
