@@ -49,7 +49,7 @@ sub sandbox_path {
4949# output and report results.
5050#
5151sub runtest {
52− my ($test, $update) = @_;
52+ my ($test, $update, $showTime) = @_;
5353
5454 my $sandbox = sandbox_path($test);
5555
@@ -63,7 +63,9 @@ sub runtest {
6363 my $endTime = time();
6464 my $elapsedTime = $endTime - $startTime;
6565
66− printf("Duration of $test was %d\n", $elapsedTime);
66+ if ($showTime == 1 ){
67+ printf("Duration of $test was %d\n", $elapsedTime);
68+ }
6769
6870 # Allow for variant expected output for tests by overriding expected
6971 # when there is an expected.<os> file in the test.
@@ -161,15 +163,17 @@ else {
161163
162164# Run the tests.
163165
164−my $update = 0;
165−my $diff = 0;
166−my $show = 0;
167−my $usejava = 0;
166+my $update = 0;
167+my $diff = 0;
168+my $show = 0;
169+my $usejava = 0;
170+my $showTime = 0;
168171
169172while (my $opt = shift @opts) {
170173 if ($opt eq "-u") { $update = 1; }
171174 elsif ($opt eq "-d") { $diff = 1; }
172175 elsif ($opt eq "-s") { $show = 1; }
176+ elsif ($opt eq "-t") { $showTime = 1; }
173177 else { push(@idrOpts, $opt); }
174178}
175179
@@ -181,7 +185,7 @@ my $startTime = time();
181185
182186foreach my $test (@tests) {
183187 if ($diff == 0 && $show == 0) {
184− runtest($test,$update);
188+ runtest($test,$update,$showTime);
185189 }
186190 else {
187191 chdir $test;
@@ -203,6 +207,8 @@ foreach my $test (@tests) {
203207my $endTime = time();
204208my $elapsedTime = $endTime - $startTime;
205209
206−printf("Duration of Entire Test Suite was %d\n", $elapsedTime);
210+if ($showTime == 1) {
211+ printf("Duration of Entire Test Suite was %d\n", $elapsedTime);
212+}
207213
208214exit $exitstatus;