Adds a .pm.PL test.

metacpan · Aug 3, 2013 · 8fedbb4 · 8fedbb4
1 parent db037b3
commit 8fedbb4
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 0 deletions.
diff --git a/t/release/pm-PL.t b/t/release/pm-PL.t
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+
+use Test::More;
+use MetaCPAN::Server::Test;
+
+my $model = model();
+my $idx   = $model->index( 'cpan' );
+
+ok( my $pm = $idx->type( 'file' )->find( 'uncommon:sense' ),
+    'find sense.pm.PL module' );
+
+is( $pm->name, 'sense.pm.PL', 'name is correct' );
+
+is( $pm->module->[0]->associated_pod,
+    'MO/uncommon-sense-0.01/sense.pod',
+    'has associated pod file'
+);
+
+done_testing;
diff --git a/t/var/fakecpan/configs/uncommon-sense.json b/t/var/fakecpan/configs/uncommon-sense.json
@@ -0,0 +1,14 @@
+{
+  "name": "uncommon-sense",
+  "abstract": "Distribution with .pm.PL file",
+  "X_Module_Faker": {
+    "cpan_author": "MO",
+    "append": [ {
+        "file": "sense.pm.PL",
+        "content": "#! perl-000\n\nour $VERSION = '0.01';\n\n__DATA__\npackage uncommon::sense;"
+    },{
+        "file": "sense.pod",
+        "content": "\n\n=head1 NAME\n\nuncommon::sense - I'm special"
+    }]
+  }
+}