X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-posix%2Fposix-tests.lisp;h=a0c17b7090f34158cd0f8b03e8a35861151b3ca7;hb=3be1ab042ab74e008e40626cc6bd5190b27da033;hp=9de504b00de33166a0465dc794f5c5a6741e84d6;hpb=7c705bd988cfec5de87572abba9da3c16601388d;p=sbcl.git

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 9de504b..a0c17b7 100644
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -237,6 +237,7 @@
          (stat (sb-posix:stat *test-directory*))
          (atime (sb-posix::stat-atime stat)))
     ;; FIXME: breaks if mounted noatime :-(
+    #+nil (< (- atime unix-now) 10)
     (< (- atime unix-now) 10))
   t)
 
@@ -489,23 +490,6 @@
   t)
 
 #-win32
-(deftest utime.1
-    (let ((file (merge-pathnames #p"utime.1" *test-directory*))
-          (atime (random (1- (expt 2 31))))
-          (mtime (random (1- (expt 2 31)))))
-      (with-open-file (stream file
-                       :direction :output
-                       :if-exists :supersede
-                       :if-does-not-exist :create)
-        (princ "Hello, utime" stream))
-      (sb-posix:utime file atime mtime)
-      (let* ((stat (sb-posix:stat file)))
-        (delete-file file)
-        (list (= (sb-posix:stat-atime stat) atime)
-              (= (sb-posix:stat-mtime stat) mtime))))
-  (t t))
-
-#-win32
 (deftest utimes.1
     (let ((file (merge-pathnames #p"utimes.1" *test-directory*))
           (atime (random (1- (expt 2 31))))