use Test::More tests => 10; use Text::Markdown::Discount; { my $mkd = Text::Markdown::Discount->new(smart => 1); is( $mkd->markdown(qq{"Quoted text"}), qq{
“Quoted text”
\n}, ); $mkd = Text::Markdown::Discount->new(smart => 0); is( $mkd->markdown(qq{"Quoted text"}), qq{"Quoted text"
\n}, ); my $output = Text::Markdown::Discount->new->smart->markdown(qq{"Quoted text"}); is($output, qq{“Quoted text”
\n}); $output = Text::Markdown::Discount->new->smart(0)->markdown(qq{"Quoted text"}); is($output, qq{"Quoted text"
\n}); $output = Text::Markdown::Discount->new->smart(1)->markdown(qq{"Quoted text"}); is($output, qq{“Quoted text”
\n}); } { my $mkd = Text::Markdown::Discount->new(filter_html => 1); is( $mkd->markdown(qq{para
}), qq{<p>para</p>
\n}, ); $mkd = Text::Markdown::Discount->new(filter_html => 0); is( $mkd->markdown(qq{para
}), qq{para
\n\n}, ); my $output = Text::Markdown::Discount->new->filter_html->markdown(qq{para
}); is($output, qq{<p>para</p>
\n}); $output = Text::Markdown::Discount->new->filter_html(0)->markdown(qq{para
}); is($output, qq{para
\n\n}); $output = Text::Markdown::Discount->new->filter_html(1)->markdown(qq{para
}); is($output, qq{<p>para</p>
\n}); }