let dir_comfortable ?(nullglob=false) (dirpatt:filexpr) = let cmd = "test -d $1 -a -r $1 -a -w $1 -a -x $1 && echo true" in Check.check cmd "dir_comfortable" ~nullglob dirpatt