view release on metacpan or  search on metacpan

t/01-Element.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 11;

BEGIN {
    use_ok('XML::API');
}

can_ok(
    'XML::API::Element', qw(
      new
      add
      )
);

my $e = XML::API::Element->new( element => 'e', );
isa_ok( $e, 'XML::API::Element' );
is( $e->as_string, '<e />', 'single tag' );

$e->add('content');
is( $e->as_string, '<e>content</e>', 'single tag with content' );

my $c = XML::API::Element->new( comment => 'comment --', );
isa_ok( $c, 'XML::API::Element' );
is( $c->as_string, '<!-- comment - - -->', 'comment' );

my $cdata = XML::API::Element->new( cdata => 'cdata', );
isa_ok( $cdata, 'XML::API::Element' );
is( $cdata->as_string, '<![CDATA[cdata]]>', 'cdata' );

my $c1 = XML::API::Element->new( element => 'c1', );
$c1->add('cn1');

$e->add($c1);

is(
    $e->as_string( '', '  ' ),
    '<e>content
  <c1>cn1</c1>
</e>', 'combined'
);

is(
    $e->as_string( '', '' ),
    '<e>content
<c1>cn1</c1>
</e>', 'combined no indent'
);