paste.perl

#----------------------------------------------------------------------------
# Test that HTML entities are decoded.
$article->update({
    description     => "schön & cañón",
});
$indexer = WebGUI::Search::Index->create( $article );

my $pretty = "schön";
my $canyon = "cañón";

utf8::upgrade($pretty);
utf8::upgrade($canyon);

$row = $db->quickHashRef( "SELECT * FROM assetIndex WHERE assetId=?", [ $article->getId ] );
my $keywords = $row->{keywords};
utf8::upgrade($keywords);
cmp_deeply ( 
    $row,
    superhashof({
        keywords        => all( # keywords contains title, menuTitle, every part of the URL and every keyword
            re($pretty),
            re("&"),
            re($canyon),
        ),
    }),
    "Index has decoded entities" 
);