(use tinyclos testeez utils vfs)

(load "../hash-fs.scm")

(testeez
 "vfs"

 (test/equal "file-exists?" (file-exists? "hash://abc") #f)
 (test-eval "add" (with-output-to-file "hash://abc" (cut display "def")))
 (test/equal "exists added" (file-exists? "hash://abc") "hash://abc")
 (test/equal "ref" (read-all "hash://abc") "def")
 (test-eval "rename" (rename-file "hash://abc" "hash://def"))
 (test/equal "exists renamed" (file-exists? "hash://abc") #f)
 (test-eval "delete" (delete-file "hash://def"))
 (test/equal "exists deleted" (file-exists? "hash://def") #f)

)