tests/quote/nquote/nquote2.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=$'a\001b'
  15
  16 e=$'uv\001\001wx'
  17
  18 recho $a
  19 recho $e
  20
  21 recho ${a/$'\001'/A}
  22 recho "${a/$'\001'/A}"
  23 recho ${e/$'\001'/A}
  24 recho "${e/$'\001'/A}"
  25
  26 recho ${a/b/B}
  27 recho "${a/b/B}"
  28 recho ${e/w/W}
  29 recho "${e/w/W}"
  30
  31 recho ${a//$'\001'/A}
  32 recho "${a//$'\001'/A}"
  33 recho ${e//$'\001'/A}
  34 recho "${e//$'\001'/A}"
  35
  36 recho ${a//b/B}
  37 recho "${a//b/B}"
  38 recho ${e//w/W}
  39 recho "${e//w/W}"
  40
  41 # pos params pat subst
  42
  43 set $e $e
  44
  45 recho ${@/$'\001'/A}
  46 recho "${@/$'\001'/A}"
  47 recho ${@/w/W}
  48 recho "${@/w/W}"
  49
  50 recho ${@//$'\001'/A}
  51 recho "${@//$'\001'/A}"
  52 recho ${@//w/W}
  53 recho "${@//w/W}"
  54
  55 arr[0]=$a
  56 arr[1]=$e
  57
  58 recho ${arr[0]}
  59 recho ${arr[1]}
  60
  61 recho ${arr[0]/$'\001'/A}
  62 recho "${arr[0]/$'\001'/A}"
  63 recho ${arr[1]/$'\001'/A}
  64 recho "${arr[1]/$'\001'/A}"
  65
  66 recho ${arr[0]/b/B}
  67 recho "${arr[0]/b/B}"
  68 recho ${arr[1]/w/W}
  69 recho "${arr[1]/w/W}"
  70
  71 recho ${arr[0]//$'\001'/A}
  72 recho "${arr[0]//$'\001'/A}"
  73 recho ${arr[1]//$'\001'/A}
  74 recho "${arr[1]//$'\001'/A}"
  75
  76 recho ${arr[0]//b/B}
  77 recho "${arr[0]//b/B}"
  78 recho ${arr[1]//w/W}
  79 recho "${arr[1]//w/W}"
  80
  81 recho ${arr[@]/$'\001'/A}
  82 recho "${arr[@]/$'\001'/A}"
  83
  84 recho ${arr[@]/b/B}
  85 recho "${arr[@]/b/B}"
  86 recho ${arr[@]/w/W}
  87 recho "${arr[@]/w/W}"
  88
  89 recho ${arr[@]//$'\001'/A}
  90 recho "${arr[@]//$'\001'/A}"
  91
  92 recho ${arr[@]//b/B}
  93 recho "${arr[@]//b/B}"
  94 recho ${arr[@]//w/W}
  95 recho "${arr[@]//w/W}"