mojo_dom_bug_maybe

BEGIN {
  $ENV{BAIL_ON_FAIL} ||= 1;
}

use Modern::Perl qw|2013|;
use Data::Printer (use_prototypes => 0);
use Test::Most;
use Mojo::DOM;

my $rss = "<channel>
  <link>http://host.example</link>
  <description>Lorem ipsum dolor sit amet</description>
  <encoding>UTF-8</encoding>
  <language>ru-ru</language>
  <title>RSS Channel Title</title>
</channel>
";

my $dom = Mojo::DOM->new($rss);
$dom->xml(1);
is($dom->xml, 1, 'xml semantics enabled');
is($dom->at("channel > title")->text, 'RSS Channel Title', 'correct title');
is($dom->at("channel > encoding")->text, 'UTF-8', 'correct encoding');
is($dom->at("channel > language")->text, 'ru-ru', 'correct language');
is($dom->at("channel > link")->text, 'http://host.example', 'correct link') ; #  - this one fails

say p $dom."";
# "<channel>
#   <link />http://host.example
#   <description>Lorem ipsum dolor sit amet</description>
#   <encoding>UTF-8</encoding>
#   <language>ru-ru</language>
#   <title>RSS Channel Title</title>
# </channel>
# "

done_testing;