use strict;
use warnings;
use utf8;
use Test::More tests => 6;
use Text::Markdown::Discount;

is(
    strip(Text::Markdown::Discount::markdown("<section>foo</section>", undef, {with_html5 => 0})),
    "<p><section>foo</section></p>");

is(
    strip(Text::Markdown::Discount::markdown("<section>foo</section>", undef, {with_html5 => 1})),
    "<section>foo</section>");

is(
    strip(Text::Markdown::Discount::markdown("<section>foo</section>", undef, {with_html5 => 0})),
    "<p><section>foo</section></p>");

is(
    strip(Text::Markdown::Discount->new()->markdown("<section>foo</section>", undef, {with_html5 => 0})),
    "<p><section>foo</section></p>");

is(
    strip(Text::Markdown::Discount->new()->markdown("<section>foo</section>", undef, {with_html5 => 1})),
    "<section>foo</section>");

is(
    strip(Text::Markdown::Discount->new()->markdown("<section>foo</section>", undef, {with_html5 => 0})),
    "<p><section>foo</section></p>");

sub strip {
    my $str = shift;
    $str =~ s/\s*//g;
    return $str;
}