# ----------------------------------------------------------------
    use strict;
    use Test::More tests => 12;
    BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
    my $f_title = "Title of the site";
    my $f_link  = "http://www.kawa.net/";
    my $f_image   = "http://www.kawa.net/xp/images/mixi-3.jpg";
# ----------------------------------------------------------------
    my $i_link = "http://www.perl.org/";
    my $i_title = "The Perl Directory - perl.org";
# ----------------------------------------------------------------
    my $feed1 = XML::FeedPP::Atom->new();
    $feed1->title( $f_title );
    $feed1->link( $f_link );
    $feed1->image( $f_image );
    my $item1 = $feed1->add_item( $i_link );
    $item1->title( $i_title );
# ----------------------------------------------------------------
    is( scalar $feed1->link(),  $f_link,  "Atom link 1" );
    is( scalar $feed1->image(), $f_image, "Atom image 1" );
    $feed1->image( $f_image );
    $feed1->link( $f_link );
    is( scalar $feed1->link(),  $f_link,  "Atom link 2" );
    is( scalar $feed1->image(), $f_image, "Atom image 2" );
# ----------------------------------------------------------------
#   Atom -> RDF -> Atom
# ----------------------------------------------------------------
    my $feed2 = XML::FeedPP::RDF->new();
    $feed2->merge( $feed1->to_string() );
    is( scalar $feed2->image(), $f_image, "RDF image" );
# ----------------------------------------------------------------
    my $feed3 = XML::FeedPP::Atom->new();
    $feed3->merge( $feed2->to_string() );
    is( scalar $feed1->link(),  $f_link,  "Atom link 3" );
    is( scalar $feed3->image(), $f_image, "Atom image 3" );
# ----------------------------------------------------------------
#   Atom -> RSS -> Atom
# ----------------------------------------------------------------
    my $feed4 = XML::FeedPP::RSS->new();
    $feed4->merge( $feed1->to_string() );
    is( scalar $feed4->image(), $f_image, "RSS image" );
# ----------------------------------------------------------------
    my $feed5 = XML::FeedPP::Atom->new();
    $feed5->merge( $feed4->to_string() );
    is( scalar $feed1->link(),  $f_link,  "Atom link 4" );
    is( scalar $feed5->image(), $f_image, "Atom image 4" );
# ----------------------------------------------------------------
    is( $feed3->to_string(), $feed5->to_string(), "Atom source" );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------