use lib './lib';
use Test::More tests => 5;
use strict;
BEGIN { use_ok('XML::Stream', 'Node'); }
my $a = new XML::Stream::Node;
$a->set_tag("body");
$a->add_cdata("one");
is ($a->GetXML(), q[one], 'cdata');
my $b = $a->copy;
is ($b->GetXML(), q[one], 'copy cdata');
$a->add_child("a","two")->put_attrib(href=>"http://www.google.com");
$a->add_cdata("three");
is ($a->GetXML(), q[onetwothree], 'cdata/element/cdata');
my $c = $a->copy;
is ($c->GetXML(), q[onetwothree], 'copy cdata/element/cdata');