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

changeset 14:2e4c952bcdfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 27 Nov 2018 13:05:50 +0900
parents 5bf045527a94 (current diff) a6c212177267 (diff)
children 6c1384a939a0
files
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/dotest_coverage.pl	Tue Nov 27 13:05:20 2018 +0900
+++ b/dotest_coverage.pl	Tue Nov 27 13:05:50 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);