--- 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 = 'truæ';
+my $xml = '
+
+foo
+
+ aa
+ foo
+
+
+truæ
+';
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";