Author: jkeenan
Date: Sat Jul 19 16:12:21 2008
New Revision: 29615
Modified:
branches/parallel/lib/Parrot/Configure/Options/Test.pm
Log:
Provide message re elapsed time of preconfiguration tests.
Modified: branches/parallel/lib/Parrot/Configure/Options/Test.pm
==============================================================================
--- branches/parallel/lib/Parrot/Configure/Options/Test.pm (original)
+++ branches/parallel/lib/Parrot/Configure/Options/Test.pm Sat Jul 19
16:12:21 2008
@@ -85,6 +85,7 @@
my $self = shift;
my @preconfiguration_tests = @_;
if ( $self->get_run('run_configure_tests') ) {
+ my $start = time();
print "As you requested, we'll start with some tests of the
configuration tools.\n\n";
runtests(@preconfiguration_tests) or die
@@ -95,6 +96,10 @@
Parrot's configuration tools will work as intended.
TEST
+ my $end =time();
+ print scalar(@preconfiguration_tests),
+ " t/configure and t/step tests took ",
+ ($end - $start), " seconds.\n";
}
return 1;
}
