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