App-jupiter
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/encoding-rss.t view on Meta::CPAN
# Copyright (C) 2020â2021 Alex Schroeder <alex@gnu.org>
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
use utf8;
use Encode;
use Modern::Perl;
use Test::More;
use File::Slurper qw(write_binary read_binary write_text);
do './t/test.pl';
my ($id, $port) = init();
write_text("test-$id/rss2sample.opml", <<"EOT");
<opml version="2.0">
<body>
<outline title="اÙعربÙÙØ©"
xmlUrl="http://127.0.0.1:$port/"/>
</body>
</opml>
EOT
my $rss = <<'EOT';
<?xml version="1.0" encoding='UTF-8'?>
<rss version="2.0">
<channel>
<title>Foo & Bar</title>
<link>https://alexschroeder.ch/</link>
<pubDate>Mon, 13 Jan 2020 23:16:01 +0100</pubDate>
<item>
<title>اÙسÙÙاÙ
عÙÙÙ</title>
<link>http://hello/wiki?user=Alex&lang=ar</link>
<description><style>some CSS, I guess</style><em>D&D</em> is not bad!<br>You'll like <span class='p-name'>Foo & Bar</span>.</description>
<author><span class='p-author h-card'>Alex Schroeder</span></author>
</item>
</channel>
</rss>
EOT
start_daemon(encode_utf8 $rss);
Jupiter::update_cache("test-$id/rss2sample.opml");
stop_daemon();
Jupiter::make_html("test-$id/rss2sample.html", "test-$id/rss2sample.xml", "test-$id/rss2sample.opml");
ok(-f "test-$id/rss2sample.html", "HTML was generated");
my $doc = XML::LibXML->load_html(location => "test-$id/rss2sample.html");
is($doc->findvalue('//h3/a[position()=2]'), "اÙسÙÙاÙ
عÙÙÙ", "Encoded item title matches");
is($doc->findvalue('//li/a[position()=2]'), "Foo & Bar", "Encoded feed title matches");
is($doc->findvalue('//h3/a[position()=1]'), "Foo & Bar", "Encoded feed title matches again");
is($doc->findvalue('//h3/a[position()=2]/@href'), "http://hello/wiki?user=Alex&lang=ar", "Encoded link matches");
is($doc->findnodes('//div[@class="content"]')->get_node(1)->toString(),
q(<div class="content">D&D is not bad!<span class="paragraph">¶ </span>You'll like Foo & Bar.</div>),
"Content HTML matches");
like($doc->findnodes('//div[@class="permalink"]')->get_node(1)->toString(),
qr(by Alex Schroeder),
"Author HTML matches");
unlike($doc->findvalue('//div[@class="content"]'), qr/CSS/, "Style is stripped");
ok(-f "test-$id/rss2sample.xml", "RSS was generated");
$doc = XML::LibXML->load_xml(location => "test-$id/rss2sample.xml");
like(($doc->findnodes('/rss/channel/item/description'))[0]->toString,
qr/<em>D&D<\/em> is not bad!<br>You'll like <span class='p-name'>Foo & Bar<\/span>\./,
"Encoded content matches");
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.514 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )