T.misc revision 1.1
1 #!/bin/sh 2 3 echo T.misc: miscellaneous buglets now watched for 4 5 awk=${awk-../a.out} 6 7 rm -f core 8 9 echo 'The big brown over the lazy doe 10 The big brown over the lazy dog 11 x 12 The big brown over the lazy dog' >foo 13 echo 'failed 14 succeeded 15 failed 16 succeeded' >foo1 17 $awk '{ if (match($0, /^The big brown over the lazy dog/) == 0) { 18 printf("failed\n") 19 } else { 20 printf("succeeded\n") 21 } 22 } ' foo >foo2 23 cmp -s foo1 foo2 || echo 'BAD: T.misc ghosh RE bug' 24 25 echo '123 26 1234567890 27 12345678901' >foo 28 echo '12345678901' >foo1 29 $awk 'length($0) > 10' foo >foo2 30 cmp -s foo1 foo2 || echo 'BAD: T.misc last number bug' 31 32 # check some \ sequences in strings (ascii) 33 echo HIJKL >foo1 34 echo foo | $awk '{ print "H\x49\x4a\x4BL" }' >foo2 35 cmp -s foo1 foo2 || echo 'BAD: T.misc hex string cvt' 36 37 echo 012x45 >foo1 38 $awk 'BEGIN { print "0\061\62x\0645" }' >foo2 39 cmp -s foo1 foo2 || echo 'BAD: T.misc oct string cvt' 40 41 # $i++ means ($i)++ 42 echo 3 5 | $awk '{ i = 1; print $i++ ; print $1, i }' >foo1 43 echo '3 44 4 1' >foo2 45 cmp -s foo1 foo2 || echo 'BAD: T.misc bad field increment' 46 47 # makes sure that fields are recomputed even if self-assignment 48 # take into account that subtracting from NF now rebuilds the record 49 echo 'a b c 50 s p q r 51 x y z' >foo 52 echo 'a 53 s p 54 x' >foo1 55 $awk '{ NF -= 2; $1 = $1; print }' <foo >foo2 56 diff foo1 foo2 || echo 1>&2 "BAD: T.misc bad field self-assignment" 57 58 echo '1 59 1' >foo1 60 $awk 'BEGIN {x = 1; print x; x = x; print x}' >foo2 61 diff foo1 foo2 || echo 1>&2 "BAD: T.misc bad self-assignment" 62 63 echo 573109312 | $awk '{print $1*4}' >foo1 64 echo 2292437248 >foo2 65 diff foo1 foo2 || echo 1>&2 "BAD: T.misc bad overflow" 66 67 # note that there are 8-bit characters in the echo 68 # some shells will probably screw this up. 69 echo '# 70 code 1 71 code 2' | 72 $awk '/^#/' >foo1 73 echo '#' >foo2 74 diff foo1 foo2 || echo 1>&2 "BAD: T.misc bad match of 8-bit char" 75 76 echo hello | 77 $awk 'BEGIN { FILENAME = "/etc/passwd" } 78 { print $0 }' >/dev/null 79 if test -r core; then echo 1>&2 "BAD: T.misc /etc/passwd dropped core"; fi 80 81 echo hello | 82 $awk ' function foo(foo) { 83 foo = 1 84 foo() 85 } 86 { foo(bar) } 87 ' >/dev/null 2>&1 88 if test -r core; then 89 echo 1>&2 "BAD: T.misc function foo(foo) dropped core" 90 rm -f core 91 fi 92 93 echo '2 94 10' | 95 $awk '{ x[NR] = $0 } # test whether $0 is NUM as well as STR 96 END { if (x[1] > x[2]) print "BAD: T.misc: $0 is not NUM" }' 97 98 99 $awk 'BEGIN { 100 npad = substr("alexander" " ",1,15) 101 print npad 102 }' >foo 103 grep '\\' foo && echo 1>&2 "BAD: T.misc alexander fails" 104 105 # This should give an error about function arguments 106 $awk ' 107 function foo(x) { print "x is" x } 108 BEGIN { foo(foo) } 109 ' 2>foo 110 grep "can't use function foo" foo >/dev/null || echo 1>&2 "BAD: T.misc fcn args" 111 112 113 # gawk defref test; should give error about undefined function 114 $awk 'BEGIN { foo() }' 2>foo 115 grep "calling undefined function foo" foo >/dev/null || echo 1>&2 "BAD: T.misc undefined function" 116 117 118 # gawk arrayparm test; should give error about function 119 $awk ' 120 BEGIN { 121 foo[1]=1; 122 foo[2]=2; 123 bug1(foo); 124 } 125 function bug1(i) { 126 for (i in foo) { 127 bug2(i); 128 delete foo[i]; 129 print i,1,bot[1]; 130 } 131 } 132 function bug2(arg) { 133 bot[arg]=arg; 134 } 135 ' 2>foo 136 grep "can.t assign to foo" foo >/dev/null || echo 1>&2 "BAD: T.misc foo bug" 137 138 139 # This should be a syntax error 140 $awk ' 141 !x = y 142 ' 2>foo 143 grep "syntax error" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error !x=y fails" 144 145 # This should print bbb 146 $awk ' 147 BEGIN { up[1] = "a" 148 for (i in up) gsub("a", "A", x) 149 print x x "bbb" 150 exit 151 } 152 ' >foo 153 grep bbb foo >/dev/null || echo 1>&2 "BAD: T.misc gsub failed" 154 155 echo yes | 156 $awk ' 157 BEGIN { 158 printf "push return" >"/dev/null" 159 getline ans <"/dev/null" 160 } ' 161 if test -r core; then echo 1>&2 "BAD: T.misc getline ans dropped core"; fi 162 163 $awk 'BEGIN { unireghf() } 164 function unireghf(hfeed) { hfeed[1] = 0 }' 165 if test -r core; then echo 1>&2 "BAD: T.misc unireghf dropped core"; fi 166 167 echo x | $awk '/[/]/' 2>foo 168 grep 'nonterminated character class' foo >/dev/null || error 'BAD: T.misc nonterminated fails' 169 if test -r core; then echo 1>&2 "BAD: T.misc nonterminated dropped core"; fi 170 171 $awk ' 172 function f() { return 12345 } 173 BEGIN { printf "<%s>\n", f() } 174 ' >foo 175 grep '<12345>' foo >/dev/null || echo 'BAD: T.misc <12345> fails' 176 177 echo 'abc 178 def 179 180 ghi 181 jkl' >foo 182 $awk ' 183 BEGIN { RS = "" 184 while (getline <"foo") 185 print 186 }' >foo1 187 $awk 'END {print NR}' foo1 | grep 4 >/dev/null || echo 'BAD: T.misc abcdef fails' 188 189 190 # The following should not produce a warning about changing a constant 191 # nor about a curdled tempcell list 192 $awk 'function f(x) { x = 2 } 193 BEGIN { f(1) }' >foo 194 grep '^' foo && echo 'BAD: test constant change fails' 195 196 # The following should not produce a warning about a curdled tempcell list 197 $awk 'function f(x) { x } 198 BEGIN { f(1) }' >foo 199 grep '^' foo && echo 'BAD: test tempcell list fails' 200 201 $awk 'BEGIN { print 9, a=10, 11; print a; exit }' >foo1 202 echo '9 10 11 203 10' >foo2 204 diff foo1 foo2 || echo 'BAD: T.misc (embedded expression)' 205 206 echo "abc defgh ijkl" | $awk ' 207 { $1 = ""; line = $0; print line; print $0; $0 = line; print $0 }' >foo1 208 echo " defgh ijkl 209 defgh ijkl 210 defgh ijkl" >foo2 211 diff foo1 foo2 || echo 'BAD: T.misc (assignment to $0)' 212 213 $awk ' 214 function min(a, b) 215 { 216 if (a < b) 217 return a 218 else 219 return b 220 } 221 BEGIN { exit } 222 ' 223 if test -r core; then echo 1>&2 "BAD: T.misc function min dropped core"; fi 224 225 # The following should not give a syntax error message: 226 $awk ' 227 function expand(chart) { 228 getline chart < "CHAR.ticks" 229 } 230 ' >foo 231 grep '^' foo >/dev/null && echo 'BAD: T.misc expand error' 232 233 $awk 'BEGIN { print 1e40 }' >/dev/null 234 if test -r core; then echo 1>&2 "BAD: T.misc 1E40 dropped core"; fi 235 236 # The following syntax error should not dump core: 237 $awk ' 238 $NF==3 {first=1} 239 $NF==2 && first==0 && (abs($1-o1)>120||abs($2-o2)>120) {print $0} 240 $NF==2 {o1=%1; o2=$2; first=0} 241 ' 2>/dev/null 242 if test -r core; then echo 1>&2 "BAD: T.misc first/abs dropped core"; fi 243 244 # The following syntax error should not dump core: 245 $awk '{ n = split($1, address, !); print address[1] }' 2>foo 246 grep 'illegal statement' foo >/dev/null || echo 'BAD: T.misc split error' 247 if test -r core; then echo 1>&2 "BAD: T.misc split! dropped core"; fi 248 249 # The following should cause a syntax error message 250 $awk 'BEGIN {"hello"}' 2>foo 251 grep 'illegal statement' foo >/dev/null || echo 'BAD: T.misc hello error' 252 253 # The following should give a syntax error message: 254 $awk ' 255 function pile(c, r) { 256 r = ++pile[c] 257 } 258 259 { pile($1) } 260 ' 2>foo 261 grep 'context is' foo >/dev/null || echo 'BAD: T.misc pile error' 262 263 # This should complain about missing atan2 argument: 264 $awk 'BEGIN { atan2(1) }' 2>foo 265 grep 'requires two arg' foo >/dev/null || echo 'BAD: T.misc atan2 error' 266 267 # This should not core dump: 268 $awk 'BEGIN { f() } 269 function f(A) { delete A[1] } 270 ' 271 if test -r core; then echo 1>&2 "BAD: T.misc delete dropped core"; fi 272 273 # nasty one: should not be able to overwrite constants 274 $awk 'BEGIN { gsub(/ana/,"anda","banana") 275 printf "the monkey ate a %s\n", "banana" } 276 ' >/dev/null 2>foo 277 grep 'syntax error' foo >/dev/null || echo 'BAD: T.misc gsub banana error' 278 279 # nasty one: should not be able to overwrite constants 280 $awk 'BEGIN { sub(/ana/,"anda","banana") 281 printf "the monkey ate a %s\n", "banana" } 282 ' >/dev/null 2>foo 283 grep 'syntax error' foo >/dev/null || echo 'BAD: T.misc sub banana error' 284 285 # line numbers used to double-count comments 286 $awk '# 287 # 288 # 289 /x 290 ' >/dev/null 2>foo 291 grep 'line [45]' foo >/dev/null || echo 'BAD: T.misc lineno' 292 293 echo 'x \y' >foo1 297 $awk 'BEGIN { print "x\f\r\b\v\a\\y" }' >foo2 298 cmp -s foo1 foo2 || echo 'BAD: T.misc weird chars' 299 300 echo 0 >foo1 301 $awk ' BEGIN { exit } 302 { print } 303 END { print NR }' >foo2 304 cmp -s foo1 foo2 || echo 'BAD: T.misc BEGIN exit' 305 306 echo 1 >foo1 307 $awk ' { exit } 308 END { print NR }' /etc/passwd >foo2 309 cmp -s foo1 foo2 || echo 'BAD: T.misc immmediate exit' 310 311 echo 1 >foo1 312 $awk ' {i = 1; while (i <= NF) {if (i == NF) exit; i++ } } 313 END { print NR }' /etc/passwd >foo2 314 cmp -s foo1 foo2 || echo 'BAD: T.misc immmediate exit 2' 315 316 echo 1 >foo1 317 $awk ' function f() { 318 i = 1; while (i <= NF) {if (i == NF) return NR; i++ } 319 } 320 { if (f() == 1) exit } 321 END { print NR }' /etc/passwd >foo2 322 cmp -s foo1 foo2 || echo 'BAD: T.misc while return' 323 324 echo 1 >foo1 325 $awk ' function f() { 326 split("a b c", arr) 327 for (i in arr) {if (i == 3) return NR; i++ } 328 } 329 { if (f() == 1) exit } 330 END { print NR }' /etc/passwd >foo2 331 cmp -s foo1 foo2 || echo 'BAD: T.misc while return' 332 333 echo 1 >foo1 334 $awk ' {i = 1; do { if (i == NF) exit; i++ } while (i <= NF) } 335 END { print NR }' /etc/passwd >foo2 336 cmp -s foo1 foo2 || echo 'BAD: T.misc immmediate exit 3' 337 338 echo 1 >foo1 339 $awk ' function f() { 340 i = 1; do { if (i == NF) return NR; i++ } while (i <= NF) 341 } 342 { if (f() == 1) exit } 343 END { print NR }' /etc/passwd >foo2 344 cmp -s foo1 foo2 || echo 'BAD: T.misc do return' 345 346 echo 1 >foo1 347 $awk ' {i = 1; do { if (i == NF) break; i++ } while (i <= NF); exit } 348 END { print NR }' /etc/passwd >foo2 349 cmp -s foo1 foo2 || echo 'BAD: T.misc immmediate exit 4' 350 351 echo 1 >foo1 352 $awk ' { n = split($0, x) 353 for (i in x) { 354 if (i == 1) 355 exit } } 356 END { print NR }' /etc/passwd >foo2 357 cmp -s foo1 foo2 || echo 'BAD: T.misc immmediate exit 5' 358 359 echo XXXXXXXX >foo1 360 $awk 'BEGIN { s = "ab\fc\rd\be" 361 t = s; gsub("[" s "]", "X", t); print t }' >foo2 362 cmp -s foo1 foo2 || echo 'BAD: T.misc weird escapes in char class' 363 364 $awk '{}' /etc/passwd glop/glop >foo 2>foo2 365 grep "can't open.*glop" foo2 >/dev/null || echo "BAD: T.misc can't open" 366 367 echo ' 368 369 370 a 371 aa 372 373 b 374 375 376 c 377 378 ' >foo 379 echo 3 >foo1 380 $awk 'BEGIN { RS = "" }; END { print NR }' foo >foo2 381 cmp -s foo1 foo2 || echo 'BAD: T.misc RS botch' 382 383 $awk 'BEGIN \ 384 { 385 print "hello, world" 386 } 387 }}}' >foo1 2>foo2 388 grep 'source line 4' foo2 >/dev/null 2>&1 || echo 'BAD: T.misc continuation line number' 389 390 391 echo 111 222 333 >foo 392 $awk '{ f[1]=1; f[2]=2; print $f[1], $f[1]++, $f[2], f[1], f[2] }' foo >foo2 393 echo 111 111 222 2 2 >foo1 394 cmp -s foo1 foo2 || echo 'BAD: T.misc $f[1]++' 395 396 397 # These should be syntax errors 398 $awk . 2>foo 399 grep "syntax error" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error . fails" 400 401 $awk .. 2>foo 402 grep "syntax error" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error .. fails" 403 404 $awk .E. 2>foo 405 grep "syntax error" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error .E. fails" 406 407 $awk .++. 2>foo 408 grep "syntax error" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error .++. fails" 409 410 411 412 # These should be syntax errors 413 $awk '$' 2>foo 414 grep "unexpected" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error $ fails" 415 416 $awk '{print $' 2>foo 417 grep "unexpected" foo >/dev/null || echo 1>&2 "BAD: T.misc syntax error $2 fails" 418 419 $awk '"' 2>foo 420 grep "non-terminated" foo >/dev/null || echo 1>&2 "BAD: T.misc bare quote fails" 421 422 423 # %c of 0 is explicit null byte 424 425 ./echo '3' >foo1 426 $awk 'BEGIN {printf("%c%c\n", 0, 0) }' | wc | $awk '{print $3}' >foo2 427 cmp -s foo1 foo2 || echo 'BAD: T.misc null byte' 428 429 # non-terminated RE 430 431 $awk /xyz >foo 2>&1 432 grep "non-terminated" foo >/dev/null || echo 1>&2 "BAD: T.misc non-terminated RE" 433 434 # next several were infinite loops, found by brian tsang. 435 # this is his example: 436 437 $awk 'BEGIN { 438 switch (substr("x",1,1)) { 439 case /ask.com/: 440 break 441 case "google": 442 break 443 } 444 }' >foo 2>&1 445 grep "illegal statement" foo >/dev/null || echo 1>&2 "BAD: T.misc looping syntax error 1" 446 447 $awk 'BEGIN { s { c /./ } }' >foo 2>&1 448 grep "illegal statement" foo >/dev/null || echo 1>&2 "BAD: T.misc looping syntax error 2" 449 450 $awk 'BEGIN { s { c /../ } }' >foo 2>&1 451 grep "illegal statement" foo >/dev/null || echo 1>&2 "BAD: T.misc looping syntax error 3" 452 453 $awk 'BEGIN {printf "%2$s %1$s\n", "a", "b"}' >foo 2>&1 454 grep "'$' not permitted in awk formats" foo >/dev/null || echo 1>&2 "BAD: T.misc '$' not permitted in formats" 455 456 echo 'a 457 b c 458 de fg hi' >foo0 459 $awk 'END { print NF, $0 }' foo0 >foo1 460 awk '{ print NF, $0 }' foo0| tail -1 >foo2 461 cmp -s foo1 foo2 || echo 'BAD: T.misc END must preserve $0' 462 463 echo 'fg hi' >foo0 464 $awk 'END { print NF, $0 }' foo0 >foo1 465 awk '{ print NF, $0 }' foo0| tail -1 >foo2 466 cmp -s foo1 foo2 || echo 'BAD: T.misc END must preserve $0' 467 468 echo '' >foo0 469 $awk 'END { print NF, $0 }' foo0 >foo1 470 awk '{ print NF, $0 }' foo0| tail -1 >foo2 471 cmp -s foo1 foo2 || echo 'BAD: T.misc END must preserve $0' 472 473 # Check for nonzero exit status on I/O error. 474 echo 'E 2' >foo1 475 (trap '' PIPE; "$awk" 'BEGIN { print "hi"; }' 2>/dev/null; echo "E $?" >foo2) | : 476 cmp -s foo1 foo2 || echo 'BAD: T.misc exit status on I/O error' 477
Indexes created Tue Jul 07 00:25:39 UTC 2026