(use test fuse)

(define (test-smoke path)
  (let ((fs (make-filesystem)))
    (dynamic-wind
     (lambda ()
       (create-directory path #t))
     (lambda ()
       (case (test-assert (filesystem-start! path fs))
         ((PASS)
          (filesystem-wait! path fs 'started)
          (filesystem-stop! path fs)
          (filesystem-wait! path fs 'stopped))
         ((FAIL) #f)))
     (lambda ()
       (handle-exceptions _ #f (delete-directory path #t))))))