commit - 68a7ef689646791cb998ff37308ac73f8ac9c2a5
commit + 6bb3ac35fb107566e204808048e8a4c62241e66a
blob - ae631197e097cec671ae1e532638e7b487805ad2
blob + 963cda9e80bd727b1dea0152c10f7261a4181caa
--- regress/lisp/9p-test/kami-tests.lisp
+++ regress/lisp/9p-test/kami-tests.lisp
(assert-eq :directory
(stat-entry-type (example-stat "/")))
(assert-eq :file
- (stat-entry-type (example-stat *remote-test-path*))))
+ (stat-entry-type (example-stat *remote-test-path*)))
+ (assert-equality #'= 0 (stat-size (example-stat "/"))))
(defun example-path-exists (path &optional (root "/"))
(with-open-ssl-stream (stream