Mercurial > hg > Members > anatofuz > nqp-cbc-tools

changeset 12:a6c212177267

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bug fix
author anatofuz
date Sat, 10 Nov 2018 08:08:06 +0900
parents ee60403fc119
children 2e4c952bcdfb
files dotest_coverage.pl
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/dotest_coverage.pl	Fri Nov 09 20:45:02 2018 +0900
+++ b/dotest_coverage.pl	Sat Nov 10 08:08:06 2018 +0900
@@ -6,8 +6,8 @@
 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
 my $MOAR = "/mnt/dalmore-home/one/src/Perl6/MoarVM/moar";
 my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp";
-our $sum_tests =0;
-our $sum_ok = 0;
+my $sum_tests =0;
+my $sum_ok = 0;
 
 sub coverage_test {
     my $filename = $_;
@@ -26,8 +26,10 @@
         }
     }
 
-    $sum_ok += $counter;
-    $sum_tests += $end;
+    if ($counter && $end){
+        $sum_ok += $counter;
+        $sum_tests += $end;
+    }
 }
 
 find(\&coverage_test,$top_dir);