Raymond Toy pushed to branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • tests/os.lisp
    ... ... @@ -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))))

  • tests/resources/64-bit-timestamp.txt