Commit | Line | Data |
710ed823 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use XML::Feed; |
6 | |
7 | my $file = 't/samples/rss10-datespaces.xml'; |
8 | my $feed = XML::Feed->parse($file); |
9 | isa_ok($feed, 'XML::Feed::Format::RSS'); |
10 | ok(my $date = $feed->modified, 'Got a feed modified date'); |
11 | isa_ok($date, 'DateTime'); |
12 | |
13 | my $link = $feed->link; |
14 | unlike($link, qr[^\s], 'No spaces at start of link'); |
15 | unlike($link, qr[\s$], 'No spaces at end of link'); |
16 | |
17 | my $entry = ($feed->entries)[0]; |
18 | ok(my $iss = $entry->issued, 'Got an entry issued date'); |
19 | isa_ok($iss, 'DateTime'); |
20 | |
21 | $link = $entry->link; |
22 | unlike($link, qr[^\s], 'No spaces at start of link'); |
23 | unlike($link, qr[\s$], 'No spaces at end of link'); |
24 | |
25 | done_testing; |