File: 014_last_updated.t

package info (click to toggle)
libxml-rss-feed-perl 2.212-4
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 312 kB
  • sloc: perl: 2,581; makefile: 2
file content (19 lines) | stat: -rwxr-xr-x 506 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use Time::HiRes;

BEGIN { use_ok('XML::RSS::Feed') }

my $feed = XML::RSS::Feed->new(
    url            => "http://www.jbisbee.com/rdf/",
    name           => 'jbisbee',
    headline_as_id => 1,
);
isa_ok( $feed, 'XML::RSS::Feed' );

my $time = Time::HiRes::time();
$feed->set_last_updated($time);
ok( $time == $feed->last_updated_hires, "testing last_updated_hires" );
ok( int($time) == $feed->last_updated, "testing last_updated" );