Ticket #838: xt-with-release-checks.diff

Padre/xt/20-actions.t

@@ -17 +17 @@
 
 plan skip_all => 'DISPLAY not set'
  unless  $ENV{DISPLAY} or ($^O eq 'MSWin32');
+ 
+# Don't run tests for installs
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
 
 my $devpl;
 # Search for dev.pl

Padre/xt/01-copyright.t

@@ -4 +4 @@
 use Test::More;
 use File::Find::Rule;
 
+# Don't run tests for installs
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
 my @files = File::Find::Rule->name('*.pm')->file->in('lib');
 plan tests => scalar @files;
 

Padre/xt/critic-util.t

@@ -8 +8 @@
 use File::Spec::Functions ':ALL';
 
 BEGIN {
+    # Don't run tests for installs or automated tests
+    unless ( $ENV{RELEASE_TESTING} ) {
+        plan( skip_all => "Author tests not required for installation" );
+    }
     my $config = catfile('xt', 'critic-util.ini');
     unless ( eval "use Test::Perl::Critic -profile => '$config'; 1" ) {
         plan skip_all => 'Test::Perl::Critic required to criticise code';

Padre/xt/02-eol.t

@@ -3 +3 @@
 use Test::More;
 
 BEGIN {
+    # Don't run tests for installs
+    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+        plan( skip_all => "Author tests not required for installation" );
+    }
+    
     unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
         plan skip_all => 'Needs DISPLAY';
         exit 0;

Padre/xt/12-badcode.t

@@ -5 +5 @@
 use Test::More;
 
 BEGIN {
+    # Don't run tests for installs
+    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+        plan( skip_all => "Author tests not required for installation" );
+    }
+
     unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
         plan( skip_all => 'Needs DISPLAY' );
         exit(0);

Padre/xt/critic-core.t

@@ -8 +8 @@
 use File::Spec::Functions ':ALL';
 
 BEGIN {
+    # Don't run tests for installs or automated tests
+    unless ( $ENV{RELEASE_TESTING} ) {
+        plan( skip_all => "Author tests not required for installation" );
+    }
     my $config = catfile('xt', 'critic-core.ini');
     unless ( eval "use Test::Perl::Critic -profile => '$config'; 1" ) {
         plan skip_all => 'Test::Perl::Critic required to criticise code';

Padre/xt/03-compile.t

@@ -5 +5 @@
 use Test::More;
 
 BEGIN {
+    # Don't run tests for installs
+    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+        plan( skip_all => "Author tests not required for installation" );
+    }
+    
     unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
         plan skip_all => 'Needs DISPLAY';
         exit 0;

Padre/xt/11-pragmas.t

@@ -11 +11 @@
 use Test::More;
 use File::Find::Rule;
 
+# Don't run tests for installs
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
 my @files = File::Find::Rule->name('*.pm')->file->in('lib');
 plan tests => scalar @files;
 

Padre/xt/13-perl-beginner.t

@@ -61 +61 @@
 use Data::Dumper qw(Dumper);
 use File::Spec ();
 
+# Don't run tests for installs
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
 # enable NoWarning if this is fixed
 
 my %TEST = (