The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
PERIGRIN / XML-Toolkit-0.15 / t / 01.basic.t 
#!/usr/bin/perl -w
use strict;
use Test::More;
use Test::Exception;
use Test::XML;
use XML::Toolkit::App;

my $xml = <<'END_XML';
<?xml version="1.0"?>
<note>
    <to>Tove</to>
    <from>Jani</from>
    <heading>Reminder</heading>
    <body>Don't forget me this weekend!</body>
</note>
END_XML
ok( my $builder = XML::Toolkit::App->new( xmlns => { '' => 'MyTest' } )->builder,
    'Build XML::Toolkit::Builder' );
lives_ok { $builder->parse_string($xml) } 'parsed the xml';
ok( my $code = $builder->render(), 'render code' );

eval $code;
if ($@) {
    diag "Couldn't EVAL code $@";
    done_testing;
    exit;
}

ok( my $loader = XML::Toolkit::App->new( xmlns => { '' => 'MyTest' } )->loader,
    'Build XML::Toolkit::Loader' );
$loader->parse_string($xml);
ok( my $root = $loader->root_object, 'extract root object' );

ok( scalar @{ $root->to_collection } > 0, 'have entries' );

ok( my $generator = XML::Toolkit::App->new( xmlns => { '' => '' } )->generator,
    'Build XML::Toolkit::Loader' );
$generator->render_object($root);
my $output = join( '', $generator->output );
is_xml( $xml, $output, 'XML compares' );

done_testing;