let file ?(host= Host.tmp_on_localhost) path =
let basename = Filename.basename path in
object
val vol =
Target.Volume.(
create ~host
~root:(Path.absolute_directory_exn (Filename.dirname path))
(file basename))
method path = path
method exists = `Volume_exists vol
method is_bigger_than n = `Volume_size_bigger_than (vol, n)
end