From: gfx <gfuji@cpan.org>
Date: Sun, 25 Oct 2009 05:37:59 +0000 (+0900)
Subject: Repeat test with MOUSE_PUREPERL=1 in "make test", adding "make test_pp" target
X-Git-Tag: 0.40_01~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83eab7b3a3c57c79fe5c3f4585f1eb96efb1669c;p=gitmo%2FMouse.git

Repeat test with MOUSE_PUREPERL=1 in "make test", adding "make test_pp" target
---

diff --git a/Makefile.PL b/Makefile.PL
index dea9173..cce2956 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,3 +1,4 @@
+BEGIN{ $INC{'Module/Install/ExtraTests.pm'} = __FILE__ } # to disable the use of ExtrTests
 use strict;
 use warnings;
 use inc::Module::Install;
@@ -47,7 +48,7 @@ else{
     print "Mouse configured in Pure Perl (--pp)\n";
 }
 
-if ($Module::Install::AUTHOR) {
+if (author_context()) {
     local @INC = ('lib', @INC);
     require 'lib/Mouse/Spec.pm';
     my $require_version = Mouse::Spec->MooseVersion;
@@ -68,3 +69,17 @@ clean_files 'lib/Mouse/Tiny.pm';
 
 WriteAll check_nmake => 0;
 
+sub MY::postamble{
+    return '' unless author_context() && $use_xs;
+
+    # repeat test
+    # see also ExtUtils::MM_Any::test_via_harness()
+    my $test_via_harness =  q{$(FULLPERLRUN) -MExtUtils::Command::MM -e}
+                           .q{ "do 'author/force-pp.pl'; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"}
+                           .q{ $(TEST_FILES)} . "\n";
+
+    return   qq{test_dynamic :: test_pp\n\n}
+           . qq{test_pp :: pure_all\n}
+           . qq{\t} . $test_via_harness;
+}
+
diff --git a/author/force-pp.pl b/author/force-pp.pl
new file mode 100644
index 0000000..b2e65d0
--- /dev/null
+++ b/author/force-pp.pl
@@ -0,0 +1,3 @@
+
+$ENV{MOUSE_PUREPERL} = 1;
+