...
 (with-open [fs (create-filesystem)]
    (let [root (.getFile fs path)]
       (is (.isDirectory root))
       (is (.isComplete root)))
    (let [suc (.getFile fs (str path "/_SUCCESS"))]
       (is (.isFile suc))
       (is (.isComplete suc))))

(.. (.getFile fs path)
  (.setPath path2)
  (.setName name2))