File: pod-simple-pandoc-parse-modules.t

package info (click to toggle)
libpod-pandoc-perl 0.5.0-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 248 kB
  • sloc: perl: 587; makefile: 5
file content (19 lines) | stat: -rw-r--r-- 444 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use strict;
use Test::More;
use Pod::Simple::Pandoc;
use Pandoc;
use Test::Output;

plan skip_all => 'pandoc not available' unless pandoc;

my $modules;

stderr_is {
    $modules = Pod::Simple::Pandoc->parse_modules('t/examples');
} "t/examples/Foo.pm NAME does not match module\n".
  "t/examples/Pandoc skipped for t/examples/Pandoc.pod\n",
  "parse_modules";

is_deeply [ keys %$modules ], ['Pandoc'], 'module name from file';

done_testing;