(use test)

(test-group (cond-expand
              (compiling "fuse (compiled)")
              (else "fuse (interpreted)"))
  (test-group "the filesystem record type" (include "fuse.scm"))
  (test-group "an empty filesystem" (include "empty.scm"))
  (test-group "unmounting a filesystem" (include "unmount.scm"))
  (test-group "a hello world filesystem" (include "hello.scm"))
  (test-group "directory manipulation" (include "dirs.scm"))
  (test-group "exception handling" (include "exn.scm")))

(test-exit)