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(-)

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