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
2 changed files:
Changes:
... | ... | @@ -34,3 +34,19 @@ |
34 | 34 | (system:get-user-homedir-namestring "zotuserunknown")
|
35 | 35 | (assert-eql home-pathname nil)
|
36 | 36 | (assert-eql status 0)))
|
37 | + |
|
38 | +#+linux
|
|
39 | +(define-test stat.64-bit-timestamp
|
|
40 | + (:tag :issues)
|
|
41 | + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt"
|
|
42 | + cl:*load-pathname*)))
|
|
43 | + (assert-true (probe-file test-file))
|
|
44 | + (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size
|
|
45 | + st-atime st-mtime
|
|
46 | + st-ctime st-blksize st-blocks)
|
|
47 | + (unix:unix-stat (namestring test-file))
|
|
48 | + (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev
|
|
49 | + st-ctime st-blksize st-blocks))
|
|
50 | + (assert-true ok)
|
|
51 | + (assert-equal st-atime 2153718000)
|
|
52 | + (assert-equal st-mtime 2153718000)))) |