[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