From 1bfcff129d27314d2b5b08117a61e67912fafc2d Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@zsh.org>
Date: Sat, 4 Nov 2017 00:57:48 +0100
Subject: 41983: fix exclusion of long options with (-) on a normal argument

---
 Test/Y03arguments.ztst | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'Test')

diff --git a/Test/Y03arguments.ztst b/Test/Y03arguments.ztst
index de495ee6c..7cbadfe8c 100644
--- a/Test/Y03arguments.ztst
+++ b/Test/Y03arguments.ztst
@@ -485,12 +485,18 @@
 >NO:{-c}
 >NO:{-g}
 
- tst_arguments '(-)-h' -a -b -c
+ tst_arguments '(-)-h' -a -b -c --long +p
  comptest $'tst -h -\t'
 0:exclude all other options
 >line: {tst -h -}{}
 >MESSAGE:{no arguments}
 
+ tst_arguments --args -b -c +p '(-)1:normal'
+ comptest $'tst arg -\t'
+0:exclude all options from a normal argument
+>line: {tst arg -}{}
+>MESSAGE:{no more arguments}
+
  tst_arguments -a '(-a)-b'
  comptest $'tst - -b\C-b\C-b\C-b\t'
 0:exclusion only applies to later words
-- 
cgit 1.4.1