[Gnash-commit] /srv/bzr/gnash/avm2 r9610: Keep track of the number of tests that are skipped.

[Tom Stellard]

------------------------------------------------------------
revno: 9610
committer: Tom Stellard <address@hidden>
branch nick: gnash_dev
timestamp: Sat 2008-10-11 01:53:08 +0800
message:
  Keep track of the number of tests that are skipped.
modified:
  testsuite/actionscript.all/haxe-swf9/as_to_hx.pl

=== modified file 'testsuite/actionscript.all/haxe-swf9/as_to_hx.pl'
--- a/testsuite/actionscript.all/haxe-swf9/as_to_hx.pl  2008-10-10 16:39:29 
+0000
+++ b/testsuite/actionscript.all/haxe-swf9/as_to_hx.pl  2008-10-10 17:53:08 
+0000
@@ -22,6 +22,7 @@
 
 my $important_string;
 my $skipped = 0;
+my $skipped_tests = 0;
 my %vars;
 
 while(<STDIN>){
@@ -256,6 +257,10 @@
                skip_line();
                next;
        }
+       
+       #Subtract the number of skipped tests from the total passed to 
Dejagnu.totals().
+       $_ =~ 
s/Dejagnu.totals\(\s*(\w+)\s*,(.+)/Dejagnu.totals($1-$skipped_tests,$2/g;
+
        #Print the converted line of code.
        print $_;
 }
@@ -264,12 +269,18 @@
 print "}}\n";
 
 print stderr "$skipped lines were skipped.\n";
+print stderr "$skipped_tests tests were skipped\n";
 
 sub skip_line{
        $skipped++;
        if($important_string){
                print $important_string;
        }
+       #Keep track of the number of tests we skip.
+       if($_ =~ /Dejagnu.+check/){
+               $_ = "TEST DETECTED: $_";
+               $skipped_tests++;
+       }
        print "//$_";
 
 }