From 5f4487c1f8f55a3e2c3ce612a568e5a1f08d4bd9 Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Wed, 14 Feb 2007 00:55:36 +0000
Subject: Add KeyAttr, remove subca
svn path=/scripts/xml-parse-test.pl; revision=483
---
scripts/xml-parse-test.pl | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
(limited to 'scripts/xml-parse-test.pl')
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);
--
cgit v1.2.3