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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 19;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $ftitle = "Title of the site";
my $fdesc = "Description of the site";
# ----------------------------------------------------------------
my $xmlns_media = 'http://search.yahoo.com/mrss';
my $xmlns_taxo = 'http://purl.org/rss/1.0/modules/taxonomy/';
my $xmlns_syn = 'http://purl.org/rss/1.0/modules/syndication/';
# ----------------------------------------------------------------
my $feed1 = XML::FeedPP::RSS->new();
$feed1->title( $ftitle );
my $xmlns1 = $feed1->xmlns();
is( join(" ",sort $feed1->xmlns()), "", "RSS xmlns=".$xmlns1 );
$feed1->xmlns( 'xmlns:syn' => $xmlns_syn );
is( $xmlns_syn, $feed1->xmlns('xmlns:syn'), 'RSS xmlns:syn' );
ok( $xmlns1+1 == scalar $feed1->xmlns(), 'RSS +1' );
my $source1 = $feed1->to_string();
like( $source1, qr{ <rss [^>]+ xmlns:syn="\Q$xmlns_syn\E" }x, 'RSS to_string' );
# ----------------------------------------------------------------
my $feed2 = XML::FeedPP::RDF->new();
$feed2->title( $ftitle );
my $xmlns2 = $feed2->xmlns();
is( join(" ",sort $feed2->xmlns()), "xmlns xmlns:dc xmlns:rdf", "RDF xmlns=".$xmlns2 );
$feed2->xmlns( 'xmlns:taxo' => $xmlns_taxo );
is( $xmlns_taxo, $feed2->xmlns('xmlns:taxo'), 'RDF xmlns:taxo' );
ok( $xmlns2+1 == scalar $feed2->xmlns(), 'RDF +1' );
my $source2 = $feed2->to_string();
like( $source2, qr{ <rdf:RDF [^>]+ xmlns:taxo="\Q$xmlns_taxo\E" }x, 'RDF to_string' );
# ----------------------------------------------------------------
my $feed3 = XML::FeedPP::Atom->new();
$feed3->title( $ftitle );
my $xmlns3 = $feed3->xmlns();
is( join(" ",sort $feed3->xmlns()), "xmlns", "Atom xmlns=".$xmlns3 );
$feed3->xmlns( 'xmlns:media' => $xmlns_media );
is( $xmlns_media, $feed3->xmlns('xmlns:media'), 'Atom xmlns:media' );
ok( $xmlns3+1 == scalar $feed3->xmlns(), 'Atom +1' );
my $source3 = $feed3->to_string();
like( $source3, qr{ <feed [^>]+ xmlns:media="\Q$xmlns_media\E" }x, 'Atom to_string' );
# ----------------------------------------------------------------
$feed1->merge( $source2 );
is( $xmlns_taxo, $feed1->xmlns('xmlns:taxo'), 'RSS merged xmlns:taxo' );
$feed1->merge( $source3 );
ok( $xmlns1+3 == scalar $feed1->xmlns(), 'RSS merged +3' );
# ----------------------------------------------------------------
$feed2->merge( $source3 );
is( $xmlns_media, $feed2->xmlns('xmlns:media'), 'RDF merged xmlns:media' );
$feed2->merge( $source1 );
ok( $xmlns2+3 == scalar $feed2->xmlns(), 'RDF merged +3' );
# ----------------------------------------------------------------
$feed3->merge( $source1 );
is( $xmlns_syn, $feed1->xmlns('xmlns:syn'), 'Atom merged xmlns:syn' );
$feed3->merge( $source2 );
ok( $xmlns3+3 == scalar $feed3->xmlns(), 'Atom merged +3' );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
