t/endpod.t

   1 use strict;
   2 use warnings;
   3 use utf8;
   4 use Test::More;
   5 use Module::Metadata;
   6
   7 # This test case tests about parsing pod after `__END__` token.
   8
   9 my $pm_info = Module::Metadata->new_from_file('t/lib/ENDPOD.pm', collect_pod => 1,);
  10 is( $pm_info->name, 'ENDPOD', 'found default package' );
  11 is(join(',', $pm_info->pod_inside), 'NAME');
  12
  13 done_testing;
  14