t/04_atom.t - metacpan.org

# ----------------------------------------------------------------
    use strict;
    use Test::More tests => 94;
    BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
    my $ftitle = "Title of the site";
    my $fdesc  = "Description of the site";
    my $fdateA = "Mon, 02 Jan 2006 03:04:05 +0600";
    my $fdateB = "2006-01-02T03:04:05+06:00";
    my $fright = "Owner of the site";
    my $flink  = "http://www.kawa.net/";
    my $flang  = "ja";
# ----------------------------------------------------------------
    my $link1 = "http://www.perl.org/";
    my $link2  = "http://use.perl.org/";
    my $link3 = "http://cpan.perl.org/";
    my $title1 = "The Perl Directory - perl.org";
    my $title2 = "use Perl: All the Perl that's Practical to Extract and Report";
    my $title3 = "The Comprehensive Perl Archive Network";
# ----------------------------------------------------------------
    my $idesc  = "Description of the first item";
    my $icate  = "Category of the first item";
    my $idateA = "Sun, 11 Dec 2005 10:09:08 -0700";
    my $idateB = "2005-12-11T10:09:08-07:00";
    my $iauthor = "Author";
    my $iguid   = "GUID";
# ----------------------------------------------------------------
#   Atom (default version)
# ----------------------------------------------------------------
    my $feed1 = XML::FeedPP::Atom->new();
    $feed1->title( $ftitle );
    $feed1->description( $fdesc );
    $feed1->pubDate( $fdateB );
    $feed1->copyright( $fright );
    $feed1->link( $flink );
    $feed1->language( $flang );
# ----------------------------------------------------------------
    ok( 0 == $feed1->get_item(), "0 item" );
# ----------------------------------------------------------------
    my $item1 = $feed1->add_item( $link1 );
    $item1->title( $title1 );
    $item1->pubDate( $idateB );
    ok( 1 == $feed1->get_item(), "1 item" );
# ----------------------------------------------------------------
    $item1->description( $idesc );
    $item1->category( $icate );
    $item1->author( $iauthor, isPermaLink => "false" );
    $item1->guid( $iguid );
# ----------------------------------------------------------------
    my $item2 = $feed1->add_item( $link2 );
    $item2->title( $title2 );
    $item2->pubDate( $idateA );
    ok( 2 == $feed1->get_item(), "2 items" );
# ----------------------------------------------------------------
    my $item3 = $feed1->add_item( $link3 );
    $item3->title( $title3 );
    $item3->pubDate( $idateA );
    ok( 3 == $feed1->get_item(), "3 items" );
# ----------------------------------------------------------------
    my $source1 = $feed1->to_string();
    my $feed2 = XML::FeedPP::Atom->new( $source1 );
    ok( 3 == $feed2->get_item(), "3 items" );
# ----------------------------------------------------------------
    is( $feed2->title(),            $ftitle,    "Atom->title()" );
    is( $feed2->description(),      $fdesc,     "Atom->description()" );
    is( $feed2->pubDate(),          $fdateB,    "Atom->pubDate()" );
    is( $feed2->copyright(),        $fright,    "Atom->copyright()" );
    is( $feed2->link(),             $flink,     "Atom->link()" );
    is( $feed2->language(),         $flang,     "Atom->language()" );
# ----------------------------------------------------------------
    my $item4 = $feed2->get_item( 0 );
# ----------------------------------------------------------------
    is( $item4->link(),             $link1,     "Entry->link()" );
    is( $item4->title(),            $title1,    "Entry->title()" );
    is( $item4->pubDate(),          $idateB,    "Entry->pubDate()" );
    is( $item4->description(),      $idesc,     "Entry->description()" );
    is( $item4->category(),         undef,      "Entry->category()" );
    is( $item4->author(),           $iauthor,   "Entry->author()" );
    is( $item4->guid(),             $iguid,     "Entry->guid()" );
# ----------------------------------------------------------------
    my $source2 = $feed1->to_string();
#   warn "\n$source2\n";
    is( $source1, $source2, "turn around - rss source." );
