# HG changeset patch
# User Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1541753241 -32400
# Node ID 4f704a718752f9905ccd244ad47fd759ebba9343
# Parent  1fda58f3b60fc38b9bb1c6e1d5b66083fbd85607
add coverage

diff -r 1fda58f3b60f -r 4f704a718752 dotest_coverage.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dotest_coverage.pl	Fri Nov 09 17:47:21 2018 +0900
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use File::Find;
+
+my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
+my $MOAR = "/mnt/dalmore-home/one/src/Perl6/moar";
+my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp";
+our $sum_tests =0;
+our $sum_ok = 0;
+
+sub coverage_test {
+    my $filename = $_;
+    return  if ($filename !~ /\.moarvm/);
+
+    my ($start,$end,$counter);
+
+    for my $line (`$MOAR  --libpath=${NQP_ORIGINAL}/gen/moar/stage2 $filename`){
+        if ($line =~ (\d+)\.\.(\d+)){
+            $start = $1;
+            $end = $2;
+        }
+
+        if ($lien =~ /ok \d+/){
+            $counter++;
+        }
+    }
+
+    $sum_ok += $counter;
+    $sum_tests += $end;
+}
+
+find(\&coverage_test,$top_dir);
+
+print "ok ==> $sum_ok\n";
+print "total ==> $sum_tests\n";
+
+my $parset = $sum_ok/$sum_tests;
+
+$parset *=100;
+
+print "parsent $parset%\n";