page-eject-item: Factor out of text_item.
[pspp] / tests / language / lexer / command-name.at
1 dnl PSPP - a program for statistical analysis.
2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
3 dnl
4 dnl This program is free software: you can redistribute it and/or modify
5 dnl it under the terms of the GNU General Public License as published by
6 dnl the Free Software Foundation, either version 3 of the License, or
7 dnl (at your option) any later version.
8 dnl
9 dnl This program is distributed in the hope that it will be useful,
10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 dnl GNU General Public License for more details.
13 dnl
14 dnl You should have received a copy of the GNU General Public License
15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
16 dnl
17 AT_BANNER([command name matching])
18 \f
19 AT_SETUP([single words])
20 AT_KEYWORDS([command name matching])
21 AT_CHECK([command-name-test DESCRIPTIVES , DESCRIPTIVESX DESCRIPTIVES descr Des DEX DE '' 'DESCRIPTIVES MORE' 'DESCRIPTIVES++MORE'],
22   [0], [dnl
23 string="DESCRIPTIVESX":
24         command="DESCRIPTIVES" match=no
25 match: none, missing_words=0
26
27 string="DESCRIPTIVES":
28         command="DESCRIPTIVES" match=yes exact=yes missing_words=0
29 match: DESCRIPTIVES, missing_words=0
30
31 string="descr":
32         command="DESCRIPTIVES" match=yes exact=no missing_words=0
33 match: DESCRIPTIVES, missing_words=0
34
35 string="Des":
36         command="DESCRIPTIVES" match=yes exact=no missing_words=0
37 match: DESCRIPTIVES, missing_words=0
38
39 string="DEX":
40         command="DESCRIPTIVES" match=no
41 match: none, missing_words=0
42
43 string="DE":
44         command="DESCRIPTIVES" match=no
45 match: none, missing_words=0
46
47 string="":
48         command="DESCRIPTIVES" match=yes exact=yes missing_words=1
49 match: none, missing_words=1
50
51 string="DESCRIPTIVES MORE":
52         command="DESCRIPTIVES" match=yes exact=yes missing_words=-1
53 match: DESCRIPTIVES, missing_words=-1
54
55 string="DESCRIPTIVES@<00A0>@MORE":
56         command="DESCRIPTIVES" match=yes exact=yes missing_words=-1
57 match: DESCRIPTIVES, missing_words=-1
58 ])
59 AT_CLEANUP
60 \f
61 AT_SETUP([two words without prefix match])
62 AT_KEYWORDS([command name matching])
63 AT_CHECK([command-name-test 'DO IF' 'DO REPEAT' , 'DO++IF' 'DO REPEAT' 'DO REP' 'DO OTHER' 'D IF' 'DO I' DO],
64   [0], [dnl
65 string="DO@<00A0>@IF":
66         command="DO IF" match=yes exact=yes missing_words=0
67         command="DO REPEAT" match=no
68 match: DO IF, missing_words=0
69
70 string="DO REPEAT":
71         command="DO IF" match=no
72         command="DO REPEAT" match=yes exact=yes missing_words=0
73 match: DO REPEAT, missing_words=0
74
75 string="DO REP":
76         command="DO IF" match=no
77         command="DO REPEAT" match=yes exact=no missing_words=0
78 match: DO REPEAT, missing_words=0
79
80 string="DO OTHER":
81         command="DO IF" match=no
82         command="DO REPEAT" match=no
83 match: none, missing_words=0
84
85 string="D IF":
86         command="DO IF" match=no
87         command="DO REPEAT" match=no
88 match: none, missing_words=0
89
90 string="DO I":
91         command="DO IF" match=no
92         command="DO REPEAT" match=no
93 match: none, missing_words=0
94
95 string="DO":
96         command="DO IF" match=yes exact=yes missing_words=1
97         command="DO REPEAT" match=yes exact=yes missing_words=1
98 match: none, missing_words=1
99 ])
100 AT_CLEANUP
101 \f
102 AT_SETUP([two words with prefix match])
103 AT_KEYWORDS([command name matching])
104 AT_CHECK([command-name-test GET 'GET DATA' , GET 'GET TYPE' 'GET DAT' 'GET DATA'],
105   [0], [dnl
106 string="GET":
107         command="GET" match=yes exact=yes missing_words=0
108         command="GET DATA" match=yes exact=yes missing_words=1
109 match: none, missing_words=1
110
111 string="GET TYPE":
112         command="GET" match=yes exact=yes missing_words=-1
113         command="GET DATA" match=no
114 match: GET, missing_words=-1
115
116 string="GET DAT":
117         command="GET" match=yes exact=yes missing_words=-1
118         command="GET DATA" match=yes exact=no missing_words=0
119 match: GET DATA, missing_words=0
120
121 string="GET DATA":
122         command="GET" match=yes exact=yes missing_words=-1
123         command="GET DATA" match=yes exact=yes missing_words=0
124 match: GET DATA, missing_words=0
125 ])
126 AT_CLEANUP
127 \f
128 AT_SETUP([ambiguous single-word names])
129 AT_KEYWORDS([command name matching])
130 AT_CHECK([command-name-test CASEPLOT CASESTOVARS , CAS Case CaseP CaseS], [0],
131   [dnl
132 string="CAS":
133         command="CASEPLOT" match=yes exact=no missing_words=0
134         command="CASESTOVARS" match=yes exact=no missing_words=0
135 match: none, missing_words=0
136
137 string="Case":
138         command="CASEPLOT" match=yes exact=no missing_words=0
139         command="CASESTOVARS" match=yes exact=no missing_words=0
140 match: none, missing_words=0
141
142 string="CaseP":
143         command="CASEPLOT" match=yes exact=no missing_words=0
144         command="CASESTOVARS" match=no
145 match: CASEPLOT, missing_words=0
146
147 string="CaseS":
148         command="CASEPLOT" match=no
149         command="CASESTOVARS" match=yes exact=no missing_words=0
150 match: CASESTOVARS, missing_words=0
151 ])
152 AT_CLEANUP
153
154 AT_SETUP([ambiguous two-word names])
155 AT_KEYWORDS([command name matching])
156 AT_CHECK([command-name-test VARCOMP VARSTOCASES 'VARIABLE ATTRIBUTE' , VAR VARC VARS VARI 'VAR++ATT'],
157   [0], [dnl
158 string="VAR":
159         command="VARCOMP" match=yes exact=no missing_words=0
160         command="VARSTOCASES" match=yes exact=no missing_words=0
161         command="VARIABLE ATTRIBUTE" match=yes exact=no missing_words=1
162 match: none, missing_words=1
163
164 string="VARC":
165         command="VARCOMP" match=yes exact=no missing_words=0
166         command="VARSTOCASES" match=no
167         command="VARIABLE ATTRIBUTE" match=no
168 match: VARCOMP, missing_words=0
169
170 string="VARS":
171         command="VARCOMP" match=no
172         command="VARSTOCASES" match=yes exact=no missing_words=0
173         command="VARIABLE ATTRIBUTE" match=no
174 match: VARSTOCASES, missing_words=0
175
176 string="VARI":
177         command="VARCOMP" match=no
178         command="VARSTOCASES" match=no
179         command="VARIABLE ATTRIBUTE" match=yes exact=no missing_words=1
180 match: none, missing_words=1
181
182 string="VAR@<00A0>@ATT":
183         command="VARCOMP" match=yes exact=no missing_words=-1
184         command="VARSTOCASES" match=yes exact=no missing_words=-1
185         command="VARIABLE ATTRIBUTE" match=yes exact=no missing_words=0
186 match: VARIABLE ATTRIBUTE, missing_words=0
187 ])
188 AT_CLEANUP
189 \f
190 AT_SETUP([numbers and punctuation])
191 AT_KEYWORDS([command name matching])
192 AT_CHECK([command-name-test T-TEST 2SLS LIST , T-TEST 'T - Test' 2SLS '2 SLS' List],
193   [0], [dnl
194 string="T-TEST":
195         command="T-TEST" match=yes exact=yes missing_words=0
196         command="2SLS" match=no
197         command="LIST" match=no
198 match: T-TEST, missing_words=0
199
200 string="T - Test":
201         command="T-TEST" match=yes exact=yes missing_words=0
202         command="2SLS" match=no
203         command="LIST" match=no
204 match: T-TEST, missing_words=0
205
206 string="2SLS":
207         command="T-TEST" match=no
208         command="2SLS" match=yes exact=yes missing_words=0
209         command="LIST" match=no
210 match: 2SLS, missing_words=0
211
212 string="2 SLS":
213         command="T-TEST" match=no
214         command="2SLS" match=yes exact=yes missing_words=0
215         command="LIST" match=no
216 match: 2SLS, missing_words=0
217
218 string="List":
219         command="T-TEST" match=no
220         command="2SLS" match=no
221         command="LIST" match=yes exact=yes missing_words=0
222 match: LIST, missing_words=0
223 ])
224 AT_CLEANUP
225 \f
226 AT_SETUP([off by more than one word])
227 AT_KEYWORDS([command name matching])
228 AT_CHECK([command-name-test 'a++b c' , a 'a b' 'a b c' 'a++b c d' 'a b c++d e'],
229   [0], [dnl
230 string="a":
231         command="a@<00A0>@b c" match=yes exact=yes missing_words=2
232 match: none, missing_words=1
233
234 string="a b":
235         command="a@<00A0>@b c" match=yes exact=yes missing_words=1
236 match: none, missing_words=1
237
238 string="a b c":
239         command="a@<00A0>@b c" match=yes exact=yes missing_words=0
240 match: a@<00A0>@b c, missing_words=0
241
242 string="a@<00A0>@b c d":
243         command="a@<00A0>@b c" match=yes exact=yes missing_words=-1
244 match: a@<00A0>@b c, missing_words=-1
245
246 string="a b c@<00A0>@d e":
247         command="a@<00A0>@b c" match=yes exact=yes missing_words=-2
248 match: a@<00A0>@b c, missing_words=-2
249 ])
250 AT_CLEANUP