tests/chmod/usage.sh

   1 #!/bin/sh
   2 # Verify that chmod works correctly with odd option combinations.
   3
   4 # Copyright (C) 2004-2024 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 <https://www.gnu.org/licenses/>.
  18
  19 . "${srcdir=.}/tests/init.sh"; path_prepend_ ./src
  20 print_ver_ chmod
  21
  22
  23 # Each line in this list is a set of arguments, followed by :,
  24 # followed by the set of files it will attempt to chmod,
  25 # or empty if the usage is erroneous.
  26 # Many of these test cases are due to Glenn Fowler.
  27 # These test cases assume GNU behavior for "options" like -w.
  28 cases='
  29   --         :
  30   -- --      :
  31   -- -- -- f : -- f
  32   -- -- -w f : -w f
  33   -- -- f    : f
  34   -- -w      :
  35   -- -w -- f : -- f
  36   -- -w -w f : -w f
  37   -- -w f    : f
  38   -- f       :
  39   -w         :
  40   -w --      :
  41   -w -- -- f : -- f
  42   -w -- -w f : -w f
  43   -w -- f    : f
  44   -w -w      :
  45   -w -w -- f : f
  46   -w -w -w f : f
  47   -w -w f    : f
  48   -w f       : f
  49   f          :
  50   f --       :
  51   f -w       : f
  52   f f        :
  53   u+gr f     :
  54   ug,+x f    :
  55 '
  56
  57 all_files=$(echo "$cases" | sed 's/.*://'|sort -u)
  58
  59 old_IFS=$IFS
  60 IFS='
  61 '
  62 for case in $cases; do
  63   IFS=$old_IFS
  64   args=$(expr "$case" : ' *\(.*[^ ]\) *:')
  65   files=$(expr "$case" : '.*: *\(.*\)')
  66
  67   case $files in
  68   '')
  69     touch -- $all_files || framework_failure_
  70     returns_ 1 chmod $args 2>/dev/null || fail=1
  71     ;;
  72   ?*)
  73     touch -- $files || framework_failure_
  74     chmod $args || fail=1
  75     for file in $files; do
  76       # Test for misparsing args by creating all $files but $file.
  77       # chmod has a bug if it succeeds even though $file is absent.
  78       rm -f -- $all_files && touch -- $files && rm -- $file \
  79           || framework_failure_
  80       returns_ 1 chmod $args 2>/dev/null || fail=1
  81     done
  82     ;;
  83   esac
  84 done
  85
  86 Exit $fail