Author: tim.bunce
Date: Sat Mar 7 10:01:19 2009
New Revision: 702
Modified:
trunk/t/92-file_port.t
Log:
Fix up t/92-file_port.t to fail more gracefully when not runnable or
enabled.
Modified: trunk/t/92-file_port.t
==============================================================================
--- trunk/t/92-file_port.t (original)
+++ trunk/t/92-file_port.t Sat Mar 7 10:01:19 2009
@@ -5,11 +5,17 @@
use Test::More;
+plan skip_all => "This currently a developer-only test"
+ unless -d '.svn';
+
eval "use Test::Portability::Files";
-SKIP: {
- skip "Test::Portability::Files required for testing filenames
portability, this currently a developer-only test", 1 unless (!$@ &&
(-d '.svn') && ($ENV{'NYTPROF_TEST_PORTABILITY_FILES'}) );
- options(all_tests => 1); # to be hyper-strict
- run_tests();
-}
+plan skip_all => "Test::Portability::Files required for testing filename
portability"
+ if $@;
+
+plan skip_all => "Set NYTPROF_TEST_PORTABILITY_FILES env var to enable
test"
+ unless $ENV{'NYTPROF_TEST_PORTABILITY_FILES'};
+
+options(all_tests => 1); # to be hyper-strict
+run_tests();
1;
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
