[svk-commit] r2259 - branches/2.0-releng/t

[nobody at bestpractical.com]

Author: clkao
Date: Sun Dec 24 08:32:33 2006
New Revision: 2259

Modified:
   branches/2.0-releng/t/19cleanup.t

Log:
Workaround test trying to read locked file on win32.

Modified: branches/2.0-releng/t/19cleanup.t
==============================================================================
--- branches/2.0-releng/t/19cleanup.t	(original)
+++ branches/2.0-releng/t/19cleanup.t	Sun Dec 24 08:32:33 2006
@@ -2,6 +2,7 @@
 use Test::More tests => 15;
 use strict;
 use SVK::Test;
+use SVK::Util 'IS_WIN32';
 require Storable;
 
 my ($xd, $svk) = build_test();
@@ -15,7 +16,10 @@
 $xd->{giantlock} = __("$repospath/svk.giant");
 
 $xd->giant_lock;
+SKIP: {
+skip 'lock prevents file being read on win32', 1 if IS_WIN32;
 is_file_content ($xd->{giantlock}, $$, 'giant locked');
+}
 ok ($xd->{giantlock_handle}, 'giant locked');
 $xd->store;
 ok ($xd->{updated}, 'marked as updated');