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)))) |