@@ -55,10 +55,16 @@ sub runtest {
56 chdir($test);
56 chdir($test);
58+ my $startTime = time();
58 print "Running $test...\n";
59 print "Running $test...\n";
59 my $got = `$sandbox ./run @idrOpts`;
60 my $got = `$sandbox ./run @idrOpts`;
60 my $exp = `cat expected`;
61 my $exp = `cat expected`;
63+ my $endTime = time();
64+ my $elapsedTime = $endTime - $startTime;
66+ print "Duration of $test was $elapsedTime\n";
62 # Allow for variant expected output for tests by overriding expected
68 # Allow for variant expected output for tests by overriding expected
63 # when there is an expected.<os> file in the test.
69 # when there is an expected.<os> file in the test.
64 # This should be the exception but there are sometimes valid reasons
70 # This should be the exception but there are sometimes valid reasons