diff options
| -rwxr-xr-x | tests/it_xml.t | 8 |
1 files changed, 8 insertions, 0 deletions
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()", +); + ?> |