diff options
author | Stefan Radomski <sradomski@mintwerk.de> | 2016-01-18 14:07:16 (GMT) |
---|---|---|
committer | Stefan Radomski <sradomski@mintwerk.de> | 2016-01-18 14:07:16 (GMT) |
commit | 6e96eafb9bf087c35cfe8e60196d0a2a1698d22b (patch) | |
tree | 9b1fe7e7abcae365d11d24d7494d1a00f40b9eaa /test/w3c | |
parent | 575c2711df910f0b8ecce277bf7333077e235855 (diff) | |
download | uscxml-6e96eafb9bf087c35cfe8e60196d0a2a1698d22b.zip uscxml-6e96eafb9bf087c35cfe8e60196d0a2a1698d22b.tar.gz uscxml-6e96eafb9bf087c35cfe8e60196d0a2a1698d22b.tar.bz2 |
Fixed a memory leak in transformed C scaffolding
Diffstat (limited to 'test/w3c')
-rwxr-xr-x | test/w3c/check-tests.pl | 23 |
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"; |