1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
# Tests for _regex_arguments.
%prep
if [[ $OSTYPE = cygwin ]]; then
ZTST_unimplemented="the zsh/zpty module does not work on Cygwin"
elif ( zmodload zsh/zpty 2>/dev/null ); then
. $ZTST_srcdir/comptest
mkdir comp.tmp
cd comp.tmp
comptestinit -z $ZTST_testdir/../Src/zsh &&
{
word=$'[^\0]#\0'
comptesteval \
'compdef _tst tst' \
'setopt extended_glob' # running _regex_arguments outside of completion below
tst_regex() { comptesteval "_regex_arguments _tst /$'[^\0]#\0'/ ${${(@q)*}}" }
}
else
ZTST_unimplemented="the zsh/zpty module is not available"
fi
%test
tst_regex /one/ ':first:first:(one)'
comptesteval "functions _tst >/tmp/hello"
comptest $'tst \t'
0:standalone spec
>line: {tst one }{}
tst_regex \( /'one '/ ':fixed:fixed:(one)' \| /'two '/ ':second:second:compadd two' \| /'[0-9]## '/ ': _message -e numbers number' \| /'0x[0-9a-f]## '/ ':hex:hex:' \)
comptest $'tst \t'
0:simple alternation, use of _message for description with no matches
>line: {tst }{}
>DESCRIPTION:{fixed}
>NO:{one}
>DESCRIPTION:{second}
>NO:{two}
>DESCRIPTION:{number}
tst_regex /$'rpc\0'/ \
\(\
/"$word"/ ':programs:program:compadd -qS, mountd nisd' \
\|\
/$'[^,\0]##,[^,\0]##,'/ /$'[^,\0]##\0'/ ':procedures:procedure:' \
\|\
/$'[^,\0]##,'/ /$'[^,\0]##\0'/ ':versions:version:' \
\)
comptest $'tst rpc m\t\t1,\t'
0:optional fields after a suffix
>line: {tst rpc mountd,}{}
>line: {tst rpc mountd,}{}
>DESCRIPTION:{version}
>line: {tst rpc mountd,1,}{}
>DESCRIPTION:{procedure}
tst_regex \( /$'[0-9]##,'/ ':numbers:number:compadd -qS, 1 2' \) \# /$'end\0'/ ':end:end:(end)' /next/ ':next:next:(next)'
comptest $'tst \t1\t2,e\t\t'
0:simple repetition, note zero repititions allowed
>line: {tst }{}
>DESCRIPTION:{number}
>NO:{1}
>NO:{2}
>DESCRIPTION:{end}
>NO:{end}
>line: {tst 1,}{}
>line: {tst 1,2,end }{}
>line: {tst 1,2,end next }{}
tst_regex \( /--/+ /$'(on|fix)='/ $'/[^\0]##\0/' ':names:boolean value:(false true)' \|\
/"[]"/ ':options:option:compadd -qS= - --on --fix' \) \# /next/ ':next:next:(next)'
comptest $'tst --\ton=t\t\t'
0:non-matching pattern to separate matches from consuming patterns
>line: {tst --}{}
>DESCRIPTION:{option}
>NO:{--fix}
>NO:{--on}
>line: {tst --on=true }{}
>line: {tst --on=true --}{}
tst_regex \
\(\
/$'(true|false)\0'/ -'last=bool' ':names:boolean:(false true)' \
\|\
/$'(val|opt)\0'/ -'last=${match[1]%?}' ':opts:option:(val opt)' \
\) \# \
/$'[^\0]##\0'/ ':last:last:compadd - $last'
comptest $'tst true \tv\t \tfalse f\t'
0:use guard and $match to reference prior argument
>line: {tst true }{}
>DESCRIPTION:{boolean}
>NO:{false}
>NO:{true}
>DESCRIPTION:{option}
>NO:{opt}
>NO:{val}
>DESCRIPTION:{last}
>NO:{bool}
>line: {tst true val }{}
>line: {tst true val }{}
>DESCRIPTION:{boolean}
>NO:{false}
>NO:{true}
>DESCRIPTION:{option}
>NO:{opt}
>NO:{val}
>DESCRIPTION:{last}
>NO:{val}
>line: {tst true val false false }{}
%clean
zmodload -ui zsh/zpty
|
