changeset 11:ee60403fc119

fix regex
author anatofu
date Fri, 09 Nov 2018 20:45:02 +0900
parents 4f704a718752
children a6c212177267 5bf045527a94
files dotest_coverage.pl logs2.pl
diffstat 2 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/dotest_coverage.pl	Fri Nov 09 17:47:21 2018 +0900
+++ b/dotest_coverage.pl	Fri Nov 09 20:45:02 2018 +0900
@@ -4,7 +4,7 @@
 use File::Find;
 
 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
-my $MOAR = "/mnt/dalmore-home/one/src/Perl6/moar";
+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;
@@ -16,12 +16,12 @@
     my ($start,$end,$counter);
 
     for my $line (`$MOAR  --libpath=${NQP_ORIGINAL}/gen/moar/stage2 $filename`){
-        if ($line =~ (\d+)\.\.(\d+)){
+        if ($line =~ /(\d+)\.\.(\d+)/){
             $start = $1;
             $end = $2;
         }
 
-        if ($lien =~ /ok \d+/){
+        if ($line =~ /ok \d+/){
             $counter++;
         }
     }
--- a/logs2.pl	Fri Nov 09 17:47:21 2018 +0900
+++ b/logs2.pl	Fri Nov 09 20:45:02 2018 +0900
@@ -11,7 +11,7 @@
 open my $ofh, '<', $originlog;
 open my $cfh, '<', $cbclog;
 
-print "Originlog:CbClog\n";
+print "$originlog :$cbclog \n";
 
 while (1){
   my $orig_line;