Fixed a memory leak in transformed C scaffolding

1 files changed, 20 insertions, 3 deletions

diff --git a/test/w3c/check-tests.pl b/test/w3c/check-tests.pl
index 7299947..71218f4 100755
--- a/test/w3c/check-tests.pl
+++ b/test/w3c/check-tests.pl
@@ -4,6 +4,13 @@ use strict;
 use Data::Dumper;
 use XML::Simple;
 
+my @failed;
+# failing for C transformation
+# @failed = qw/
+# 187 191 192 207 215 216 220 223 224 225 226 228 229 230 232 233 234 235
+# 236 237 239 240 241 242 243 244 245 247 250 252 253 276 338 347 422 530
+# 554 201 496 500 501 509 510 518 519 520 521 522 531 532 534 567 569 577
+# 301 307 446 552 557 558 561/;
 
 my $manifest = XMLin("./manifest.xml");
 # print Dumper($manifest->{'assert'});
@@ -17,7 +24,7 @@ my @agnosticTests;
 my @nullTests;
 my @manualTests;
 
-for my $testNr (keys $manifest->{'assert'}) {
+TESTS: for my $testNr (keys $manifest->{'assert'}) {
 	my @tests;
 	my $thisTest = $manifest->{'assert'}->{$testNr};
 	if (ref($thisTest->{'test'}->{'start'}) eq "ARRAY") {
@@ -25,7 +32,17 @@ for my $testNr (keys $manifest->{'assert'}) {
 	} else {
 		push (@tests, $thisTest->{'test'}->{'start'});
 	}
+	for my $t (@tests) {
+		if ($t->{'uri'} =~ /\/test(.*)\.[txml|txt]/) {
+			next TESTS if ( grep /^$1$/, @failed );
+			$perSpecId->{$thisTest->{'specnum'}.':'.$thisTest->{'specid'}}->{'tests'} .= $1." ";
+		} else {
+			die(Dumper($t));
+		}
+	}	
+	
 	$perSpecId->{$thisTest->{'specnum'}.':'.$thisTest->{'specid'}}->{'total'} += @tests;
+	
 	if ($thisTest->{'test'}->{'manual'} eq "true") {
 		$perSpecId->{$thisTest->{'specnum'}.':'.$thisTest->{'specid'}}->{'manual'} += @tests;
 		push @manualTests,  @tests;
@@ -43,7 +60,7 @@ for my $testNr (keys $manifest->{'assert'}) {
 	if ($thisTest->{'specid'} eq "#xpath-profile" || $thisTest->{'specid'} !~ /profile$/) {
 		push @xpathTests,  @tests;
 	}
-	
+		
 	push (@allTests, @tests);
 	push @agnosticTests, @tests if ($thisTest->{'specid'} !~ /profile$/);
 }
@@ -81,7 +98,7 @@ for my $datamodel (keys %datamodels) {
 	}
 }
 
-# print Dumper(@manualTests);
+print Dumper($perSpecId);
 
 print "NULL : ".@nullTests."\n";
 print "ECMA : ".@ecmaTests."\n";