t/contains_pod.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 3;
   4 use Module::Metadata;
   5
   6 *fh_from_string = $] < 5.008
   7   ? require IO::Scalar && sub ($) {
   8     IO::Scalar->new(\$_[0]);
   9   }
  10   : sub ($) {
  11     open my $fh, '<', \$_[0];
  12     $fh
  13   }
  14 ;
  15
  16 {
  17     my $src = <<'...';
  18 package Foo;
  19 1;
  20 ...
  21
  22     my $fh = fh_from_string($src);
  23     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  24     ok(!$module->contains_pod(), 'This module does not contains POD');
  25 }
  26
  27 {
  28     my $src = <<'...';
  29 package Foo;
  30 1;
  31
  32 =head1 NAME
  33
  34 Foo - bar
  35 ...
  36
  37     my $fh = fh_from_string($src);
  38     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  39     ok($module->contains_pod(), 'This module contains POD');
  40 }
  41
  42 {
  43     my $src = <<'...';
  44 package Foo;
  45 1;
  46
  47 =head1 NAME
  48
  49 Foo - bar
  50
  51 =head1 AUTHORS
  52
  53 Tokuhiro Matsuno
  54 ...
  55
  56     my $fh = fh_from_string($src);
  57     my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
  58     ok($module->contains_pod(), 'This module contains POD');
  59 }