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

comparison dotest_coverage.pl @ 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
comparison
equal deleted inserted replaced
11:ee60403fc119 12:a6c212177267
4 use File::Find; 4 use File::Find;
5 5
6 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest"; 6 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
7 my $MOAR = "/mnt/dalmore-home/one/src/Perl6/MoarVM/moar"; 7 my $MOAR = "/mnt/dalmore-home/one/src/Perl6/MoarVM/moar";
8 my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp"; 8 my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp";
9 our $sum_tests =0; 9 my $sum_tests =0;
10 our $sum_ok = 0; 10 my $sum_ok = 0;
11 11
12 sub coverage_test { 12 sub coverage_test {
13 my $filename = $_; 13 my $filename = $_;
14 return if ($filename !~ /\.moarvm/); 14 return if ($filename !~ /\.moarvm/);
15 15
24 if ($line =~ /ok \d+/){ 24 if ($line =~ /ok \d+/){
25 $counter++; 25 $counter++;
26 } 26 }
27 } 27 }
28 28
29 $sum_ok += $counter; 29 if ($counter && $end){
30 $sum_tests += $end; 30 $sum_ok += $counter;
31 $sum_tests += $end;
32 }
31 } 33 }
32 34
33 find(\&coverage_test,$top_dir); 35 find(\&coverage_test,$top_dir);
34 36
35 print "ok ==> $sum_ok\n"; 37 print "ok ==> $sum_ok\n";