Navigation Menu

Skip to content

Commit

Permalink
Add the wallclock runtime of the test suite to the end of the run
Browse files Browse the repository at this point in the history
I would rather get the cuser time, but Parrot does not yet support that. I
have created TT#1379 (http://trac.parrot.org/parrot/ticket/1379) to track this.
  • Loading branch information
leto committed Dec 18, 2009
1 parent 05acfec commit 0da1fcc
Showing 1 changed file with 10 additions and 0 deletions.
10 changes: 10 additions & 0 deletions t/harness.pir
Expand Up @@ -79,7 +79,9 @@ HELP
.local pmc opts
.local string exec
.local int argc
.local num start_time, end_time

start_time = time
$S0 = shift argv # get rid of harness.pir in the args list

argc = elements argv
Expand Down Expand Up @@ -194,6 +196,14 @@ HELP
print total_files
say " files"
over:
end_time = time
$N1 = end_time - start_time
print "Runtime: "
$P0 = new 'ResizablePMCArray'
$P0[0] = $N1
$S1 = sprintf "%.4f", $P0
print $S1
say " seconds"
.return()
.end

Expand Down

0 comments on commit 0da1fcc

Please sign in to comment.