[perl-xml-cvs] CVS: xml-simple/t 1_XMLin.t,1.11,1.12

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

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

Modified Files:
	1_XMLin.t 
Log Message:
- added tests for regexes in ForceArray

Index: 1_XMLin.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/1_XMLin.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- 1_XMLin.t	10 Apr 2003 10:20:06 -0000	1.11
+++ 1_XMLin.t	16 Apr 2003 10:17:29 -0000	1.12
@@ -15,14 +15,14 @@
   plan skip_all => 'Test data missing';
 }
 
-plan tests => 93;
+plan tests => 95;
 
 
 $@ = '';
 eval "use XML::Simple;";
 is($@, '', 'Module compiled OK');
-unless($XML::Simple::VERSION eq '2.04') {
-  diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected 2.04)");
+unless($XML::Simple::VERSION eq '2.05') {
+  diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected 2.05)");
 }
 
 
@@ -670,6 +670,41 @@
   'two' => [ 'ii' ],
   'three' => [ 'iii', 3, 'c' ]
 }, 'selective application of forcearray successful');
+
+
+# Test forcearray regexes
+
+$xml = q(<opt zero="0">
+  <one>i</one>
+  <two>ii</two>
+  <three>iii</three>
+  <four>iv</four>
+  <five>v</five>
+</opt>
+);
+
+$opt = XMLin($xml, forcearray => [ qr/^f/, 'two', qr/n/ ], @cont_key);
+is_deeply($opt, {
+  'zero'  => '0',
+  'one'   => [ 'i'  ],
+  'two'   => [ 'ii' ],
+  'three' => 'iii',
+  'four'  => [ 'iv' ],
+  'five'  => [ 'v'  ],
+}, 'forcearray using regex successful');
+
+
+# Same again but a single regexp rather than in an arrayref
+
+$opt = XMLin($xml, forcearray => qr/^f|e$/, @cont_key);
+is_deeply($opt, {
+  'zero'  => '0',
+  'one'   => [ 'i'  ],
+  'two'   =>   'ii',
+  'three' => [ 'iii'],
+  'four'  => [ 'iv' ],
+  'five'  => [ 'v'  ],
+}, 'forcearray using a single regex successful');
 
 
 # Test 'noattr' option