Permalink
Browse files

More clean up. We do strict testing only for release testing

  • Loading branch information...
1 parent a2ee301 commit 5a6fb771e80658a36e316356ac2c3480869fa05e @kthakore kthakore committed Nov 28, 2010
Showing with 21 additions and 21 deletions.
  1. +21 −21 t/00-load.t
View
@@ -75,40 +75,40 @@ BEGIN {
my $tests = scalar @modules;
-
- eval 'require Test::Strict';
-
my $load_test_strict = 0;
- $load_test_strict = 1 unless $@;
+ if( $ENV{RELEASE_TESTING})
+ {
+ eval 'require Test::Strict';
+ $load_test_strict = 1 unless $@;
+ }
foreach( @modules )
{
use_ok $_ ;
+ if( $load_test_strict )
+ {
- my $file = $_;
- my @files = split /::/, $file;
+ my $file = $_;
- $file = File::Spec->catfile( 'lib', @files );
+ my @files = split /::/, $file;
- $file = $file.'.pm';
-
- if( $load_test_strict )
- {
- eval 'Test::Strict::syntax_ok $file';
- pass unless $@;
- eval 'Test::Stict::strict_ok $file';
- pass unless $@;
- eval 'Test::Strict::warnings_ok $file';
- pass unless $@;
- }
- else
- {
- pass; pass; pass;
+ $file = File::Spec->catfile( 'lib', @files );
+
+ $file = $file.'.pm';
+
+ eval 'Test::Strict::syntax_ok $file';
+ pass unless $@;
+ eval 'Test::Stict::strict_ok $file';
+ pass unless $@;
+ eval 'Test::Strict::warnings_ok $file';
+ pass unless $@;
}
}
+
+
}
done_testing();

0 comments on commit 5a6fb77

Please sign in to comment.