[svn:parrot] r36921 - trunk/t/pmc

fperrad at svn.parrot.org fperrad at svn.parrot.org
Sat Feb 21 10:47:23 UTC 2009


Author: fperrad
Date: Sat Feb 21 10:47:23 2009
New Revision: 36921
URL: https://trac.parrot.org/parrot/changeset/36921

Log:
[t] skip new test on Windows

Modified:
   trunk/t/pmc/os.t

Modified: trunk/t/pmc/os.t
==============================================================================
--- trunk/t/pmc/os.t	Sat Feb 21 08:48:28 2009	(r36920)
+++ trunk/t/pmc/os.t	Sat Feb 21 10:47:23 2009	(r36921)
@@ -302,7 +302,7 @@
 my $lstat;
 
 SKIP: {
-    skip 'lstat not on Win32, faling on solaris', 1 if $MSWin32 or $solaris;
+    skip 'lstat not on Win32, falling on solaris', 1 if $MSWin32 or $solaris;
 
     my @s = lstat('xpto');
     if ($cygwin) {
@@ -393,8 +393,11 @@
     unlink "xpto" if -f "xpto";
 }
 
-my $prevnl = [ stat("tools") ]->[3];
-pir_output_is( <<"CODE", <<"OUT", "Test dirlink" );
+SKIP: {
+    skip "Hardlinks to files not possible on Windows", 1 if $MSWin32 or $cygwin;
+
+    my $prevnl = [ stat("tools") ]->[3];
+    pir_output_is( <<"CODE", <<"OUT", "Test dirlink" );
 .sub main :main
     .local pmc os
     .local string xpto, tools
@@ -431,6 +434,7 @@
 CODE
 ok
 OUT
+}
 
 # Local Variables:
 #   mode: cperl


More information about the parrot-commits mailing list