#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use XML::RSS;
{
my $rss = XML::RSS->new( version => '2.0' );
$rss->channel(
link => "http://www.homesite.tld/",
description => "My homesite",
title => "With content",
);
$rss->add_module(
prefix => 'content',
uri => 'http://purl.org/rss/1.0/modules/content/'
);
$rss->add_item(
title => 'title',
content => { encoded => 'this is content' },
);
# TEST
like $rss->as_string, qr/this is content/;
}
{
my $rss = XML::RSS->new( version => '2.0' );
eval {
$rss->add_module(
prefix => 'a/b',
uri => 'http://foobar.tld/foo/'
);
};
# TEST
like ($@, qr{\Aa namespace prefix should look like},
"Testing for invalidty of / as a prefix char");
}
{
my $rss = XML::RSS->new( version => '2.0' );
eval {
$rss->add_module(
prefix => "myprefix",
);
};
# TEST
like ($@, qr{\Aa URI must be provided},
"Testing for exception upon an unspecified URI.");
}
{
my $rss = XML::RSS->new( version => '2.0' );
# TEST
ok($rss->add_module(prefix=>'creativeCommons', uri=>'http://backend.userland.com/creativeCommonsRssModule'),"Added namespace with uppercase letters in prefix");
}