55 if ($sh_calls > 0) { |
55 if ($sh_calls > 0) { |
56 my $percent = $sh_succeeded / $sh_calls * 100; |
56 my $percent = $sh_succeeded / $sh_calls * 100; |
57 my $time = $sh_time / 1000; |
57 my $time = $sh_time / 1000; |
58 my $avg_time = $time / $sh_succeeded; |
58 my $avg_time = $time / $sh_succeeded; |
59 print FILE "Total number of sledgehammer calls: $sh_calls\n"; |
59 print FILE "Total number of sledgehammer calls: $sh_calls\n"; |
60 print FILE "Number of successful sledgehammer calls: $sh_succeeded\n"; |
60 print FILE "Number of successful sledgehammer calls: $sh_succeeded\n"; |
61 printf FILE "Percentage of successful sledgehammer calls: %.0f%%\n", $percent; |
61 printf FILE "Success rate: %.0f%%\n", $percent; |
62 printf FILE "Total time for successful sledgehammer calls: %.3f seconds\n", $time; |
62 printf FILE "Total time for successful sledgehammer calls: %.3f seconds\n", $time; |
63 printf FILE "Average time for successful sledgehammer calls: %.3f seconds\n\n", $avg_time; |
63 printf FILE "Average time for successful sledgehammer calls: %.3f seconds\n\n", $avg_time; |
64 } |
64 } |
65 |
65 |
66 if ($metis_calls > 0) { |
66 if ($metis_calls > 0) { |
67 my $percent = $metis_succeeded / $metis_calls * 100; |
67 my $percent = $metis_succeeded / $metis_calls * 100; |
68 my $time = $metis_time / 1000; |
68 my $time = $metis_time / 1000; |
69 my $avg_time = $time / $metis_succeeded; |
69 my $avg_time = $time / $metis_succeeded; |
|
70 my $metis_exc = $sh_succeeded - $metis_succeeded - $metis_timeout; |
70 print FILE "Total number of metis calls: $metis_calls\n"; |
71 print FILE "Total number of metis calls: $metis_calls\n"; |
71 print FILE "Number of successful metis calls: $metis_succeeded\n"; |
72 print FILE "Number of successful metis calls: $metis_succeeded\n"; |
72 print FILE "Number of metis time outs: $metis_time_out\n"; |
73 print FILE "Number of metis timeouts: $metis_timeout\n"; |
73 printf FILE "Percentage of successful metis calls: %.0f%%\n", $percent; |
74 print FILE "Number of metis exceptions: $metis_exc\n"; |
|
75 printf FILE "Success rate: %.0f%%\n", $percent; |
74 printf FILE "Total time for successful metis calls: %.3f seconds\n", $time; |
76 printf FILE "Total time for successful metis calls: %.3f seconds\n", $time; |
75 printf FILE "Average time for successful metis calls: %.3f seconds\n", $avg_time; |
77 printf FILE "Average time for successful metis calls: %.3f seconds\n", $avg_time; |
76 } |
78 } |
77 |
79 |
78 close(FILE); |
80 close(FILE); |