tests/mkdir/parents

   1 #!/bin/sh
   2 # make sure mkdir's -p options works properly
   3
   4 # Copyright (C) 2000, 2004, 2006-2009 Free Software Foundation, Inc.
   5
   6 # This program is free software: you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation, either version 3 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 if test "$VERBOSE" = yes; then
  20   set -x
  21   mkdir --version
  22 fi
  23
  24 . $srcdir/test-lib.sh
  25 skip_if_setgid_
  26
  27 mkdir -m 700 e-dir || framework_failure
  28
  29
  30 # Make sure `mkdir -p existing-dir' succeeds
  31 # and that `mkdir existing-dir' fails.
  32 mkdir -p e-dir || fail=1
  33 mkdir e-dir > /dev/null 2>&1 && fail=1
  34
  35 # Create an existing directory.
  36 umask 077
  37 mode_str=drwxr-x-wx
  38 mode_arg=`rwx_to_mode_ $mode_str`
  39 mkdir -m $mode_arg a || fail=1
  40
  41 # this `mkdir -p ...' shouldn't change perms of existing dir `a'.
  42 d_mode_str=drwx-w--wx
  43 d_mode_arg=`rwx_to_mode_ $d_mode_str`
  44 mkdir -p -m $d_mode_arg a/b/c/d
  45
  46 # Make sure the permissions of `a' haven't been changed.
  47 p=`ls -ld a|cut -b-10`; case $p in $mode_str);; *) fail=1;; esac
  48 # `b's and `c's should reflect the umask
  49 p=`ls -ld a/b|cut -b-10`; case $p in drwx------);; *) fail=1;; esac
  50 p=`ls -ld a/b/c|cut -b-10`; case $p in drwx------);; *) fail=1;; esac
  51
  52 # `d's perms are determined by the -m argument.
  53 p=`ls -ld a/b/c/d|cut -b-10`; case $p in $d_mode_str);; *) fail=1;; esac
  54
  55 Exit $fail