(import (chicken file)
        (chicken string)
        (fuse)
        (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? (conc "x" path) fs)))
    (test-assert (filesystem-stop! path fs))
    (test-assert (filesystem-wait! path fs 'stopped))
    (test-assert (not (filesystem-running? path fs)))))

(let ((path (create-temporary-directory)))
  (create-directory path #t)
  (test-empty path)
  (delete-directory path #t))