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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 49;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
{
my $rss = <<'EOT';
<rss version="2.0">
<channel>
<title>kawa.net</title>
<link>http://www.kawa.net/</link>
</channel>
</rss>
EOT
my $rdf = <<'EOT';
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns="http://purl.org/rss/1.0/" xmlns:dc="http://purl.org/dc/elements/1.1/">
<channel rdf:about="http://www.kawa.net/">
<title>kawa.net</title>
<link>http://www.kawa.net/</link>
</channel>
</rdf:RDF>
EOT
my $atom03 = <<'EOT';
<feed xmlns="http://www.w3.org/2005/Atom">
<title>kawa.net</title>
<link rel="alternate" href="http://www.kawa.net/" />
</feed>
EOT
my $atom10 = <<'EOT';
<feed xmlns="http://purl.org/atom/ns#" version="0.3">
<title type="text/plain">kawa.net</title>
<link rel="alternate" type="text/html" href="http://www.kawa.net/" />
</feed>
EOT
my $bom = "\xEF\xBB\xBF";
my $xml = '<?xml version="1.0" encoding="UTF-8" ?>';
# without xml decl
&test_main( 'NoDecl RSS 2.0', $rss );
&test_main( 'NoDecl RSS 1.0', $rdf );
&test_main( 'NoDecl Atom 0.3', $atom03 );
&test_main( 'NoDecl Atom 1.0', $atom10 );
# with xml decl
&test_main( 'XMLDecl RSS 2.0', $xml.$rss );
&test_main( 'XMLDecl RSS 1.0', $xml.$rdf );
&test_main( 'XMLDecl Atom 0.3', $xml.$atom03 );
&test_main( 'XMLDecl Atom 1.0', $xml.$atom10 );
# with bom but no xml decl
&test_main( 'BOM RSS 2.0', $bom.$rss );
&test_main( 'BOM RSS 1.0', $bom.$rdf );
&test_main( 'BOM Atom 0.3', $bom.$atom03 );
&test_main( 'BOM Atom 1.0', $bom.$atom10 );
# with bom and xml decl
&test_main( 'BOM XMLDecl RSS 2.0', $bom.$xml.$rss );
&test_main( 'BOM XMLDecl RSS 1.0', $bom.$xml.$rdf );
&test_main( 'BOM XMLDecl Atom 0.3', $bom.$xml.$atom03 );
&test_main( 'BOM XMLDecl Atom 1.0', $bom.$xml.$atom10 );
}
# ----------------------------------------------------------------
sub test_main {
my $title = shift;
my $source = shift;
my $feed = XML::FeedPP->new($source);
ok( $feed, 'load: '.$title );
is( +$feed->title, 'kawa.net', 'title: '.$title );
is( +$feed->link, 'http://www.kawa.net/', 'link: '.$title );
}
# ----------------------------------------------------------------
|
