tests.bak/func.tests

   1 #   This program is free software: you can redistribute it and/or modify
   2 #   it under the terms of the GNU General Public License as published by
   3 #   the Free Software Foundation, either version 3 of the License, or
   4 #   (at your option) any later version.
   5 #
   6 #   This program is distributed in the hope that it will be useful,
   7 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 #   GNU General Public License for more details.
  10 #
  11 #   You should have received a copy of the GNU General Public License
  12 #   along with this program.  If not, see <http://www.gnu.org/licenses/>.
  13 #
  14 a()
  15 {
  16         x=$((x - 1))
  17         return 5
  18 }
  19
  20 b()
  21 {
  22         x=$((x - 1))
  23         a
  24         echo a returns $?
  25         return 4
  26 }
  27
  28 c()
  29 {
  30         x=$((x - 1))
  31         b
  32         echo b returns $?
  33         return 3
  34 }
  35
  36 d()
  37 {
  38         x=$((x - 1))
  39         c
  40         echo c returns $?
  41         return 2
  42 }
  43
  44 e()
  45 {
  46         d
  47         echo d returns $?
  48         echo in e
  49         x=$((x - 1))
  50         return $x
  51 }
  52
  53 f()
  54 {
  55         e
  56         echo e returned $?
  57         echo x is $x
  58         return 0
  59 }
  60
  61 x=30
  62 f
  63
  64 # make sure unsetting a local variable preserves the `local' attribute
  65 f1()
  66 {
  67         local zz
  68         zz=abcde
  69         echo $zz
  70         unset zz
  71         zz=defghi
  72         echo $zz
  73 }
  74
  75 zz=ZZ
  76 echo $zz
  77 f1
  78 echo $zz
  79
  80 unset -f f1
  81 f1()
  82 {
  83         return 5
  84 }
  85
  86 ( f1 )
  87 echo $?
  88
  89 unset -f f1
  90 f1()
  91 {
  92         sleep 5
  93         return 5
  94 }
  95
  96 f1 &
  97 wait
  98 echo $?
  99
 100 unset -f f1
 101
 102 f1()
 103 {
 104         echo $AVAR
 105         printenv AVAR
 106 }
 107
 108 AVAR=AVAR
 109 echo $AVAR
 110 f1
 111 AVAR=foo f1
 112 echo $AVAR
 113
 114 unset -f f1
 115 # make sure subshells can do a `return' if we're executing in a function
 116 f1()
 117 {
 118         ( return 5 )
 119         status=$?
 120         echo $status
 121         return $status
 122 }
 123
 124 f1
 125 echo $?
 126
 127 declare -F f1   # should print just the name
 128 declare -f f1   # should print the definition, too
 129
 130 # no functions should be exported, right?
 131 declare -xF
 132 declare -xf
 133
 134 # FUNCNAME tests
 135 func2()
 136 {
 137         echo FUNCNAME = $FUNCNAME
 138 }
 139
 140 func()
 141 {
 142         echo before: FUNCNAME = $FUNCNAME
 143         func2
 144         echo after: FUNCNAME = $FUNCNAME
 145 }
 146
 147 echo before: try to assign to FUNCNAME
 148 FUNCNAME=7
 149
 150 echo outside: FUNCNAME = $FUNCNAME
 151 func
 152 echo outside2: FUNCNAME = $FUNCNAME
 153
 154 # test exported functions (and cached exportstr)
 155 zf()
 156 {
 157         echo this is zf
 158 }
 159 export -f zf
 160
 161 ${THIS_SH} -c 'type -t zf'
 162 ${THIS_SH} -c 'type zf'
 163
 164 ${THIS_SH} ./func1.sub
 165
 166 # tests for functions whose bodies are not group commands, with and without
 167 # attached redirections
 168 ${THIS_SH} ./func2.sub
 169
 170 # test for some posix-specific function behavior
 171 ${THIS_SH} ./func3.sub
 172
 173 # FUNCNEST testing
 174 ${THIS_SH} ./func4.sub
 175
 176 unset -f myfunction
 177 myfunction() {
 178     echo "bad shell function redirection"
 179 } >> /dev/null
 180
 181 myfunction
 182 myfunction | cat
 183
 184 segv()
 185 {
 186         echo foo | return 5
 187 }
 188
 189 segv
 190 echo $?
 191
 192 exit 0