# ----------------------------------------------------------------
use strict;
use Test::More tests => 27;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $epo0a = time();
my $rfc1z = [
'Sun, 21 Jan 2007 22:23:24',
'Sun, 21 Jan 2007 22:23:24 +09:00',
'Sun, 14 Jan 2007 13:12:11 +10:30',
'Sun, 7 Jan 2007 8:09:10 -11:30',
];
my $w3c2z = [
'2007-01-21T20:19:18Z',
'2007-01-21T20:19:18+09:00',
'2007-01-28T12:11:10+09:30',
'2007-02-04T05:06:07-08:30',
];
# ----------------------------------------------------------------
my $w3c0a = &XML::FeedPP::Util::epoch_to_w3cdtf( $epo0a );
my $epo0b = &XML::FeedPP::Util::w3cdtf_to_epoch( $w3c0a );
is( $epo0b, $epo0a, "1: epoch-w3cdtf-epoch $epo0a" );
# ----------------------------------------------------------------
my $rfc0a = &XML::FeedPP::Util::epoch_to_rfc1123( $epo0a );
my $epo0c = &XML::FeedPP::Util::rfc1123_to_epoch( $rfc0a );
is( $epo0c, $epo0a, "1: epoch-rfc1123-epoch $epo0a" );
# ----------------------------------------------------------------
my $cnt = 2;
foreach my $rfc1a ( @$rfc1z ) {
my $epo1a = &XML::FeedPP::Util::rfc1123_to_epoch( $rfc1a );
ok( $epo1a > 0, "$cnt: rfc1123-epoch $rfc1a" );
my $rfc1b = &XML::FeedPP::Util::epoch_to_rfc1123( $epo1a );
my $epo1b = &XML::FeedPP::Util::rfc1123_to_epoch( $rfc1b );
my $rfc1c = &XML::FeedPP::Util::epoch_to_rfc1123( $epo1b );
is( $rfc1b, $rfc1c, "$cnt: rfc1123-epoch-rfc1123 $rfc1a" );
$cnt ++;
}
# ----------------------------------------------------------------
foreach my $w3c2a ( @$w3c2z ) {
my $epo2a = &XML::FeedPP::Util::w3cdtf_to_epoch( $w3c2a );
ok( $epo2a > 0, "$cnt: w3cdtf-epoch $w3c2a" );
my $w3c2b = &XML::FeedPP::Util::epoch_to_w3cdtf( $epo2a );
my $epo2b = &XML::FeedPP::Util::w3cdtf_to_epoch( $w3c2b );
my $w3c2c = &XML::FeedPP::Util::epoch_to_w3cdtf( $epo2b );
is( $w3c2b, $w3c2c, "$cnt: w3cdtf-epoch-w3cdtf $w3c2a" );
$cnt ++;
}
# ----------------------------------------------------------------
foreach my $rfc3a ( @$rfc1z ) {
my $w3c3a = &XML::FeedPP::Util::get_w3cdtf( $rfc3a );
my $epo3a = &XML::FeedPP::Util::get_epoch( $rfc3a );
my $epo3b = &XML::FeedPP::Util::get_epoch( $w3c3a );
is( $epo3b, $epo3a, "$cnt: rfc1123/w3cdtf-epoch $rfc3a" );
$cnt ++;
}
# ----------------------------------------------------------------
foreach my $w3c4a ( @$w3c2z ) {
my $rfc4a = &XML::FeedPP::Util::get_rfc1123( $w3c4a );
my $epo4a = &XML::FeedPP::Util::get_epoch( $w3c4a );
my $epo4b = &XML::FeedPP::Util::get_epoch( $rfc4a );
is( $epo4b, $epo4a, "$cnt: rfc1123/w3cdtf-epoch $w3c4a" );
$cnt ++;
}
# ----------------------------------------------------------------
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------