src/HOL/Mirabelle/lib/scripts/report.pl
changeset 32509 9da37876874d
parent 32508 212530b16e6e
child 32517 bfe7573a239b
equal deleted inserted replaced
32508:212530b16e6e 32509:9da37876874d
    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 "Percentage of successful sledgehammer calls: %.0f%%\n", $percent;
    62   print FILE "Total time for successful sledgehammer calls: $time seconds\n";
    62   printf FILE "Total time for successful sledgehammer calls: %.3f seconds\n", $time;
    63   print FILE "Average time for successful sledgehammer calls: $avg_time seconds\n\n";
    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   print FILE "Total number of metis calls: $metis_calls\n";
    70   print FILE "Total number of metis calls: $metis_calls\n";
    71   print FILE "Number of successful metis calls: $metis_succeeded\n";
    71   print FILE "Number of successful metis calls: $metis_succeeded\n";
    72   print FILE "Number of metis time outs: $metis_time_out\n";
    72   print FILE "Number of metis time outs: $metis_time_out\n";
    73   printf FILE "Percentage of successful metis calls: %.0f%%\n", $percent;
    73   printf FILE "Percentage of successful metis calls: %.0f%%\n", $percent;
    74   print FILE "Total time for successful metis calls: $time seconds\n";
    74   printf FILE "Total time for successful metis calls: %.3f seconds\n", $time;
    75   print FILE "Average time for successful metis calls: $avg_time seconds\n";
    75   printf FILE "Average time for successful metis calls: %.3f seconds\n", $avg_time;
    76 }
    76 }
    77 
    77 
    78 close(FILE);
    78 close(FILE);