diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | Test/E02xtrace.ztst | 37 |
2 files changed, 34 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog index 321216c7a..c6504d882 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2019-12-26 Daniel Shahaf <danielsh@apache.org> + * unposted (follow-up to 45131): Test/E02xtrace.ztst: Extra + testing by Mikael + * 45137: Src/Modules/zutil.c, Test/V13zformat.ztst: zformat: Allow the specifying minimum width and a dot with an empty maximum width. diff --git a/Test/E02xtrace.ztst b/Test/E02xtrace.ztst index 8d2c300cf..a5a7bc55c 100644 --- a/Test/E02xtrace.ztst +++ b/Test/E02xtrace.ztst @@ -147,11 +147,36 @@ ?+(anon):0> true ?+fn:0> gn - f() { - f() { echo inner } - } - functions -T f - f - which f | grep '# traced' + test_cases=( + f # baseline + foo-bar # Dash + ヌ # Meta (the UTF-8 representation of this character has an 0x83 byte) + \$\'ba\\0z\' # Nul, escaped as though by ${(qqqq)} + ) + for 1 in "$test_cases[@]"; do + eval " + ${1}() { + ${1}() { echo inner } + } + functions -T ${1} + ${1} + which ${1} + " + done 0:a function that redefines itself preserves tracing +>f () { +> # traced +> echo inner +>} +>foo-bar () { +> # traced +> echo inner +>} +>$'\M-c\M-\C-C\M-\C-L' () { +> # traced +> echo inner +>} +>$'ba\C-@z' () { > # traced +> echo inner +>} |