Changeset 10378


Ignore:
Timestamp:
01/30/10 06:25:16 (2 years ago)
Author:
azawawi
Message:

Fixed:838 "Author tests should all check RELEASE_TESTING and/or AUTOMATED_TESTING" (rhebus++)

Location:
trunk/Padre/xt
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/Padre/xt/01-copyright.t

    r10037 r10378  
    44use Test::More; 
    55use File::Find::Rule; 
     6 
     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} 
    611 
    712my @files = File::Find::Rule->name('*.pm')->file->in('lib'); 

  • trunk/Padre/xt/02-eol.t

    r9417 r10378  
    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'; 

  • trunk/Padre/xt/03-compile.t

    r10252 r10378  
    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'; 

  • trunk/Padre/xt/11-pragmas.t

    r9321 r10378  
    1111use Test::More; 
    1212use File::Find::Rule; 
     13 
     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} 
    1318 
    1419my @files = File::Find::Rule->name('*.pm')->file->in('lib'); 

  • trunk/Padre/xt/12-badcode.t

    r10116 r10378  
    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' ); 

  • trunk/Padre/xt/13-perl-beginner.t

    r9334 r10378  
    6161use Data::Dumper qw(Dumper); 
    6262use File::Spec (); 
     63 
     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} 
    6368 
    6469# enable NoWarning if this is fixed 

  • trunk/Padre/xt/20-actions.t

    r10072 r10378  
    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; 

  • trunk/Padre/xt/critic-core.t

    r9443 r10378  
    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" ) { 

  • trunk/Padre/xt/critic-util.t

    r9449 r10378  
    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" ) { 
Note: See TracChangeset for help on using the changeset viewer.