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

comparison dotest_coverage.pl @ 10:4f704a718752

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add coverage
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 09 Nov 2018 17:47:21 +0900
parents
children ee60403fc119
comparison
equal deleted inserted replaced
9:1fda58f3b60f 10:4f704a718752
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use File::Find;
5
6 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
7 my $MOAR = "/mnt/dalmore-home/one/src/Perl6/moar";
8 my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp";
9 our $sum_tests =0;
10 our $sum_ok = 0;
11
12 sub coverage_test {
13 my $filename = $_;
14 return if ($filename !~ /\.moarvm/);
15
16 my ($start,$end,$counter);
17
18 for my $line (`$MOAR --libpath=${NQP_ORIGINAL}/gen/moar/stage2 $filename`){
19 if ($line =~ (\d+)\.\.(\d+)){
20 $start = $1;
21 $end = $2;
22 }
23
24 if ($lien =~ /ok \d+/){
25 $counter++;
26 }
27 }
28
29 $sum_ok += $counter;
30 $sum_tests += $end;
31 }
32
33 find(\&coverage_test,$top_dir);
34
35 print "ok ==> $sum_ok\n";
36 print "total ==> $sum_tests\n";
37
38 my $parset = $sum_ok/$sum_tests;
39
40 $parset *=100;
41
42 print "parsent $parset%\n";