text-markdown-discount/t/13.html5.t

use strict;
use warnings;
use utf8;
use Test::More tests => 3;
use Text::Markdown::Discount qw/markdown/;

my $html = '<article>abc</article>';
{
    is trim(markdown($html)), '<p><article>abc</article></p>';
}

Text::Markdown::Discount::with_html5_tags();

{
    my $md = Text::Markdown::Discount->new();
    is trim(markdown($html)), '<article>abc</article>';
}

{
    is trim(Text::Markdown::Discount::markdown($html)), '<article>abc</article>';
}

sub trim {
    my $text = shift;
    $text =~ s/\A\s+//ms;
    $text =~ s/\s+$//ms;
    $text;
}