(use fuse posix test)

(define (test-empty path)
  (let ((fs (make-filesystem)))
    (test-assert (not (filesystem-running? path fs)))
    (test-assert (filesystem-start! path fs))
    (test-assert (filesystem-wait! path fs 'started))
    (test-assert (filesystem-running? path fs))
    (test-assert (not (filesystem-running? "some-other-path" fs)))
    (test-assert (filesystem-stop! path fs))
    (test-assert (filesystem-wait! path fs))
    (test-assert (not (filesystem-running? path fs)))))

(test-assert (create-directory "path" #t))
(test-empty "path")
(test-assert (delete-directory "path" #t))