| # This program is free software: you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation, either version 3 of the License, or |
| # (at your option) any later version. |
| # |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with this program. If not, see <http://www.gnu.org/licenses/>. |
| # |
| # tests for `problem' keys when using associative arrays and assoc_expand_once |
| # deal with problems for now; this is a placeholder for if and when I fix them |
| |
| typeset -A a |
| shopt -s assoc_expand_once |
| |
| k='[' |
| echo $(( a[$k]=7 )) |
| |
| k=']' |
| echo $(( a[$k]=7 )) |
| |
| unset a |
| |
| declare -A A |
| |
| for k in $'\t' ' '; do |
| (( A[$k]=2 )) |
| done |
| declare -p A |
| |
| for k in ']' '*' '@'; do |
| (( A[$k]=2 )) |
| done |
| |
| declare -p A |
| |
| unset A |
| declare -A A |
| |
| for k in $'\t' ' ' ']' '*' '@'; do |
| read "A[$k]" <<< X |
| done |
| declare -p A |
| |
| unset A |
| declare -A A |
| |
| for k in $'\t' ' ' ']' '*' '@'; do |
| printf -v "A[$k]" "%s" X |
| done |
| declare -p A |
| |
| unset A |
| declare -A A |
| |
| for k in ']' '*' '@'; do |
| declare A[$k]=X |
| done |
| declare -p A |
| |
| unset A |
| declare -A A |
| |
| for k in ']' '*' '@'; do |
| declare "A[$k]=X" |
| done |
| declare -p A |
| |