[libdist-zilla-plugin-test-podspelling-perl] 03/10: test to ensure that distmeta does not get called before filemunging phase

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag v2.006007
in repository libdist-zilla-plugin-test-podspelling-perl.

commit f4aada464d388336c1fd6be087b7800a59daefef
Author: Karen Etheridge <ether at cpan.org>
Date:   Mon Mar 3 19:35:59 2014 -0800

    test to ensure that distmeta does not get called before filemunging phase
---
 t/phase.t | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/t/phase.t b/t/phase.t
new file mode 100644
index 0000000..5fe0dd6
--- /dev/null
+++ b/t/phase.t
@@ -0,0 +1,46 @@
+use strict;
+use warnings;
+use Test::More;
+use Test::DZil;
+use Test::Fatal;
+
+{
+	package Dist::Zilla::Plugin::CheckPhases;
+	use Moose;
+	with 'Dist::Zilla::Role::FileMunger';
+	use Moose::Util 'find_meta';
+
+	# runs before [Test::PodSpelling]'s munge_files
+	sub munge_files
+	{
+		my $self = shift;
+		my $distmeta_attr = find_meta($self->zilla)->find_attribute_by_name('distmeta');
+		die 'distmeta has already been calculated before file munging phase!'
+			if $distmeta_attr->has_value($self->zilla);
+	}
+}
+
+my $tzil
+	= Builder->from_config(
+		{
+			dist_root    => 'corpus/a',
+		},
+		{
+			add_files => {
+				'source/lib/Foo.pm' => "package Foo;\n1;\n",
+				'source/dist.ini' => simple_ini(
+					[ GatherDir => ],
+					[ CheckPhases => ],
+					['Test::PodSpelling']
+				)
+			}
+		},
+	);
+
+is(
+	exception { $tzil->build },
+	undef,
+	'no exceptions during dzil build',
+);
+
+done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git