positional2.0 revision 228873
1238722Skargl# $FreeBSD: head/tools/regression/bin/sh/parameters/positional2.0 228873 2011-12-25 13:24:48Z jilles $ 2251315Skargl 3238722Skarglfailures='' 4238722Skarglok='' 5238722Skargl 6238722Skargltestcase() { 7238722Skargl code="$1" 8238722Skargl expected="$2" 9238722Skargl oIFS="$IFS" 10238722Skargl eval "$code" 11238722Skargl IFS='|' 12238722Skargl result="$#|$*" 13238722Skargl IFS="$oIFS" 14238722Skargl if [ "x$result" = "x$expected" ]; then 15238722Skargl ok=x$ok 16238722Skargl else 17238722Skargl failures=x$failures 18238722Skargl echo "For $code, expected $expected actual $result" 19238722Skargl fi 20238722Skargl} 21238722Skargl 22238722Skargltestcase 'set -- a b; set -- p$@q' '2|pa|bq' 23238722Skargltestcase 'set -- a b; set -- $@q' '2|a|bq' 24238722Skargltestcase 'set -- a b; set -- p$@' '2|pa|b' 25238722Skargltestcase 'set -- a b; set -- p$@q' '2|pa|bq' 26238722Skargltestcase 'set -- a b; set -- $@q' '2|a|bq' 27238722Skargltestcase 'set -- a b; set -- p$@' '2|pa|b' 28238722Skargltestcase 'set -- a b; set -- p$*q' '2|pa|bq' 29238722Skargltestcase 'set -- a b; set -- $*q' '2|a|bq' 30238722Skargltestcase 'set -- a b; set -- p$*' '2|pa|b' 31238722Skargltestcase 'set -- a b; set -- p$*q' '2|pa|bq' 32251316Skargltestcase 'set -- a b; set -- $*q' '2|a|bq' 33238722Skargltestcase 'set -- a b; set -- p$*' '2|pa|b' 34238722Skargltestcase 'set -- a b; set -- "p$@q"' '2|pa|bq' 35238722Skargltestcase 'set -- a b; set -- "$@q"' '2|a|bq' 36238722Skargltestcase 'set -- a b; set -- "p$@"' '2|pa|b' 37238722Skargltestcase 'set -- a b; set -- p"$@"q' '2|pa|bq' 38238722Skargltestcase 'set -- a b; set -- "$@"q' '2|a|bq' 39238784Skargltestcase 'set -- a b; set -- p"$@"' '2|pa|b' 40238722Skargltestcase 'set -- "" a b; set -- "p$@q"' '3|p|a|bq' 41238722Skargltestcase 'set -- "" a b; set -- "$@q"' '3||a|bq' 42238722Skargltestcase 'set -- "" a b; set -- "p$@"' '3|p|a|b' 43238722Skargltestcase 'set -- "" a b; set -- p"$@"q' '3|p|a|bq' 44238722Skargltestcase 'set -- "" a b; set -- "$@"q' '3||a|bq' 45238722Skargltestcase 'set -- "" a b; set -- p"$@"' '3|p|a|b' 46238722Skargltestcase 'set -- a; set -- p$@q' '1|paq' 47238722Skargltestcase 'set -- a; set -- $@q' '1|aq' 48238783Skargltestcase 'set -- a; set -- p$@' '1|pa' 49238722Skargltestcase 'set -- a; set -- p$@q' '1|paq' 50238722Skargltestcase 'set -- a; set -- $@q' '1|aq' 51238722Skargltestcase 'set -- a; set -- p$@' '1|pa' 52240861Skargltestcase 'set -- a; set -- p$*q' '1|paq' 53251327Skargltestcase 'set -- a; set -- $*q' '1|aq' 54238722Skargltestcase 'set -- a; set -- p$*' '1|pa' 55238722Skargltestcase 'set -- a; set -- p$*q' '1|paq' 56238722Skargltestcase 'set -- a; set -- $*q' '1|aq' 57238722Skargltestcase 'set -- a; set -- p$*' '1|pa' 58238722Skargltestcase 'set -- a; set -- "p$@q"' '1|paq' 59238722Skargltestcase 'set -- a; set -- "$@q"' '1|aq' 60238722Skargltestcase 'set -- a; set -- "p$@"' '1|pa' 61238722Skargltestcase 'set -- a; set -- p"$@"q' '1|paq' 62238722Skargltestcase 'set -- a; set -- "$@"q' '1|aq' 63238722Skargltestcase 'set -- a; set -- p"$@"' '1|pa' 64251328Skargl 65251328Skargltest "x$failures" = x 66251328Skargl