Repeat test with MOUSE_PUREPERL=1 in "make test", adding "make test_pp" target
gfx [Sun, 25 Oct 2009 05:37:59 +0000 (14:37 +0900)]
Makefile.PL
author/force-pp.pl [new file with mode: 0644]

index dea9173..cce2956 100755 (executable)
@@ -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 (file)
index 0000000..b2e65d0
--- /dev/null
@@ -0,0 +1,3 @@
+
+$ENV{MOUSE_PUREPERL} = 1;
+