[perl-xml-cvs] CVS: xml-simple/t 2_XMLout.t,1.6,1.7

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1:/tmp/cvs-serv13035/t

Modified Files:
	2_XMLout.t 
Log Message:
- adjusted uninitialised value warning test to enable warnings first
- added test for NoIndent option

Index: 2_XMLout.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/2_XMLout.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 2_XMLout.t	10 Apr 2003 10:20:07 -0000	1.6
+++ 2_XMLout.t	16 Apr 2003 10:19:24 -0000	1.7
@@ -5,7 +5,7 @@
 use Test::More;
 use IO::File;
 
-plan tests => 190;
+plan tests => 192;
 
 ##############################################################################
 #                   S U P P O R T   R O U T I N E S
@@ -628,6 +628,7 @@
 # Check undefined values generate warnings 
 
 {
+  $^W = 1;
   my $warn = '';
   local $SIG{__WARN__} = sub { $warn = $_[0] };
   $_ = eval {
@@ -878,6 +879,24 @@
     </dirs>\s*
   </\1>$
 }x, 'Failed to unwrap/group stripped content - as expected');
+
+
+# Check 'NoIndent' option
+
+$ref = {
+  nest   => [ qw(one two three) ]
+};
+
+# Expect:
+#
+# <opt><nest>one</nest><nest>two</nest><nest>three</nest></opt>
+#
+
+$_ = XMLout($ref, NoIndent => 1);
+
+is_deeply(XMLin($_), $ref, 'parses ok');
+is($_, '<opt><nest>one</nest><nest>two</nest><nest>three</nest></opt>',
+'NoIndent worked ok');
 
 
 # 'Stress test' with a data structure that maps to several thousand elements.