/XML-FeedPP/t/08_datetime.t
http://xml-treepp.googlecode.com/ · Raku · 114 lines · 101 code · 0 blank · 13 comment · 0 complexity · f309c557f52d2bbfc2a012b2f35ae7c9 MD5 · raw file
- # ----------------------------------------------------------------
- use strict;
- use Test::More tests => 50;
- BEGIN { use_ok('XML::FeedPP') };
- # ----------------------------------------------------------------
- my $date110u = 1100000000;
- my $date110w = "2004-11-09T11:33:20Z"; # 1100000000
- my $date110h = "Tue, 09 Nov 2004 11:33:20 GMT";
- my $date111w = "2005-03-05T14:20:00+09:00"; # 1110000000
- my $date111h = "Sat, 05 Mar 2005 14:20:00 +0900";
- my $date112w = "2005-06-29T08:06:30-09:00"; # 1120000000
- my $date112h = "Wed, 29 Jun 2005 08:06:30 -0900";
- my $date113w = "2005-10-23T01:53:20Z"; # 1130000000
- my $date113h = "Sun, 23 Oct 2005 01:53:20 GMT";
- my $date114w = "2006-02-15T19:40:00Z"; # 1140000000
- my $date114h = "Wed, 15 Feb 2006 19:40:00 GMT";
- my $url = "http://www.kawa.net/";
- # ----------------------------------------------------------------
- my $feed1 = XML::FeedPP::RSS->new();
- $feed1->pubDate( $date111h );
- is( $feed1->pubDate(), $date111w, "RSS: http - w3cdtf 1" );
- $feed1->pubDate( $date112h );
- is( $feed1->pubDate(), $date112w, "RSS: http - w3cdtf 2" );
- $feed1->pubDate( $date113w );
- is( $feed1->pubDate(), $date113w, "RSS: w3cdtf - http - w3cdtf 1" );
- $feed1->pubDate( $date114w );
- is( $feed1->pubDate(), $date114w, "RSS: w3cdtf - http - w3cdtf 2" );
- # ----------------------------------------------------------------
- my $feed2 = XML::FeedPP::RDF->new();
- $feed2->pubDate( $date111h );
- is( $feed2->pubDate(), $date111w, "RDF: http - w3cdtf 1" );
- $feed2->pubDate( $date112w );
- is( $feed2->pubDate(), $date112w, "RDF: w3cdtf - w3cdtf 1" );
- $feed2->pubDate( $date113h );
- is( $feed2->pubDate(), $date113w, "RDF: http - w3cdtf 2" );
- $feed2->pubDate( $date114w );
- is( $feed2->pubDate(), $date114w, "RDF: w3cdtf - w3cdtf 2" );
- # ----------------------------------------------------------------
- my $feed3 = XML::FeedPP::Atom->new();
- $feed3->pubDate( $date111w );
- is( $feed3->pubDate(), $date111w, "Atom: w3cdtf - w3cdtf 1" );
- $feed3->pubDate( $date112h );
- is( $feed3->pubDate(), $date112w, "Atom: http - w3cdtf 1" );
- $feed3->pubDate( $date113w );
- is( $feed3->pubDate(), $date113w, "Atom: w3cdtf - w3cdtf 2" );
- $feed3->pubDate( $date114h );
- is( $feed3->pubDate(), $date114w, "Atom: http - w3cdtf 2" );
- # ----------------------------------------------------------------
- is( $feed1->get_pubDate_native(), $date114h, "RSS: channel native" );
- is( $feed2->get_pubDate_native(), $date114w, "RDF: channel native" );
- is( $feed3->get_pubDate_native(), $date114w, "Atom: channel native" );
- is( $feed1->get_pubDate_w3cdtf(), $date114w, "RSS: channel w3cdtf" );
- is( $feed2->get_pubDate_w3cdtf(), $date114w, "RDF: channel w3cdtf" );
- is( $feed3->get_pubDate_w3cdtf(), $date114w, "Atom: channel w3cdtf" );
- is( $feed1->get_pubDate_rfc1123(), $date114h, "RSS: channel rfc1123" );
- is( $feed2->get_pubDate_rfc1123(), $date114h, "RDF: channel rfc1123" );
- is( $feed3->get_pubDate_rfc1123(), $date114h, "Atom: channel rfc1123" );
- # ----------------------------------------------------------------
- $feed1->pubDate( $date110u );
- $feed2->pubDate( $date110u );
- $feed3->pubDate( $date110u );
- is( $feed1->get_pubDate_epoch(), $date110u, "RSS: channel epoch" );
- is( $feed2->get_pubDate_epoch(), $date110u, "RDF: channel epoch" );
- is( $feed3->get_pubDate_epoch(), $date110u, "Atom: channel epoch" );
- my $w3c1 = $feed1->get_pubDate_w3cdtf();
- my $w3c2 = $feed2->get_pubDate_w3cdtf();
- my $w3c3 = $feed3->get_pubDate_w3cdtf();
- is( $w3c2, $w3c1, "RSS/RDF: epoch - w3cdtf" );
- is( $w3c3, $w3c1, "RSS/Atom: epoch - w3cdtf" );
- my $http1 = $feed1->get_pubDate_rfc1123();
- my $http2 = $feed2->get_pubDate_rfc1123();
- my $http3 = $feed3->get_pubDate_rfc1123();
- is( $http2, $http1, "RSS/RDF: epoch - http" );
- is( $http3, $http1, "RSS/Atom: epoch - http" );
- # ----------------------------------------------------------------
- my $item1 = $feed1->add_item( $url );
- my $item2 = $feed2->add_item( $url );
- my $item3 = $feed3->add_item( $url );
- # ----------------------------------------------------------------
- $item1->pubDate( $date110u );
- $item2->pubDate( $date110u );
- $item3->pubDate( $date110u );
- is( $item1->get_pubDate_epoch(), $date110u, "RSS: item epoch" );
- is( $item2->get_pubDate_epoch(), $date110u, "RDF: item epoch" );
- is( $item3->get_pubDate_epoch(), $date110u, "Atom: item epoch" );
- # ----------------------------------------------------------------
- $item1->pubDate( $date110h );
- $item2->pubDate( $date110h );
- $item3->pubDate( $date110h );
- is( $item1->pubDate(), $date110w, "RSS: item http - w3cdtf" );
- is( $item2->pubDate(), $date110w, "RDF: item http - w3cdtf" );
- is( $item3->pubDate(), $date110w, "Atom: item http - w3cdtf" );
- is( $item1->get_pubDate_native(), $date110h, "RSS: item native http" );
- is( $item2->get_pubDate_native(), $date110w, "RDF: item native http" );
- is( $item3->get_pubDate_native(), $date110w, "Atom: item native http" );
- is( $item1->get_pubDate_w3cdtf(), $date110w, "RSS: item w3cdtf" );
- is( $item2->get_pubDate_w3cdtf(), $date110w, "RDF: item w3cdtf" );
- is( $item3->get_pubDate_w3cdtf(), $date110w, "Atom: item w3cdtf" );
- # ----------------------------------------------------------------
- $item1->pubDate( $date111w );
- $item2->pubDate( $date111w );
- $item3->pubDate( $date111w );
- is( $item1->pubDate(), $date111w, "RSS: item http - w3cdtf" );
- is( $item2->pubDate(), $date111w, "RDF: item http - w3cdtf" );
- is( $item3->pubDate(), $date111w, "Atom: item http - w3cdtf" );
- is( $item1->get_pubDate_native(), $date111h, "RSS: item native w3cdtf" );
- is( $item2->get_pubDate_native(), $date111w, "RDF: item native w3cdtf" );
- is( $item3->get_pubDate_native(), $date111w, "Atom: item native w3cdtf" );
- is( $item1->get_pubDate_rfc1123(), $date111h, "RSS: item rfc1123" );
- is( $item2->get_pubDate_rfc1123(), $date111h, "RDF: item rfc1123" );
- is( $item3->get_pubDate_rfc1123(), $date111h, "Atom: item rfc1123" );
- # ----------------------------------------------------------------
- ;1;
- # ----------------------------------------------------------------