From cf599ede49eea71444c12873c9eb0224e2dd040b Mon Sep 17 00:00:00 2001
From: Dave Cooper <open-source@genworks.com>
Date: Sat, 19 Oct 2013 22:40:22 -0400
Subject: [PATCH] add sleep time to be sure about file timestamps esp. for
 Windows

---
 test/stamp-propagation/test-stamp-propagation.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/stamp-propagation/test-stamp-propagation.lisp b/test/stamp-propagation/test-stamp-propagation.lisp
index eb7a8b47..82963502 100644
--- a/test/stamp-propagation/test-stamp-propagation.lisp
+++ b/test/stamp-propagation/test-stamp-propagation.lisp
@@ -143,14 +143,16 @@
   (clear-fasls defsystem)
   (DBG "loading system")
   (reload defsystem)
-  (sleep 2) ;; TODO: on ASDF at least, instead touch the file stamp with the cache.
+  #-os-windows (sleep 3) ;; TODO: on ASDF at least, instead touch the file stamp with the cache.
+  #+os-windows (sleep 5) ;; TODO: on ASDF at least, instead touch the file stamp with the cache.
   (DBG "touching first source file and reloading")
   (DBG "defsystem should recompile & reload everything")
   (touch-file1.lisp)
   (assert-equal (sanitize-log (reload defsystem))
                 '((:compiling :system) (:compile-toplevel :file1) (:load-toplevel :file1)
                   (:compile-toplevel :file2) (:load-toplevel :file2)))
-  (sleep 2)
+  #-os-windows (sleep 3)
+  #+os-windows (sleep 5)
   (DBG "touching first fasl file and reloading")
   (DBG "defsystem should reload it, recompile & reload the other")
   (touch-file1.fasl defsystem)
-- 
GitLab