From 51f8681507305e535203f861ce1a9243b14d7488 Mon Sep 17 00:00:00 2001
From: Urban Müller
Date: Thu, 21 Jan 2010 14:23:16 +0000
Subject: tests for it_xml

---
 tests/it_xml.t | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/it_xml.t b/tests/it_xml.t
index 7e3a3cf..d805d8d 100755
--- a/tests/it_xml.t
+++ b/tests/it_xml.t
@@ -101,4 +101,12 @@ match(
 	'my'
 );
 
+$x = new foo("<foo></foo>", 'prefix' => "test");
+$x->set('gna' => 42, 'bar' => array('baz' => array("qux", "quux")));
+match(
+	$x->to_xml(),
+	'foo Object ( [gna] => gna Object ( [val] => 42 ) [bar] => bar Object ( [baz] => Array ( [0] => baz Object ( [val] => qux ) [1] => baz Object ( [val] => quux ) ) ) ) ',
+	"Method set()",
+);
+
 ?>
-- 
cgit v1.2.3