[perl-xml-cvs] CVS: xml-simple/t 2_XMLout.t,1.16,1.17

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

Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7623/t

Modified Files:
	2_XMLout.t 
Log Message:
- added test for bad GroupTags option

Index: 2_XMLout.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/2_XMLout.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- 2_XMLout.t	19 Sep 2006 09:52:34 -0000	1.16
+++ 2_XMLout.t	5 Oct 2006 08:28:05 -0000	1.17
@@ -6,7 +6,7 @@
 
 $^W = 1;
 
-plan tests => 198;
+plan tests => 201;
 
 
 ##############################################################################
@@ -869,7 +869,15 @@
 # </opt>
 #
 
-$_ = XMLout($ref, grouptags => {dirs => 'dir'}, noattr => 1);
+$@ = '';
+$_ = eval { XMLout($ref, grouptags => {dirs => 'dirs'}, noattr => 1); };
+ok($@, 'bad GroupTags value was caught');
+like("$@", qr{Bad value in GroupTags: 'dirs' => 'dirs'},
+  'error message looks good');
+
+$@ = '';
+$_ = eval { XMLout($ref, grouptags => {dirs => 'dir'}, noattr => 1); };
+ok(!$@, 'good GroupTags value caused no error');
 
 ok(s{\s*<(prefix)>before</\1>\s*}{ELEM}s, 'prefix OK');
 ok(s{\s*<(suffix)>after</\1>\s*}{ELEM}s,  'suffix OK');