sh: Add some testcases for pasting $*/$@ directly to a literal.
authorPeter Avalos <pavalos@dragonflybsd.org>
Sun, 25 Dec 2011 17:59:17 +0000 (09:59 -0800)
committerPeter Avalos <pavalos@dragonflybsd.org>
Sun, 25 Dec 2011 17:59:17 +0000 (09:59 -0800)
Obtained-from:  FreeBSD 228873

tools/regression/bin/sh/parameters/positional2.0 [new file with mode: 0644]

diff --git a/tools/regression/bin/sh/parameters/positional2.0 b/tools/regression/bin/sh/parameters/positional2.0
new file mode 100644 (file)
index 0000000..089bc73
--- /dev/null
@@ -0,0 +1,65 @@
+# $FreeBSD: src/tools/regression/bin/sh/parameters/positional2.0,v 1.1 2011/12/25 13:24:48 jilles Exp $
+
+failures=''
+ok=''
+
+testcase() {
+       code="$1"
+       expected="$2"
+       oIFS="$IFS"
+       eval "$code"
+       IFS='|'
+       result="$#|$*"
+       IFS="$oIFS"
+       if [ "x$result" = "x$expected" ]; then
+               ok=x$ok
+       else
+               failures=x$failures
+               echo "For $code, expected $expected actual $result"
+       fi
+}
+
+testcase 'set -- a b; set -- p$@q'             '2|pa|bq'
+testcase 'set -- a b; set -- $@q'              '2|a|bq'
+testcase 'set -- a b; set -- p$@'              '2|pa|b'
+testcase 'set -- a b; set -- p$@q'             '2|pa|bq'
+testcase 'set -- a b; set -- $@q'              '2|a|bq'
+testcase 'set -- a b; set -- p$@'              '2|pa|b'
+testcase 'set -- a b; set -- p$*q'             '2|pa|bq'
+testcase 'set -- a b; set -- $*q'              '2|a|bq'
+testcase 'set -- a b; set -- p$*'              '2|pa|b'
+testcase 'set -- a b; set -- p$*q'             '2|pa|bq'
+testcase 'set -- a b; set -- $*q'              '2|a|bq'
+testcase 'set -- a b; set -- p$*'              '2|pa|b'
+testcase 'set -- a b; set -- "p$@q"'           '2|pa|bq'
+testcase 'set -- a b; set -- "$@q"'            '2|a|bq'
+testcase 'set -- a b; set -- "p$@"'            '2|pa|b'
+testcase 'set -- a b; set -- p"$@"q'           '2|pa|bq'
+testcase 'set -- a b; set -- "$@"q'            '2|a|bq'
+testcase 'set -- a b; set -- p"$@"'            '2|pa|b'
+testcase 'set -- "" a b; set -- "p$@q"'                '3|p|a|bq'
+testcase 'set -- "" a b; set -- "$@q"'         '3||a|bq'
+testcase 'set -- "" a b; set -- "p$@"'         '3|p|a|b'
+testcase 'set -- "" a b; set -- p"$@"q'                '3|p|a|bq'
+testcase 'set -- "" a b; set -- "$@"q'         '3||a|bq'
+testcase 'set -- "" a b; set -- p"$@"'         '3|p|a|b'
+testcase 'set -- a; set -- p$@q'               '1|paq'
+testcase 'set -- a; set -- $@q'                        '1|aq'
+testcase 'set -- a; set -- p$@'                        '1|pa'
+testcase 'set -- a; set -- p$@q'               '1|paq'
+testcase 'set -- a; set -- $@q'                        '1|aq'
+testcase 'set -- a; set -- p$@'                        '1|pa'
+testcase 'set -- a; set -- p$*q'               '1|paq'
+testcase 'set -- a; set -- $*q'                        '1|aq'
+testcase 'set -- a; set -- p$*'                        '1|pa'
+testcase 'set -- a; set -- p$*q'               '1|paq'
+testcase 'set -- a; set -- $*q'                        '1|aq'
+testcase 'set -- a; set -- p$*'                        '1|pa'
+testcase 'set -- a; set -- "p$@q"'             '1|paq'
+testcase 'set -- a; set -- "$@q"'              '1|aq'
+testcase 'set -- a; set -- "p$@"'              '1|pa'
+testcase 'set -- a; set -- p"$@"q'             '1|paq'
+testcase 'set -- a; set -- "$@"q'              '1|aq'
+testcase 'set -- a; set -- p"$@"'              '1|pa'
+
+test "x$failures" = x