Text::Markdown::Discount
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

20 lines
421 B

11 years ago
  1. use strict;
  2. use warnings;
  3. use utf8;
  4. use Test::More tests => 4;
  5. use Text::Markdown::Discount;
  6. {
  7. my $perl_string = '# あ';
  8. my $html = Text::Markdown::Discount::markdown($perl_string);
  9. like $html, qr!<h1>あ</h1>!;
  10. ok utf8::is_utf8($html);
  11. }
  12. {
  13. no utf8;
  14. my $byte = '# あ';
  15. my $html = Text::Markdown::Discount::markdown($byte);
  16. like $html, qr!<h1>あ</h1>!;
  17. ok !utf8::is_utf8($html);
  18. }