# ----------------------------------------------------------------
    like( $source2, qr/<title[^>]*>\s*      \Q$ftitle\E/x,  "<title>" );
    like( $source2, qr/<tagline[^>]*>\s*    \Q$fdesc\E/x,   "<tagline>" );
    like( $source2, qr/<modified[^>]*>\s*   \Q$fdateB\E/x,  "<modified>" );
    like( $source2, qr/<copyright[^>]*>\s*  \Q$fright\E/x,  "<copyright>" );
    like( $source2, qr/<link[^>]*     href="\Q$flink\E/x,   '<link href="">' );
    like( $source2, qr/<feed[^>]* xml:lang="\Q$flang\E/x,   '<feed xml:lang="">' );
# ----------------------------------------------------------------
    like( $source2, qr/<link[^>]*           href="\Q$link1\E/x,   '<link href="">' );
    like( $source2, qr/<title[^>]*>\s*            \Q$title1\E/x,  "<title>" );
    like( $source2, qr/<issued[^>]*>\s*           \Q$idateB\E/x,  "<issued>" );
    like( $source2, qr/<content[^>]*>\s*          \Q$idesc\E/x,   "<content>" );
#   like( $source2, qr/<category[^>]*>\s*         \Q$icate\E/x,   "<category>" );
    like( $source2, qr/<name[^>]*>\s*             \Q$iauthor\E/x, "<author><name>" );
    like( $source2, qr/<id[^>]*>\s*               \Q$iguid\E/x,   "<id>" );
# ----------------------------------------------------------------
#   Atom 0.3
# ----------------------------------------------------------------
    $feed1 = XML::FeedPP::Atom::Atom03->new();
    $feed1->title( $ftitle );
    $feed1->description( $fdesc );
    $feed1->pubDate( $fdateB );
    $feed1->copyright( $fright );
    $feed1->link( $flink );
    $feed1->language( $flang );
# ----------------------------------------------------------------
    ok( 0 == $feed1->get_item(), "0 item" );
# ----------------------------------------------------------------
    $item1 = $feed1->add_item( $link1 );
    $item1->title( $title1 );
    $item1->pubDate( $idateB );
    ok( 1 == $feed1->get_item(), "1 item" );
# ----------------------------------------------------------------
    $item1->description( $idesc );
    $item1->category( $icate );
    $item1->author( $iauthor, isPermaLink => "false" );
    $item1->guid( $iguid );
# ----------------------------------------------------------------
    $item2 = $feed1->add_item( $link2 );
    $item2->title( $title2 );
    $item2->pubDate( $idateA );
    ok( 2 == $feed1->get_item(), "2 items" );
# ----------------------------------------------------------------
    $item3 = $feed1->add_item( $link3 );
    $item3->title( $title3 );
    $item3->pubDate( $idateA );
    ok( 3 == $feed1->get_item(), "3 items" );
# ----------------------------------------------------------------
    $source1 = $feed1->to_string();
    $feed2 = XML::FeedPP::Atom::Atom03->new( $source1 );
    ok( 3 == $feed2->get_item(), "3 items" );
# ----------------------------------------------------------------
    is( $feed2->title(),            $ftitle,    "Atom->title()" );
    is( $feed2->description(),      $fdesc,     "Atom->description()" );
    is( $feed2->pubDate(),          $fdateB,    "Atom->pubDate()" );
    is( $feed2->copyright(),        $fright,    "Atom->copyright()" );
    is( $feed2->link(),             $flink,     "Atom->link()" );
    is( $feed2->language(),         $flang,     "Atom->language()" );
# ----------------------------------------------------------------
    $item4 = $feed2->get_item( 0 );
# ----------------------------------------------------------------
    is( $item4->link(),             $link1,     "Entry->link()" );
    is( $item4->title(),            $title1,    "Entry->title()" );
    is( $item4->pubDate(),          $idateB,    "Entry->pubDate()" );
    is( $item4->description(),      $idesc,     "Entry->description()" );
    is( $item4->category(),         undef,      "Entry->category()" );
    is( $item4->author(),           $iauthor,   "Entry->author()" );
    is( $item4->guid(),             $iguid,     "Entry->guid()" );
# ----------------------------------------------------------------
    $source2 = $feed1->to_string();
#   warn "\n$source2\n";
    is( $source1, $source2, "turn around - rss source." );
# ----------------------------------------------------------------
    like( $source2, qr/<title[^>]*>\s*      \Q$ftitle\E/x,  "<title>" );
    like( $source2, qr/<tagline[^>]*>\s*    \Q$fdesc\E/x,   "<tagline>" );
    like( $source2, qr/<modified[^>]*>\s*   \Q$fdateB\E/x,  "<modified>" );
    like( $source2, qr/<copyright[^>]*>\s*  \Q$fright\E/x,  "<copyright>" );
    like( $source2, qr/<link[^>]*     href="\Q$flink\E/x,   '<link href="">' );
    like( $source2, qr/<feed[^>]* xml:lang="\Q$flang\E/x,   '<feed xml:lang="">' );
# ----------------------------------------------------------------
    like( $source2, qr/<link[^>]*           href="\Q$link1\E/x,   '<link href="">' );
    like( $source2, qr/<title[^>]*>\s*            \Q$title1\E/x,  "<title>" );
    like( $source2, qr/<issued[^>]*>\s*           \Q$idateB\E/x,  "<issued>" );
    like( $source2, qr/<content[^>]*>\s*          \Q$idesc\E/x,   "<content>" );
#   like( $source2, qr/<category[^>]*>\s*         \Q$icate\E/x,   "<category>" );
    like( $source2, qr/<name[^>]*>\s*             \Q$iauthor\E/x, "<author><name>" );
    like( $source2, qr/<id[^>]*>\s*               \Q$iguid\E/x,   "<id>" );
# ----------------------------------------------------------------
#   Atom 1.0
# ----------------------------------------------------------------
    $feed1 = XML::FeedPP::Atom::Atom10->new();
    $feed1->title( $ftitle );
    $feed1->description( $fdesc );
    $feed1->pubDate( $fdateB );
    $feed1->copyright( $fright );
    $feed1->link( $flink );
    $feed1->language( $flang );
# ----------------------------------------------------------------
    ok( 0 == $feed1->get_item(), "0 item" );
# ----------------------------------------------------------------
    $item1 = $feed1->add_item( $link1 );
    $item1->title( $title1 );
    $item1->pubDate( $idateB );
    ok( 1 == $feed1->get_item(), "1 item" );
# ----------------------------------------------------------------
    $item1->description( $idesc );
    $item1->category( $icate );
    $item1->author( $iauthor, isPermaLink => "false" );
    $item1->guid( $iguid );
# ----------------------------------------------------------------
    $item2 = $feed1->add_item( $link2 );
    $item2->title( $title2 );
    $item2->pubDate( $idateA );
    ok( 2 == $feed1->get_item(), "2 items" );
# ----------------------------------------------------------------
    $item3 = $feed1->add_item( $link3 );
    $item3->title( $title3 );
    $item3->pubDate( $idateA );
    ok( 3 == $feed1->get_item(), "3 items" );
# ----------------------------------------------------------------
    $source1 = $feed1->to_string();
    $feed2 = XML::FeedPP::Atom::Atom10->new( $source1 );
    ok( 3 == $feed2->get_item(), "3 items" );
# ----------------------------------------------------------------
    is( $feed2->title(),            $ftitle,    "Atom->title()" );
    is( $feed2->description(),      $fdesc,     "Atom->description()" );
    is( $feed2->pubDate(),          $fdateB,    "Atom->pubDate()" );
    is( $feed2->copyright(),        $fright,    "Atom->copyright()" );
    is( $feed2->link(),             $flink,     "Atom->link()" );
    is( $feed2->language(),         $flang,     "Atom->language()" );
# ----------------------------------------------------------------
    $item4 = $feed2->get_item( 0 );
# ----------------------------------------------------------------
    is( $item4->link(),             $link1,     "Entry->link()" );
    is( $item4->title(),            $title1,    "Entry->title()" );
    is( $item4->pubDate(),          $idateB,    "Entry->pubDate()" );
    is( $item4->description(),      $idesc,     "Entry->description()" );
    is( $item4->category(),         $icate,     "Entry->category()" );
    is( $item4->author(),           $iauthor,   "Entry->author()" );
    is( $item4->guid(),             $iguid,     "Entry->guid()" );
# ----------------------------------------------------------------
    $source2 = $feed1->to_string();
#   warn "\n$source2\n";
    is( $source1, $source2, "turn around - rss source." );
# ----------------------------------------------------------------
    like( $source2, qr/<title[^>]*>\s*      \Q$ftitle\E/x,  "<title>" );
#   like( $source2, qr/<subtitle[^>]*>\s*   \Q$fdesc\E/x,  "<subtitle>" );
    like( $source2, qr/<content[^>]*>\s*    \Q$fdesc\E/x,  "<content>" );
    like( $source2, qr/<updated[^>]*>\s*    \Q$fdateB\E/x,  "<updated>" );
    like( $source2, qr/<rights[^>]*>\s*     \Q$fright\E/x,  "<rights>" );
    like( $source2, qr/<link[^>]*     href="\Q$flink\E/x,   '<link href="">' );
    like( $source2, qr/<feed[^>]* xml:lang="\Q$flang\E/x,   '<feed xml:lang="">' );
# ----------------------------------------------------------------
    like( $source2, qr/<link[^>]*           href="\Q$link1\E/x,   '<link href="">' );
    like( $source2, qr/<title[^>]*>\s*            \Q$title1\E/x,  "<title>" );
#   like( $source2, qr/<published[^>]*>\s*        \Q$idateB\E/x,  "<published>" );
    like( $source2, qr/<updated[^>]*>\s*          \Q$idateB\E/x,  "<updated>" );
    like( $source2, qr/<content[^>]*>\s*          \Q$idesc\E/x,   "<content>" );
#   like( $source2, qr/<category[^>]*>\s*         \Q$icate\E/x,   "<category>" );
    like( $source2, qr/<name[^>]*>\s*             \Q$iauthor\E/x, "<author><name>" );
    like( $source2, qr/<id[^>]*>\s*               \Q$iguid\E/x,   "<id>" );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)