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

File xt-with-release-checks.diff, 4.7 KB (added by rhebus, 5 years ago)

Patch adding checks to xt/*

  • Padre/xt/20-actions.t

     
    1717 
    1818plan skip_all => 'DISPLAY not set' 
    1919 unless  $ENV{DISPLAY} or ($^O eq 'MSWin32'); 
     20  
     21# Don't run tests for installs 
     22unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     23    plan( skip_all => "Author tests not required for installation" ); 
     24} 
    2025 
    2126my $devpl; 
    2227# Search for dev.pl 
  • Padre/xt/01-copyright.t

     
    44use Test::More; 
    55use File::Find::Rule; 
    66 
     7# Don't run tests for installs 
     8unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     9    plan( skip_all => "Author tests not required for installation" ); 
     10} 
     11 
    712my @files = File::Find::Rule->name('*.pm')->file->in('lib'); 
    813plan tests => scalar @files; 
    914 
  • Padre/xt/critic-util.t

     
    88use File::Spec::Functions ':ALL'; 
    99 
    1010BEGIN { 
     11    # Don't run tests for installs or automated tests 
     12    unless ( $ENV{RELEASE_TESTING} ) { 
     13        plan( skip_all => "Author tests not required for installation" ); 
     14    } 
    1115    my $config = catfile('xt', 'critic-util.ini'); 
    1216    unless ( eval "use Test::Perl::Critic -profile => '$config'; 1" ) { 
    1317        plan skip_all => 'Test::Perl::Critic required to criticise code'; 
  • Padre/xt/02-eol.t

     
    33use Test::More; 
    44 
    55BEGIN { 
     6    # Don't run tests for installs 
     7    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     8        plan( skip_all => "Author tests not required for installation" ); 
     9    } 
     10     
    611    unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) { 
    712        plan skip_all => 'Needs DISPLAY'; 
    813        exit 0; 
  • Padre/xt/12-badcode.t

     
    55use Test::More; 
    66 
    77BEGIN { 
     8    # Don't run tests for installs 
     9    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     10        plan( skip_all => "Author tests not required for installation" ); 
     11    } 
     12 
    813    unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) { 
    914        plan( skip_all => 'Needs DISPLAY' ); 
    1015        exit(0); 
  • Padre/xt/critic-core.t

     
    88use File::Spec::Functions ':ALL'; 
    99 
    1010BEGIN { 
     11    # Don't run tests for installs or automated tests 
     12    unless ( $ENV{RELEASE_TESTING} ) { 
     13        plan( skip_all => "Author tests not required for installation" ); 
     14    } 
    1115    my $config = catfile('xt', 'critic-core.ini'); 
    1216    unless ( eval "use Test::Perl::Critic -profile => '$config'; 1" ) { 
    1317        plan skip_all => 'Test::Perl::Critic required to criticise code'; 
  • Padre/xt/03-compile.t

     
    55use Test::More; 
    66 
    77BEGIN { 
     8    # Don't run tests for installs 
     9    unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     10        plan( skip_all => "Author tests not required for installation" ); 
     11    } 
     12     
    813    unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) { 
    914        plan skip_all => 'Needs DISPLAY'; 
    1015        exit 0; 
  • Padre/xt/11-pragmas.t

     
    1111use Test::More; 
    1212use File::Find::Rule; 
    1313 
     14# Don't run tests for installs 
     15unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     16    plan( skip_all => "Author tests not required for installation" ); 
     17} 
     18 
    1419my @files = File::Find::Rule->name('*.pm')->file->in('lib'); 
    1520plan tests => scalar @files; 
    1621 
  • Padre/xt/13-perl-beginner.t

     
    6161use Data::Dumper qw(Dumper); 
    6262use File::Spec (); 
    6363 
     64# Don't run tests for installs 
     65unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 
     66    plan( skip_all => "Author tests not required for installation" ); 
     67} 
     68 
    6469# enable NoWarning if this is fixed 
    6570 
    6671my %TEST = (