@@ -55,10 +55,16 @@ sub runtest {
5555
5656 chdir($test);
5757
58+ my $startTime = time();
5859 print "Running $test...\n";
5960 my $got = `$sandbox ./run @idrOpts`;
6061 my $exp = `cat expected`;
6162
63+ my $endTime = time();
64+ my $elapsedTime = $endTime - $startTime;
65+
66+ print "Duration of $test was $elapsedTime\n";
67+
6268 # Allow for variant expected output for tests by overriding expected
6369 # when there is an expected.<os> file in the test.
6470 # This should be the exception but there are sometimes valid reasons