The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;
use FindBin;
use Pod::HTMLEmbed;

eval "use Text::Markdown; 1;";
plan skip_all => "Text::Markdown is required to run this test"
    if $@;

my $finder = Pod::HTMLEmbed->new(
    search_dir => ["$FindBin::Bin/pod"],
);

{
    my $pod = $finder->find('MyTestDoc');
    my $toc_expected = <<__TOC__;
* [NAME](#NAME)
* [SYNOPSIS](#SYNOPSIS)
* [AUTHOR](#AUTHOR)
* [SEE ALSO](#SEE%20ALSO)
__TOC__

    is $pod->toc,
        join('', split "\n", Text::Markdown::markdown($toc_expected)), 'toc ok';
}

{
    my $pod = $finder->find('MyTestDoc2');
    my $toc_expected = <<__TOC__;
* [NAME](#NAME)
* [SYNOPSIS](#SYNOPSIS)
* [DESCRIPTION](#DESCRIPTION)
   * [SECOND](#SECOND)
      * [THIRD](#THIRD)
* [METHODS](#METHODS)
   * [new](#new)
   * [hello](#hello)
* [AUTHOR](#AUTHOR)
* [SEE ALSO](#SEE%20ALSO)
__TOC__

    is $pod->toc,
        join('', split "\n", Text::Markdown::markdown($toc_expected)), 'toc2 ok';
}

done_testing;