diff options
author | Peter Stephenson <pws@users.sourceforge.net> | 2007-01-19 21:36:00 +0000 |
---|---|---|
committer | Peter Stephenson <pws@users.sourceforge.net> | 2007-01-19 21:36:00 +0000 |
commit | de272e0309bc1739f13cc8271a2f94bcde7ba23c (patch) | |
tree | d094cb847e41520af34ef250e4c82eea66f52016 /Test | |
parent | a5729be83502b3d2ba93e38a485393c9af13a935 (diff) | |
download | zsh-de272e0309bc1739f13cc8271a2f94bcde7ba23c.tar.gz zsh-de272e0309bc1739f13cc8271a2f94bcde7ba23c.tar.xz zsh-de272e0309bc1739f13cc8271a2f94bcde7ba23c.zip |
23115: ";|" at end of case clause causes later patterns to be tested
Diffstat (limited to 'Test')
-rw-r--r-- | Test/A01grammar.ztst | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Test/A01grammar.ztst b/Test/A01grammar.ztst index 093ef5635..42ff8d405 100644 --- a/Test/A01grammar.ztst +++ b/Test/A01grammar.ztst @@ -413,6 +413,29 @@ 0:`case' with braces >schmavo + for word in artichoke bladderwort chrysanthemum Zanzibar + case $word in + (*der*) print $word contains the forbidden incantation der + ;; + (a*) print $word begins with a + ;& + ([[:upper:]]*) print $word either begins with a or an upper case letter + ;| + ([[:lower:]]*) print $word begins with a lower case letter + ;| + (*e*) print $word contains an e + ;; + esac +0:`case' with mixed ;& and ;| +>artichoke begins with a +>artichoke either begins with a or an upper case letter +>artichoke begins with a lower case letter +>artichoke contains an e +>bladderwort contains the forbidden incantation der +>chrysanthemum begins with a lower case letter +>chrysanthemum contains an e +>Zanzibar either begins with a or an upper case letter + print 'This test hangs the shell when it fails...' >&8 name=0 # The number 4375 here is chosen to produce more than 16384 bytes of output |