diff options
Diffstat (limited to 'scripts/xml-parse-test.pl')
| -rwxr-xr-x | scripts/xml-parse-test.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/scripts/xml-parse-test.pl b/scripts/xml-parse-test.pl index 0c63b3d5..0628e177 100755 --- a/scripts/xml-parse-test.pl +++ b/scripts/xml-parse-test.pl @@ -49,8 +49,7 @@ my @xml = (' <header sender="sender name" recipient = "recipient name" msg_ref="reference" /> - <issue_request_class ca="ca_name" - subca="subca_ident"> + <issue_request_class ca="ca_name"> [Certificate request] </issue_request_class> </message> @@ -60,7 +59,6 @@ my @xml = (' recipient = "recipient name" msg_ref="reference" /> <certificate ca="ca_name" - subca="subca_ident" cert_url="url" cert_ski="g(ski)" cert_serial="serial" @@ -95,7 +93,10 @@ my @xml = (' </message> '); -my $xs = XML::Simple->new(KeepRoot => 1, Forcearray => [qw(list_class)]); +my $xs = XML::Simple->new(KeepRoot => 1, + ForceArray => [qw(list_class)], + KeyAttr => [qw(header)], + NormalizeSpace => 2); for my $xml (@xml) { my $x = $xs->XMLin($xml); |