file-chauthor.lisp 470 B

1234567891011121314
  1. (in-package :translator-test)
  2. (def-test-method file-chauthor-test ((test fs-test))
  3. (with-testport (p (file-name-lookup +translator-root+))
  4. (let ((stat (io-stat p)))
  5. (assert-equal 0 (stat-get stat 'st-author))
  6. (assert-true (file-chauthor p 100))
  7. (setf stat (io-stat p))
  8. (assert-equal 100 (stat-get stat 'st-author))
  9. (assert-true (file-chauthor p 0))
  10. (setf stat (io-stat p))
  11. (assert-equal 0 (stat-get stat 'st-author)))))