Commit 05a0280f authored by Robert Goldman's avatar Robert Goldman
Browse files

Make touch test more tolerant of clock issues. 

Use offset to ensure that touch changes the timestamp in a predictable
way.
parent 64862fff

test/test-touch-system-1.script

+1 −1
Changes for test/test-touch-system-1.script: 1 added line, 1 removed line.
Original line number Original line Diff line number Diff line
@@ -30,7 +30,7 @@ 
(sleep 1)

(sleep 1)





(clear-system :test1)

(clear-system :test1)

(touch-file test1.asd)

(touch-file test1.asd :offset 600)

(find-system :test1)

(find-system :test1)

(defparameter date6 (system-registered-time :test1))

(defparameter date6 (system-registered-time :test1))

(assert-compare (> date6 date4))
 
(assert-compare (> date6 date4))