| 1 | # A test suite for the POSIX.2 (BRE) pattern matching code
|
|---|
| 2 | LC_ALL=C
|
|---|
| 3 | LANG=C
|
|---|
| 4 |
|
|---|
| 5 | # First, test POSIX.2 character classes
|
|---|
| 6 |
|
|---|
| 7 | case e in
|
|---|
| 8 | [[:xdigit:]]) echo ok 1;;
|
|---|
| 9 | esac
|
|---|
| 10 |
|
|---|
| 11 | case a in
|
|---|
| 12 | [[:alpha:]123]) echo ok 2;;
|
|---|
| 13 | esac
|
|---|
| 14 |
|
|---|
| 15 | case 1 in
|
|---|
| 16 | [[:alpha:]123]) echo ok 3;;
|
|---|
| 17 | esac
|
|---|
| 18 |
|
|---|
| 19 | case 9 in
|
|---|
| 20 | [![:alpha:]]) echo ok 4;;
|
|---|
| 21 | esac
|
|---|
| 22 |
|
|---|
| 23 | # invalid character class expressions are just characters to be matched
|
|---|
| 24 | case a in
|
|---|
| 25 | [:al:]) echo ok 5;;
|
|---|
| 26 | esac
|
|---|
| 27 |
|
|---|
| 28 | case a in
|
|---|
| 29 | [[:al:]) echo ok 6;;
|
|---|
| 30 | esac
|
|---|
| 31 |
|
|---|
| 32 | case '!' in
|
|---|
| 33 | [abc[:punct:][0-9]) echo ok 7;;
|
|---|
| 34 | esac
|
|---|
| 35 |
|
|---|
| 36 | # let's try to match the start of a valid sh identifier
|
|---|
| 37 | case 'PATH' in
|
|---|
| 38 | [_[:alpha:]]*) echo ok 8;;
|
|---|
| 39 | esac
|
|---|
| 40 |
|
|---|
| 41 | # let's try to match the first two characters of a valid sh identifier
|
|---|
| 42 | case PATH in
|
|---|
| 43 | [_[:alpha:]][_[:alnum:]]*) echo ok 9;;
|
|---|
| 44 | esac
|
|---|
| 45 |
|
|---|
| 46 | # is ^C a cntrl character?
|
|---|
| 47 | case $'\003' in
|
|---|
| 48 | [[:cntrl:]]) echo ok 10;;
|
|---|
| 49 | esac
|
|---|
| 50 |
|
|---|
| 51 | # how about A?
|
|---|
| 52 | case A in
|
|---|
| 53 | [[:cntrl:]]) echo oops -- cntrl ;;
|
|---|
| 54 | *) echo ok 11;;
|
|---|
| 55 | esac
|
|---|
| 56 |
|
|---|
| 57 | case 9 in
|
|---|
| 58 | [[:digit:]]) echo ok 12;;
|
|---|
| 59 | esac
|
|---|
| 60 |
|
|---|
| 61 | case X in
|
|---|
| 62 | [[:digit:]]) echo oops -- digit;;
|
|---|
| 63 | *) echo ok 13;;
|
|---|
| 64 | esac
|
|---|
| 65 |
|
|---|
| 66 | case $'\033' in
|
|---|
| 67 | [[:graph:]]) echo oops -- graph;;
|
|---|
| 68 | *) echo ok 14;;
|
|---|
| 69 | esac
|
|---|
| 70 |
|
|---|
| 71 | case $'\040' in
|
|---|
| 72 | [[:graph:]]) echo oops -- graph 2;;
|
|---|
| 73 | *) echo ok 15;;
|
|---|
| 74 | esac
|
|---|
| 75 |
|
|---|
| 76 | case ' ' in
|
|---|
| 77 | [[:graph:]]) echo oops -- graph 3;;
|
|---|
| 78 | *) echo ok 16;;
|
|---|
| 79 | esac
|
|---|
| 80 |
|
|---|
| 81 | case 'aB' in
|
|---|
| 82 | [[:lower:]][[:upper:]]) echo ok 17;;
|
|---|
| 83 | esac
|
|---|
| 84 |
|
|---|
| 85 | case $'\040' in
|
|---|
| 86 | [[:print:]]) echo ok 18;;
|
|---|
| 87 | *) echo oops -- print;;
|
|---|
| 88 | esac
|
|---|
| 89 |
|
|---|
| 90 | case PS3 in
|
|---|
| 91 | [_[:alpha:]][_[:alnum:]][_[:alnum:]]*) echo ok 19;;
|
|---|
| 92 | esac
|
|---|
| 93 |
|
|---|
| 94 | case a in
|
|---|
| 95 | [[:alpha:][:digit:]]) echo ok 20;;
|
|---|
| 96 | *) echo oops - skip brackpat ;;
|
|---|
| 97 | esac
|
|---|
| 98 |
|
|---|
| 99 | case a in
|
|---|
| 100 | [[:alpha:]\]) echo oops -- dangling backslash in brackpat ;;
|
|---|
| 101 | *) echo ok 21 ;;
|
|---|
| 102 | esac
|
|---|
| 103 |
|
|---|
| 104 | # what's a newline? is it a blank? a space?
|
|---|
| 105 | case $'\n' in
|
|---|
| 106 | [[:blank:]]) echo ok -- blank ;;
|
|---|
| 107 | [[:space:]]) echo ok -- space ;;
|
|---|
| 108 | *) echo oops newline ;;
|
|---|
| 109 | esac
|
|---|
| 110 |
|
|---|
| 111 | # OK, what's a tab? is it a blank? a space?
|
|---|
| 112 | case $'\t' in
|
|---|
| 113 | [[:blank:]]) echo ok -- blank ;;
|
|---|
| 114 | [[:space:]]) echo ok -- space ;;
|
|---|
| 115 | *) echo oops newline ;;
|
|---|
| 116 | esac
|
|---|
| 117 |
|
|---|
| 118 | # let's check out characters in the ASCII range
|
|---|
| 119 | case $'\377' in
|
|---|
| 120 | [[:ascii:]]) echo oops -- ascii\?;;
|
|---|
| 121 | esac
|
|---|
| 122 |
|
|---|
| 123 | case 9 in
|
|---|
| 124 | [1[:alpha:]123]) echo oops 1;;
|
|---|
| 125 | esac
|
|---|
| 126 |
|
|---|
| 127 | # however, an unterminated brace expression containing a valid char class
|
|---|
| 128 | # that matches had better fail
|
|---|
| 129 | case a in
|
|---|
| 130 | [[:alpha:]) echo oops 2;;
|
|---|
| 131 | esac
|
|---|
| 132 |
|
|---|
| 133 | case $'\b' in
|
|---|
| 134 | [[:graph:]]) echo oops 3;;
|
|---|
| 135 | esac
|
|---|
| 136 |
|
|---|
| 137 | case $'\b' in
|
|---|
| 138 | [[:print:]]) echo oops 4;;
|
|---|
| 139 | esac
|
|---|
| 140 |
|
|---|
| 141 | case $' ' in
|
|---|
| 142 | [[:punct:]]) echo oops 5;;
|
|---|
| 143 | esac
|
|---|
| 144 |
|
|---|
| 145 | # Next, test POSIX.2 collating symbols
|
|---|
| 146 |
|
|---|
| 147 | case 'a' in
|
|---|
| 148 | [[.a.]]) echo ok 1;;
|
|---|
| 149 | esac
|
|---|
| 150 |
|
|---|
| 151 | case '-' in
|
|---|
| 152 | [[.hyphen.]-9]) echo ok 2;;
|
|---|
| 153 | esac
|
|---|
| 154 |
|
|---|
| 155 | case 'p' in
|
|---|
| 156 | [[.a.]-[.z.]]) echo ok 3;;
|
|---|
| 157 | esac
|
|---|
| 158 |
|
|---|
| 159 | case '-' in
|
|---|
| 160 | [[.-.]]) echo ok 4;;
|
|---|
| 161 | esac
|
|---|
| 162 |
|
|---|
| 163 | case ' ' in
|
|---|
| 164 | [[.space.]]) echo ok 5;;
|
|---|
| 165 | esac
|
|---|
| 166 |
|
|---|
| 167 | case ' ' in
|
|---|
| 168 | [[.grave-accent.]]) echo oops - grave;;
|
|---|
| 169 | *) echo ok 6;;
|
|---|
| 170 | esac
|
|---|
| 171 |
|
|---|
| 172 | case '4' in
|
|---|
| 173 | [[.-.]-9]) echo ok 7;;
|
|---|
| 174 | esac
|
|---|
| 175 |
|
|---|
| 176 | # an invalid collating symbol cannot be the first part of a range
|
|---|
| 177 | case 'c' in
|
|---|
| 178 | [[.yyz.]-[.z.]]) echo oops - yyz;;
|
|---|
| 179 | *) echo ok 8;;
|
|---|
| 180 | esac
|
|---|
| 181 |
|
|---|
| 182 | case 'c' in
|
|---|
| 183 | [[.yyz.][.a.]-z]) echo ok 9;;
|
|---|
| 184 | esac
|
|---|
| 185 |
|
|---|
| 186 | # but when not part of a range is not an error
|
|---|
| 187 | case 'c' in
|
|---|
| 188 | [[.yyz.][.a.]-[.z.]]) echo ok 10 ;;
|
|---|
| 189 | esac
|
|---|
| 190 |
|
|---|
| 191 | case 'p' in
|
|---|
| 192 | [[.a.]-[.Z.]]) echo oops -- bad range ;;
|
|---|
| 193 | *) echo ok 11;;
|
|---|
| 194 | esac
|
|---|
| 195 |
|
|---|
| 196 | case p in
|
|---|
| 197 | [[.a.]-[.zz.]p]) echo ok 12;;
|
|---|
| 198 | *) echo oops -- bad range 2;;
|
|---|
| 199 | esac
|
|---|
| 200 |
|
|---|
| 201 | case p in
|
|---|
| 202 | [[.aa.]-[.z.]p]) echo ok 13;;
|
|---|
| 203 | *) echo oops -- bad range 3;;
|
|---|
| 204 | esac
|
|---|
| 205 |
|
|---|
| 206 | case c in
|
|---|
| 207 | [[.yyz.]cde]) echo ok 14;;
|
|---|
| 208 | esac
|
|---|
| 209 |
|
|---|
| 210 | case abc in
|
|---|
| 211 | [[.cb.]a-Za]*) echo ok 15;;
|
|---|
| 212 | esac
|
|---|
| 213 |
|
|---|
| 214 | case $'\t' in
|
|---|
| 215 | [[.space.][.tab.][.newline.]]) echo ok 16;;
|
|---|
| 216 | esac
|
|---|
| 217 |
|
|---|
| 218 | # and finally, test POSIX.2 equivalence classes
|
|---|
| 219 |
|
|---|
| 220 | case "abc" in
|
|---|
| 221 | [[:alpha:]][[=b=]][[:ascii:]]) echo ok 1;;
|
|---|
| 222 | esac
|
|---|
| 223 |
|
|---|
| 224 | case "abc" in
|
|---|
| 225 | [[:alpha:]][[=B=]][[:ascii:]]) echo oops -- =B=;;
|
|---|
| 226 | *) echo ok 2 ;;
|
|---|
| 227 | esac
|
|---|
| 228 |
|
|---|
| 229 | case a in
|
|---|
| 230 | [[=b=]) echo oops;; # an incomplete equiv class is just a string
|
|---|
| 231 | *) echo ok 3;;
|
|---|
| 232 | esac
|
|---|
| 233 |
|
|---|
