Author: particle
Date: Fri Nov 4 13:48:48 2005
New Revision: 9787
Modified:
trunk/t/library/File-Spec.t
Log:
modify test plan
Modified: trunk/t/library/File-Spec.t
==============================================================================
--- trunk/t/library/File-Spec.t (original)
+++ trunk/t/library/File-Spec.t Fri Nov 4 13:48:48 2005
@@ -33,9 +33,6 @@ END:
POST
-plan skip_all => 'win32 implementation only'
- unless $^O =~ m/MSWin32/;
-
## 1
pir_output_is(<<'CODE'.$POST, <<'OUT', "load_bytecode");
.sub 'main' :main
@@ -116,4 +113,11 @@ OUT
# remember to update the number of tests! :-)
-BEGIN { plan tests => 21; }
+BEGIN {
+ if( $^O eq 'MSWin32' ) {
+ plan tests => 21;
+ } else {
+ plan skip_all => 'win32 implementation only' unless $^O =~
m/MSWin32/;
+ }
+}
+
