summaryrefslogtreecommitdiff
path: root/test/DOMTSHandler.pm
diff options
context:
space:
mode:
authorJohn Mark Bell <jmb@netsurf-browser.org>2011-12-21 22:18:10 +0000
committerJohn Mark Bell <jmb@netsurf-browser.org>2011-12-21 22:18:10 +0000
commit99a601a856a2bd6c9974db589b0ef3f54e04aeca (patch)
treee48ba69628c5ba793533094e308c1fce9acb21aa /test/DOMTSHandler.pm
parent05a3cf37e14017a3593ed9e17e4a83b003ef29d6 (diff)
downloadlibdom-99a601a856a2bd6c9974db589b0ef3f54e04aeca.tar.gz
libdom-99a601a856a2bd6c9974db589b0ef3f54e04aeca.tar.bz2
Merge branches/jmb/dom-alloc-purge back to trunk
svn path=/trunk/libdom/; revision=13316
Diffstat (limited to 'test/DOMTSHandler.pm')
-rw-r--r--test/DOMTSHandler.pm11
1 files changed, 3 insertions, 8 deletions
diff --git a/test/DOMTSHandler.pm b/test/DOMTSHandler.pm
index 0bd4b81..4b469fe 100644
--- a/test/DOMTSHandler.pm
+++ b/test/DOMTSHandler.pm
@@ -374,11 +374,6 @@ int main(int argc, char **argv)
(void)argc;
(void)argv;
- /* Firstly, initialise dom and dom implementations */
- exp = dom_initialise(myrealloc, NULL);
- if (exp != DOM_NO_ERR)
- return exp;
-
if (chdir("$self->{chdir}") < 0) {
perror("chdir (\\"$self->{chdir})\\"");
return 1;
@@ -1215,7 +1210,7 @@ sub generate_control_statement {
print "while(get_next_list($coll, \&iterator$iterator_index, ";
if ($conversion eq 1) {
print "\&tstring$temp_index)) {\n";
- print "exp = dom_string_create(myrealloc, NULL, (const uint8_t *)tstring$temp_index,";
+ print "exp = dom_string_create((const uint8_t *)tstring$temp_index,";
print "strlen(tstring$temp_index), &$member);";
print "if (exp != DOM_NO_ERR) {";
print "fprintf(stderr, \"Can't create DOMString\\n\");";
@@ -1275,7 +1270,7 @@ sub generate_domstring {
print << "__EOF__";
const char *string$string_index = $str;
dom_string *dstring$string_index;
- exp = dom_string_create(myrealloc, NULL, (const uint8_t *)string$string_index,
+ exp = dom_string_create((const uint8_t *)string$string_index,
strlen(string$string_index), &dstring$string_index);
if (exp != DOM_NO_ERR) {
fprintf(stderr, "Can't create DOMString\\n");
@@ -1453,7 +1448,7 @@ sub end_half_assertion {
sub cleanup_domvar {
my ($self, $indent) = @_;
- my $str = join($indent, @{$self->{unref}});
+ my $str = join($indent, reverse @{$self->{unref}});
print $indent.$str."\n";
}