t/contains_pod.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 3;
   4 use Module::Metadata;
   5
   6 {
   7     my $src = <<'...';
   8 package Foo;
   9 1;
  10 ...
  11
  12     open my $fh, '<', \$src;
  13     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  14     ok(!$module->contains_pod(), 'This module does not contains POD');
  15 }
  16
  17 {
  18     my $src = <<'...';
  19 package Foo;
  20 1;
  21
  22 =head1 NAME
  23
  24 Foo - bar
  25 ...
  26
  27     open my $fh, '<', \$src;
  28     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  29     ok($module->contains_pod(), 'This module contains POD');
  30 }
  31
  32 {
  33     my $src = <<'...';
  34 package Foo;
  35 1;
  36
  37 =head1 NAME
  38
  39 Foo - bar
  40
  41 =head1 AUTHORS
  42
  43 Tokuhiro Matsuno
  44 ...
  45
  46     open my $fh, '<', \$src;
  47     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  48     ok($module->contains_pod(), 'This module contains POD');
  49 }