commit fb7e601b36015a46dc007f114e42f550ddf8a774
from: cage <cage@invalid>
date: Fri Jan 21 15:30:45 2022 UTC

- [regress-extra] added testing for changing atime and mtime using wstat.

commit - b3ed4134c8a8c85c9bcd7f1055e35bc8fca7006c
commit + fb7e601b36015a46dc007f114e42f550ddf8a774
blob - aa0c502d48da1b9878d15beea6e63c0e8b281db2
blob + 127a3c0ff850013600750c0699609cc125746dca
--- regress/lisp/9p-test/kami-tests.lisp
+++ regress/lisp/9p-test/kami-tests.lisp
@@ -590,3 +590,47 @@
   (assert-equality #'=
       +truncate-size+
       (example-truncate-file (renamed-filename))))
+
+(alexandria:define-constant +new-atime+   (encode-universal-time 0 0 10 22 10 1990) :test #'=)
+
+(alexandria:define-constant +new-atime-2+ (encode-universal-time 0 0 10 22 10 1999) :test #'=)
+
+(alexandria:define-constant +new-mtime+   (encode-universal-time 0 0 11 23 11 1991) :test #'=)
+
+(defun example-change-access-time-file (path time &optional (root "/"))
+  (with-open-ssl-stream (stream
+                         socket
+                         *host*
+                         *port*
+                         *client-certificate*
+                         *certificate-key*)
+    (let* ((*messages-sent* ())
+           (root-fid        (mount stream root)))
+      (change-access-time stream root-fid path time)
+      (let ((info (path-info stream root-fid path)))
+        (stat-atime info)))))
+
+(defun example-change-modify-time-file (path atime mtime &optional (root "/"))
+  (with-open-ssl-stream (stream
+                         socket
+                         *host*
+                         *port*
+                         *client-certificate*
+                         *certificate-key*)
+    (let* ((*messages-sent* ())
+           (root-fid        (mount stream root)))
+      (change-modify-time stream root-fid path mtime)
+      (change-access-time stream root-fid path atime)
+      (let ((info (path-info stream root-fid path)))
+        (values (stat-atime info)
+                (stat-mtime info))))))
+
+(deftest test-change-access-time ((kami-suite) (test-move-file))
+  (assert-equality #'=
+      +new-atime+
+      (example-change-access-time-file (renamed-filename) +new-atime+))
+  (let ((expected-times (list +new-atime-2+ +new-mtime+)))
+    (assert-equalp expected-times
+        (multiple-value-list (example-change-modify-time-file (renamed-filename)
+                                                              +new-atime-2+
+                                                              +new-mtime+)))))