1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
# ----------------------------------------------------------------
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;
# ----------------------------------------------------------------
|
