--- trunk/tests/test_xml_simple.pl	2004/03/14 12:37:14	278
+++ trunk/tests/test_xml_simple.pl	2004/03/14 14:59:43	279
@@ -5,7 +5,16 @@
 use IO::File;
 use Data::Dumper;
 
-my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml foo="a" foo_a=" a" foo_a_=" a " fooa_="a ">truæ</xml>';
+my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?>
+<xml>
+<isis delimiter=" aa ">foo</isis>
+<isis>
+	<delimiter> aa </delimiter>
+	<format>foo</format>
+</isis>
+
+<test foo="a" foo_a=" a" foo_a_=" a " fooa_="a ">truæ</test>
+</xml>';
 
 my $xml_file = shift @ARGV;
 
@@ -13,7 +22,12 @@
 	my $fh = new IO::File($xml_file) || die "can't open $xml_file: $!";
 	$xml = XMLin($fh);
 } else {
-	$xml = XMLin($xml);
+	$xml = XMLin($xml,
+		ForceArray => [ 'isis', 'config', 'format' ],
+		ForceContent => 1,
+		NormaliseSpace => 0,
+		KeyAttr => [ 'isis' ]
+	);
 }
 
 print Dumper($xml),"\n";