+ my $res = $this->_run_test("Main");
+ foreach my $target (sort keys %{ $this->{target2record} }) {
+ my $rec = $this->{target2record}->{$target};
+ # It's a shame that LibXML can't pretty-print this
+ print STDERR "$target: zeerex='", $rec->{zeerex}, "' = \n",
+ $rec->{zeerex}->toString(), "\n";
+ ### Write record back to database, if modified.
+ }
+ return $res;
+