Raymond Toy pushed to branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl Commits: aa283d2c by Raymond Toy at 2025-10-12T14:44:38-07:00 Add test for stat with 64-bit timestamp Create tests/resources/64-bit-timestamp.txt which has a date of Apr 1, 2038, which requires a 64-bit timestamp. Add a test that `probe-file` works with this file and also that `unix-stat` produces the correct time values. - - - - - 2 changed files: - tests/os.lisp - + tests/resources/64-bit-timestamp.txt Changes: ===================================== tests/os.lisp ===================================== @@ -34,3 +34,19 @@ (system:get-user-homedir-namestring "zotuserunknown") (assert-eql home-pathname nil) (assert-eql status 0))) + +#+linux +(define-test stat.64-bit-timestamp + (:tag :issues) + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt" + cl:*load-pathname*))) + (assert-true (probe-file test-file)) + (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size + st-atime st-mtime + st-ctime st-blksize st-blocks) + (unix:unix-stat (namestring test-file)) + (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev + st-ctime st-blksize st-blocks)) + (assert-true ok) + (assert-equal st-atime 2153718000) + (assert-equal st-mtime 2153718000)))) ===================================== tests/resources/64-bit-timestamp.txt ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/aa283d2cc48dadfb51ed52e2... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/aa283d2cc48dadfb51ed52e2... You're receiving this email because of your account on gitlab.common-lisp.net.