X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fendpod.t;fp=t%2Fendpod.t;h=6ee0ff2bd003426b7f5eb156d466faf347163b8d;hb=e530a2cd55786d11150551b9b25534113507c4b5;hp=0000000000000000000000000000000000000000;hpb=8e4bef0157d39acfa8212ca3c644daea44a815d6;p=p5sagit%2FModule-Metadata.git

diff --git a/t/endpod.t b/t/endpod.t
new file mode 100644
index 0000000..6ee0ff2
--- /dev/null
+++ b/t/endpod.t
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+use utf8;
+use Test::More;
+use Module::Metadata;
+
+# This test case tests about parsing pod after `__END__` token.
+
+my $pm_info = Module::Metadata->new_from_file('t/lib/ENDPOD.pm', collect_pod => 1,);
+is( $pm_info->name, 'ENDPOD', 'found default package' );
+is(join(',', $pm_info->pod_inside), 'NAME');
+
+done_testing;
+