]> git.cworth.org Git - notmuch-old/blob - test/T081-sexpr-search.sh
doc/emacs: add docstring and example for n-search-result-format
[notmuch-old] / test / T081-sexpr-search.sh
1 #!/usr/bin/env bash
2 test_description='"notmuch search" in several variations'
3 . $(dirname "$0")/test-lib.sh || exit 1
4
5 if [ $NOTMUCH_HAVE_SFSEXP -ne 1 ]; then
6     printf "Skipping due to missing sfsexp library\n"
7     test_done
8 fi
9
10 add_email_corpus
11
12 for query in '()' '(not)' '(and)' '(or ())' '(or (not))' '(or (and))' \
13             '(or (and) (or) (not (and)))'; do
14     test_begin_subtest "all messages: $query"
15     notmuch search '*' > EXPECTED
16     notmuch search --query=sexp "$query" > OUTPUT
17     test_expect_equal_file EXPECTED OUTPUT
18 done
19
20 for query in '(or)' '(not ())' '(not (not))' '(not (and))' \
21                    '(not (or (and) (or) (not (and))))'; do
22     test_begin_subtest "no messages: $query"
23     notmuch search --query=sexp "$query" > OUTPUT
24     test_expect_equal_file /dev/null OUTPUT
25 done
26
27 test_begin_subtest "and of exact terms"
28 notmuch search --query=sexp '(and "wonderful" "wizard")' | notmuch_search_sanitize > OUTPUT
29 cat <<EOF > EXPECTED
30 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
31 EOF
32 test_expect_equal_file EXPECTED OUTPUT
33
34 test_begin_subtest "and of stemmed terms"
35 notmuch search --query=sexp '(and wonderful wizard)' | notmuch_search_sanitize > OUTPUT
36 cat <<EOF > EXPECTED
37 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
38 EOF
39 test_expect_equal_file EXPECTED OUTPUT
40
41 test_begin_subtest "or of exact terms"
42 notmuch search --query=sexp '(or "php" "wizard")' | notmuch_search_sanitize > OUTPUT
43 cat <<EOF > EXPECTED
44 thread:XXX   2010-12-29 [1/1] François Boulogne; [aur-general] Guidelines: cp, mkdir vs install (inbox unread)
45 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
46 EOF
47 test_expect_equal_file EXPECTED OUTPUT
48
49 test_begin_subtest "or of exact terms via field processor"
50 notmuch search  'sexp:"(or ""php"" ""wizard"")"' | notmuch_search_sanitize > OUTPUT
51 cat <<EOF > EXPECTED
52 thread:XXX   2010-12-29 [1/1] François Boulogne; [aur-general] Guidelines: cp, mkdir vs install (inbox unread)
53 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
54 EOF
55 test_expect_equal_file EXPECTED OUTPUT
56
57 test_begin_subtest "single term in body"
58 notmuch search --query=sexp 'wizard' | notmuch_search_sanitize>OUTPUT
59 cat <<EOF > EXPECTED
60 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
61 EOF
62 test_expect_equal_file EXPECTED OUTPUT
63
64 test_begin_subtest "single term in body (case insensitive)"
65 notmuch search --query=sexp 'Wizard' | notmuch_search_sanitize>OUTPUT
66 cat <<EOF > EXPECTED
67 thread:XXX   2009-11-18 [1/3] Carl Worth| Jan Janak; [notmuch] What a great idea! (inbox unread)
68 EOF
69 test_expect_equal_file EXPECTED OUTPUT
70
71 test_begin_subtest "single term in body, stemmed version"
72 notmuch search arriv > EXPECTED
73 notmuch search --query=sexp arriv > OUTPUT
74 test_expect_equal_file EXPECTED OUTPUT
75
76 test_begin_subtest "single term in body, unstemmed version"
77 notmuch search --query=sexp '"arriv"' > OUTPUT
78 test_expect_equal_file /dev/null OUTPUT
79
80 test_begin_subtest "Search by 'subject'"
81 add_message [subject]=subjectsearchtest '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
82 output=$(notmuch search --query=sexp '(subject subjectsearchtest)' | notmuch_search_sanitize)
83 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; subjectsearchtest (inbox unread)"
84
85 test_begin_subtest "Search by 'subject' (case insensitive)"
86 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
87 notmuch search --query=sexp '(subject "Maildir")' | notmuch_search_sanitize > OUTPUT
88 test_expect_equal_file EXPECTED OUTPUT
89
90 test_begin_subtest "Search by 'subject' (utf-8):"
91 add_message [subject]=utf8-sübjéct '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
92 output=$(notmuch search --query=sexp '(subject utf8 sübjéct)' | notmuch_search_sanitize)
93 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)"
94
95 test_begin_subtest "Search by 'subject' (utf-8, and):"
96 output=$(notmuch search --query=sexp '(subject (and utf8 sübjéct))' | notmuch_search_sanitize)
97 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)"
98
99 test_begin_subtest "Search by 'subject' (utf-8, and outside):"
100 output=$(notmuch search --query=sexp '(and (subject utf8) (subject sübjéct))' | notmuch_search_sanitize)
101 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)"
102
103 test_begin_subtest "Search by 'subject' (utf-8, or):"
104 notmuch search --query=sexp '(subject (or utf8 subjectsearchtest))' | notmuch_search_sanitize > OUTPUT
105 cat <<EOF > EXPECTED
106 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; subjectsearchtest (inbox unread)
107 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)
108 EOF
109 test_expect_equal_file EXPECTED OUTPUT
110
111 test_begin_subtest "Search by 'subject' (utf-8, or outside):"
112 notmuch search --query=sexp '(or (subject utf8) (subject subjectsearchtest))' | notmuch_search_sanitize > OUTPUT
113 cat <<EOF > EXPECTED
114 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; subjectsearchtest (inbox unread)
115 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)
116 EOF
117 test_expect_equal_file EXPECTED OUTPUT
118
119 test_begin_subtest "Search by 'attachment'"
120 notmuch search attachment:notmuch-help.patch > EXPECTED
121 notmuch search --query=sexp '(attachment notmuch-help.patch)' > OUTPUT
122 test_expect_equal_file EXPECTED OUTPUT
123
124 test_begin_subtest "Search by 'body'"
125 add_message '[subject]="body search"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' [body]=bodysearchtest
126 output=$(notmuch search --query=sexp '(body bodysearchtest)' | notmuch_search_sanitize)
127 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; body search (inbox unread)"
128
129 test_begin_subtest "Search by 'body' (phrase)"
130 add_message '[subject]="body search (phrase)"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' '[body]="body search (phrase)"'
131 add_message '[subject]="negative result"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' '[body]="This phrase should not match the body search"'
132 output=$(notmuch search --query=sexp '(body "body search phrase")' | notmuch_search_sanitize)
133 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; body search (phrase) (inbox unread)"
134
135 test_begin_subtest "Search by 'body' (utf-8):"
136 add_message '[subject]="utf8-message-body-subject"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' '[body]="message body utf8: bödý"'
137 output=$(notmuch search --query=sexp '(body bödý)' | notmuch_search_sanitize)
138 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-message-body-subject (inbox unread)"
139
140 add_message "[body]=thebody-1" "[subject]=kryptonite-1"
141 add_message "[body]=nothing-to-see-here-1" "[subject]=thebody-1"
142
143 test_begin_subtest 'search without body: prefix'
144 notmuch search thebody > EXPECTED
145 notmuch search --query=sexp '(and thebody)' > OUTPUT
146 test_expect_equal_file EXPECTED OUTPUT
147
148 test_begin_subtest 'negated body: prefix'
149 notmuch search thebody and not body:thebody > EXPECTED
150 notmuch search --query=sexp '(and (not (body thebody)) thebody)' > OUTPUT
151 test_expect_equal_file EXPECTED OUTPUT
152
153 test_begin_subtest 'search unprefixed for prefixed term'
154 notmuch search kryptonite > EXPECTED
155 notmuch search --query=sexp '(and kryptonite)' > OUTPUT
156 test_expect_equal_file EXPECTED OUTPUT
157
158 test_begin_subtest 'search with body: prefix for term only in subject'
159 notmuch search body:kryptonite > EXPECTED
160 notmuch search --query=sexp '(body kryptonite)' > OUTPUT
161 test_expect_equal_file EXPECTED OUTPUT
162
163 test_begin_subtest "Search by 'from'"
164 add_message '[subject]="search by from"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' [from]=searchbyfrom
165 output=$(notmuch search --query=sexp '(from searchbyfrom)' | notmuch_search_sanitize)
166 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] searchbyfrom; search by from (inbox unread)"
167
168 test_begin_subtest "Search by 'from' (address)"
169 add_message '[subject]="search by from (address)"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' [from]=searchbyfrom@example.com
170 output=$(notmuch search --query=sexp '(from searchbyfrom@example.com)' | notmuch_search_sanitize)
171 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] searchbyfrom@example.com; search by from (address) (inbox unread)"
172
173 test_begin_subtest "Search by 'from' (name)"
174 add_message '[subject]="search by from (name)"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' '[from]="Search By From Name <test@example.com>"'
175 output=$(notmuch search --query=sexp '(from "Search By From Name")' | notmuch_search_sanitize)
176 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Search By From Name; search by from (name) (inbox unread)"
177
178 test_begin_subtest "Search by 'from' (name and address)"
179 output=$(notmuch search --query=sexp '(from "Search By From Name <test@example.com>")' | notmuch_search_sanitize)
180 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Search By From Name; search by from (name) (inbox unread)"
181
182 add_message '[dir]=bad' '[subject]="To the bone"'
183 add_message '[dir]=.' '[subject]="Top level"'
184 add_message '[dir]=bad/news' '[subject]="Bears"'
185 mkdir -p "${MAIL_DIR}/duplicate/bad/news"
186 cp "$gen_msg_filename" "${MAIL_DIR}/duplicate/bad/news"
187
188 add_message '[dir]=things' '[subject]="These are a few"'
189 add_message '[dir]=things/favorite' '[subject]="Raindrops, whiskers, kettles"'
190 add_message '[dir]=things/bad' '[subject]="Bites, stings, sad feelings"'
191
192 test_begin_subtest "Search by 'folder' (multiple)"
193 output=$(notmuch search --query=sexp '(folder bad bad/news things/bad)' | notmuch_search_sanitize)
194 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; To the bone (inbox unread)
195 thread:XXX   2001-01-05 [1/1(2)] Notmuch Test Suite; Bears (inbox unread)
196 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Bites, stings, sad feelings (inbox unread)"
197
198 test_begin_subtest "Search by 'folder': top level."
199 notmuch search folder:'""' > EXPECTED
200 notmuch search --query=sexp '(folder "")'  > OUTPUT
201 test_expect_equal_file EXPECTED OUTPUT
202
203 test_begin_subtest "Search by 'folder' with --output=files"
204 output=$(notmuch search --output=files --query=sexp '(folder bad/news)' | notmuch_search_files_sanitize)
205 test_expect_equal "$output" "MAIL_DIR/bad/news/msg-XXX
206 MAIL_DIR/duplicate/bad/news/msg-XXX"
207
208 test_begin_subtest "Search by 'folder' with --output=files (trailing /)"
209 output=$(notmuch search --output=files --query=sexp '(folder bad/news/)' | notmuch_search_files_sanitize)
210 test_expect_equal "$output" "MAIL_DIR/bad/news/msg-XXX
211 MAIL_DIR/duplicate/bad/news/msg-XXX"
212
213 test_begin_subtest "Search by 'folder' (multiple)"
214 output=$(notmuch search --query=sexp '(folder bad bad/news things/bad)' | notmuch_search_sanitize)
215 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; To the bone (inbox unread)
216 thread:XXX   2001-01-05 [1/1(2)] Notmuch Test Suite; Bears (inbox unread)
217 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Bites, stings, sad feelings (inbox unread)"
218
219 test_begin_subtest "Search by 'folder' (multiple, trailing /)"
220 output=$(notmuch search --query=sexp '(folder bad bad/news/ things/bad)' | notmuch_search_sanitize)
221 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; To the bone (inbox unread)
222 thread:XXX   2001-01-05 [1/1(2)] Notmuch Test Suite; Bears (inbox unread)
223 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Bites, stings, sad feelings (inbox unread)"
224
225 test_begin_subtest "Search by 'path' with --output=files"
226 output=$(notmuch search --output=files --query=sexp '(path bad/news)' | notmuch_search_files_sanitize)
227 test_expect_equal "$output" "MAIL_DIR/bad/news/msg-XXX
228 MAIL_DIR/duplicate/bad/news/msg-XXX"
229
230 test_begin_subtest "Search by 'path' with --output=files (trailing /)"
231 output=$(notmuch search --output=files --query=sexp '(path bad/news/)' | notmuch_search_files_sanitize)
232 test_expect_equal "$output" "MAIL_DIR/bad/news/msg-XXX
233 MAIL_DIR/duplicate/bad/news/msg-XXX"
234
235 test_begin_subtest "Search by 'path' specification (multiple)"
236 output=$(notmuch search --query=sexp '(path bad bad/news things/bad)' | notmuch_search_sanitize)
237 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; To the bone (inbox unread)
238 thread:XXX   2001-01-05 [1/1(2)] Notmuch Test Suite; Bears (inbox unread)
239 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Bites, stings, sad feelings (inbox unread)"
240
241 test_begin_subtest "Search by 'path' specification (multiple, trailing /)"
242 output=$(notmuch search --query=sexp '(path bad bad/news/ things/bad)' | notmuch_search_sanitize)
243 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; To the bone (inbox unread)
244 thread:XXX   2001-01-05 [1/1(2)] Notmuch Test Suite; Bears (inbox unread)
245 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Bites, stings, sad feelings (inbox unread)"
246
247 test_begin_subtest "Search by 'id'"
248 add_message '[subject]="search by id"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
249 output=$(notmuch search --query=sexp "(id ${gen_msg_id})" | notmuch_search_sanitize)
250 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by id (inbox unread)"
251
252 test_begin_subtest "Search by 'id' (or)"
253 add_message '[subject]="search by id"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
254 output=$(notmuch search --query=sexp "(id non-existent-mid ${gen_msg_id})" | notmuch_search_sanitize)
255 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by id (inbox unread)"
256
257 test_begin_subtest "Search by 'is' (multiple)"
258 notmuch tag -inbox tag:searchbytag
259 notmuch search is:inbox AND is:unread | notmuch_search_sanitize > EXPECTED
260 notmuch search --query=sexp '(is inbox unread)' | notmuch_search_sanitize > OUTPUT
261 notmuch tag +inbox tag:searchbytag
262 test_expect_equal_file EXPECTED OUTPUT
263
264 test_begin_subtest "Search by 'mid'"
265 add_message '[subject]="search by mid"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
266 output=$(notmuch search --query=sexp "(mid ${gen_msg_id})" | notmuch_search_sanitize)
267 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by mid (inbox unread)"
268
269 test_begin_subtest "Search by 'mid' (or)"
270 add_message '[subject]="search by mid"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
271 output=$(notmuch search --query=sexp "(mid non-existent-mid ${gen_msg_id})" | notmuch_search_sanitize)
272 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by mid (inbox unread)"
273
274 test_begin_subtest "Search by 'mimetype'"
275 notmuch search mimetype:text/html > EXPECTED
276 notmuch search --query=sexp '(mimetype text html)'  > OUTPUT
277 test_expect_equal_file EXPECTED OUTPUT
278
279 QUERYSTR="date:2009-11-18..2009-11-18 and tag:unread"
280 QUERYSTR2="query:test and subject:Maildir"
281 notmuch config set --database query.test "$QUERYSTR"
282 notmuch config set query.test2 "$QUERYSTR2"
283
284 test_begin_subtest "ill-formed named query search"
285 notmuch search --query=sexp '(query)' > OUTPUT 2>&1
286 cat <<EOF > EXPECTED
287 notmuch search: Syntax error in query
288 'query' expects single atom as argument
289 EOF
290 test_expect_equal_file EXPECTED OUTPUT
291
292 test_begin_subtest "ill-formed named query search 2"
293 notmuch search --query=sexp '(to (query))' > OUTPUT 2>&1
294 cat <<EOF > EXPECTED
295 notmuch search: Syntax error in query
296 'query' not supported inside 'to'
297 EOF
298 test_expect_equal_file EXPECTED OUTPUT
299
300 test_begin_subtest "search named query"
301 notmuch search --query=sexp '(query test)' > OUTPUT
302 notmuch search $QUERYSTR > EXPECTED
303 test_expect_equal_file EXPECTED OUTPUT
304
305 test_begin_subtest "Search by 'subject' (utf-8, phrase-token):"
306 output=$(notmuch search --query=sexp '(subject utf8-sübjéct)' | notmuch_search_sanitize)
307 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)"
308
309 test_begin_subtest "search named query with other terms"
310 notmuch search --query=sexp '(and (query test) (subject Maildir))' > OUTPUT
311 notmuch search $QUERYSTR and subject:Maildir > EXPECTED
312 test_expect_equal_file EXPECTED OUTPUT
313
314 test_begin_subtest "search nested named query"
315 notmuch search --query=sexp '(query test2)' > OUTPUT
316 notmuch search $QUERYSTR2 > EXPECTED
317 test_expect_equal_file EXPECTED OUTPUT
318
319 test_begin_subtest "Search by 'subject' (utf-8, quoted string):"
320 output=$(notmuch search --query=sexp '(subject "utf8 sübjéct")' | notmuch_search_sanitize)
321 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)"
322
323 test_begin_subtest "Search by 'subject' (combine phrase, term):"
324 output=$(notmuch search --query=sexp '(subject Mac "compatibility issues")' | notmuch_search_sanitize)
325 test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)"
326
327 test_begin_subtest "Search by 'subject' (combine phrase, term 2):"
328 notmuch search --query=sexp '(subject (or utf8 "compatibility issues"))' | notmuch_search_sanitize > OUTPUT
329 cat <<EOF > EXPECTED
330 thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)
331 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-sübjéct (inbox unread)
332 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; utf8-message-body-subject (inbox unread)
333 EOF
334 test_expect_equal_file EXPECTED OUTPUT
335
336 test_begin_subtest "Search by 'subject' (combine phrase, term 3):"
337 notmuch search --query=sexp '(subject issues X/Darwin)' | notmuch_search_sanitize > OUTPUT
338 cat <<EOF > EXPECTED
339 thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)
340 EOF
341 test_expect_equal_file EXPECTED OUTPUT
342
343 test_begin_subtest "Search by 'tag'"
344 add_message '[subject]="search by tag"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
345 notmuch tag +searchbytag id:${gen_msg_id}
346 output=$(notmuch search --query=sexp '(tag searchbytag)' | notmuch_search_sanitize)
347 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by tag (inbox searchbytag unread)"
348
349 test_begin_subtest "Search by 'tag' (multiple)"
350 notmuch tag -inbox tag:searchbytag
351 notmuch search tag:inbox AND tag:unread | notmuch_search_sanitize > EXPECTED
352 notmuch search --query=sexp '(tag inbox unread)' | notmuch_search_sanitize > OUTPUT
353 notmuch tag +inbox tag:searchbytag
354 test_expect_equal_file EXPECTED OUTPUT
355
356 test_begin_subtest "Search by 'tag' and 'subject'"
357 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
358 notmuch search --query=sexp '(and (tag inbox) (subject maildir))' | notmuch_search_sanitize > OUTPUT
359 test_expect_equal_file EXPECTED OUTPUT
360
361 test_begin_subtest "Search by 'thread'"
362 add_message '[subject]="search by thread"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
363 thread_id=$(notmuch search id:${gen_msg_id} | sed -e "s/thread:\([a-f0-9]*\).*/\1/")
364 output=$(notmuch search --query=sexp "(thread ${thread_id})" | notmuch_search_sanitize)
365 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by thread (inbox unread)"
366
367 test_begin_subtest "Search by 'to'"
368 add_message '[subject]="search by to"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' [to]=searchbyto
369 output=$(notmuch search --query=sexp '(to searchbyto)' | notmuch_search_sanitize)
370 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (inbox unread)"
371
372 test_begin_subtest "Search by 'to' (address)"
373 add_message '[subject]="search by to (address)"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' [to]=searchbyto@example.com
374 output=$(notmuch search --query=sexp '(to searchbyto@example.com)' | notmuch_search_sanitize)
375 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (address) (inbox unread)"
376
377 test_begin_subtest "Search by 'to' (name)"
378 add_message '[subject]="search by to (name)"' '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' '[to]="Search By To Name <test@example.com>"'
379 output=$(notmuch search --query=sexp '(to "Search By To Name")' | notmuch_search_sanitize)
380 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (name) (inbox unread)"
381
382 test_begin_subtest "Search by 'to' (name and address)"
383 output=$(notmuch search --query=sexp '(to "Search By To Name <test@example.com>")' | notmuch_search_sanitize)
384 test_expect_equal "$output" "thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (name) (inbox unread)"
385
386 test_begin_subtest "starts-with, no prefix"
387 output=$(notmuch search --query=sexp '(starts-with prelim)' | notmuch_search_sanitize)
388 test_expect_equal "$output" "thread:XXX   2009-11-17 [2/2] Alex Botero-Lowry, Carl Worth; [notmuch] preliminary FreeBSD support (attachment inbox unread)"
389
390 test_begin_subtest "starts-with, case-insensitive"
391 notmuch search --query=sexp '(starts-with FreeB)' | notmuch_search_sanitize > OUTPUT
392 cat <<EOF > EXPECTED
393 thread:XXX   2009-11-18 [3/4] Alexander Botero-Lowry, Jjgod Jiang; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)
394 thread:XXX   2009-11-17 [2/2] Alex Botero-Lowry, Carl Worth; [notmuch] preliminary FreeBSD support (attachment inbox unread)
395 EOF
396 test_expect_equal_file EXPECTED OUTPUT
397
398 test_begin_subtest "starts-with, no prefix, all messages"
399 notmuch search --query=sexp '(starts-with "")' | notmuch_search_sanitize > OUTPUT
400 notmuch search '*' | notmuch_search_sanitize > EXPECTED
401 test_expect_equal_file EXPECTED OUTPUT
402
403 test_begin_subtest "starts-with, attachment"
404 output=$(notmuch search --query=sexp '(attachment (starts-with not))' | notmuch_search_sanitize)
405 test_expect_equal "$output" 'thread:XXX   2009-11-18 [2/2] Lars Kellogg-Stedman; [notmuch] "notmuch help" outputs to stderr? (attachment inbox signed unread)'
406
407 test_begin_subtest "starts-with, folder"
408 notmuch search --output=files --query=sexp '(folder (starts-with bad))' | notmuch_search_files_sanitize > OUTPUT
409 cat <<EOF > EXPECTED
410 MAIL_DIR/bad/msg-XXX
411 MAIL_DIR/bad/news/msg-XXX
412 MAIL_DIR/duplicate/bad/news/msg-XXX
413 EOF
414 test_expect_equal_file EXPECTED OUTPUT
415
416 test_begin_subtest "starts-with, from"
417 notmuch search --query=sexp '(from (starts-with Mik))' | notmuch_search_sanitize > OUTPUT
418 cat <<EOF > EXPECTED
419 thread:XXX   2009-11-17 [1/1] Mikhail Gusarov; [notmuch] [PATCH] Handle rename of message file (inbox unread)
420 thread:XXX   2009-11-17 [2/7] Mikhail Gusarov| Lars Kellogg-Stedman, Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
421 thread:XXX   2009-11-17 [2/5] Mikhail Gusarov| Carl Worth, Keith Packard; [notmuch] [PATCH 2/2] Include <stdint.h> to get uint32_t in C++ file with gcc 4.4 (inbox unread)
422 EOF
423 test_expect_equal_file EXPECTED OUTPUT
424
425 test_begin_subtest "starts-with, id"
426 notmuch search --query=sexp --output=messages '(id (starts-with 877))' > OUTPUT
427 cat <<EOF > EXPECTED
428 id:877h1wv7mg.fsf@inf-8657.int-evry.fr
429 id:877htoqdbo.fsf@yoom.home.cworth.org
430 EOF
431 test_expect_equal_file EXPECTED OUTPUT
432
433 test_begin_subtest "starts-with, is"
434 output=$(notmuch search --query=sexp '(is (starts-with searchby))' | notmuch_search_sanitize)
435 test_expect_equal "$output" 'thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by tag (inbox searchbytag unread)'
436
437 test_begin_subtest "starts-with, mid"
438 notmuch search --query=sexp --output=messages '(mid (starts-with 877))' > OUTPUT
439 cat <<EOF > EXPECTED
440 id:877h1wv7mg.fsf@inf-8657.int-evry.fr
441 id:877htoqdbo.fsf@yoom.home.cworth.org
442 EOF
443 test_expect_equal_file EXPECTED OUTPUT
444
445 test_begin_subtest "starts-with, mimetype"
446 notmuch search --query=sexp '(mimetype (starts-with sig))' | notmuch_search_sanitize > OUTPUT
447 cat <<EOF > EXPECTED
448 thread:XXX   2009-11-18 [2/2] Lars Kellogg-Stedman; [notmuch] "notmuch help" outputs to stderr? (attachment inbox signed unread)
449 thread:XXX   2009-11-18 [4/7] Lars Kellogg-Stedman, Mikhail Gusarov| Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
450 thread:XXX   2009-11-17 [1/3] Adrian Perez de Castro| Keith Packard, Carl Worth; [notmuch] Introducing myself (inbox signed unread)
451 EOF
452 test_expect_equal_file EXPECTED OUTPUT
453
454 add_message '[subject]="message with properties"'
455 notmuch restore <<EOF
456 #= ${gen_msg_id} foo=bar
457 EOF
458
459 test_begin_subtest "starts-with, property"
460 notmuch search --query=sexp '(property (starts-with foo=))' | notmuch_search_sanitize > OUTPUT
461 cat <<EOF > EXPECTED
462 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; message with properties (inbox unread)
463 EOF
464 test_expect_equal_file EXPECTED OUTPUT
465
466 test_begin_subtest "starts-with, subject"
467 notmuch search --query=sexp '(subject (starts-with FreeB))' | notmuch_search_sanitize > OUTPUT
468 cat <<EOF > EXPECTED
469 thread:XXX   2009-11-17 [2/2] Alex Botero-Lowry, Carl Worth; [notmuch] preliminary FreeBSD support (attachment inbox unread)
470 EOF
471 test_expect_equal_file EXPECTED OUTPUT
472
473 test_begin_subtest "starts-with, tag"
474 output=$(notmuch search --query=sexp '(tag (starts-with searchby))' | notmuch_search_sanitize)
475 test_expect_equal "$output" 'thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by tag (inbox searchbytag unread)'
476
477 add_message '[subject]="no tags"'
478 notag_mid=${gen_msg_id}
479 notmuch tag -unread -inbox id:${notag_mid}
480
481 test_begin_subtest "negated starts-with, tag"
482 output=$(notmuch search --query=sexp '(tag (not (starts-with in)))' | notmuch_search_sanitize)
483 test_expect_equal "$output" 'thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; no tags ()'
484
485 test_begin_subtest "negated starts-with, tag 2"
486 output=$(notmuch search --query=sexp '(not (tag (starts-with in)))' | notmuch_search_sanitize)
487 test_expect_equal "$output" 'thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; no tags ()'
488
489 test_begin_subtest "negated starts-with, tag 3"
490 output=$(notmuch search --query=sexp '(not (tag (starts-with "")))' | notmuch_search_sanitize)
491 test_expect_equal "$output" 'thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; no tags ()'
492
493 test_begin_subtest "starts-with, thread"
494 notmuch search --query=sexp '(thread (starts-with "00"))' > OUTPUT
495 notmuch search '*' > EXPECTED
496 test_expect_equal_file EXPECTED OUTPUT
497
498 test_begin_subtest "starts-with, to"
499 notmuch search --query=sexp '(to (starts-with "search"))' | notmuch_search_sanitize > OUTPUT
500 cat <<EOF > EXPECTED
501 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (inbox unread)
502 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (address) (inbox unread)
503 thread:XXX   2000-01-01 [1/1] Notmuch Test Suite; search by to (name) (inbox unread)
504 EOF
505 test_expect_equal_file EXPECTED OUTPUT
506
507 test_begin_subtest "wildcard search for 'is'"
508 notmuch search not id:${notag_mid} > EXPECTED
509 notmuch search --query=sexp '(is *)' > OUTPUT
510 test_expect_equal_file EXPECTED OUTPUT
511
512 test_begin_subtest "negated wildcard search for 'is'"
513 notmuch search id:${notag_mid} > EXPECTED
514 notmuch search --query=sexp '(not (is *))' > OUTPUT
515 test_expect_equal_file EXPECTED OUTPUT
516
517 test_begin_subtest "wildcard search for 'property'"
518 notmuch search property:foo=bar > EXPECTED
519 notmuch search --query=sexp '(property *)' > OUTPUT
520 test_expect_equal_file EXPECTED OUTPUT
521
522 test_begin_subtest "wildcard search for 'tag'"
523 notmuch search not id:${notag_mid} > EXPECTED
524 notmuch search --query=sexp '(tag *)' > OUTPUT
525 test_expect_equal_file EXPECTED OUTPUT
526
527 test_begin_subtest "negated wildcard search for 'tag'"
528 notmuch search id:${notag_mid} > EXPECTED
529 notmuch search --query=sexp '(not (tag *))' > OUTPUT
530 test_expect_equal_file EXPECTED OUTPUT
531
532 add_message '[subject]="message with tag \"*\""'
533 notmuch tag '+*' id:${gen_msg_id}
534
535 test_begin_subtest "search for 'tag' \"*\""
536 output=$(notmuch search --query=sexp --output=messages '(tag "*")')
537 test_expect_equal "$output" "id:$gen_msg_id"
538
539 test_begin_subtest "search for missing / empty to"
540 add_message [to]="undisclosed-recipients:"
541 notmuch search --query=sexp '(not (to *))' | notmuch_search_sanitize > OUTPUT
542 cat <<EOF > EXPECTED
543 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; search for missing / empty to (inbox unread)
544 EOF
545 test_expect_equal_file EXPECTED OUTPUT
546
547 test_begin_subtest "Unbalanced parens"
548 # A code 1 indicates the error was handled (a crash will return e.g. 139).
549 test_expect_code 1 "notmuch search --query=sexp '('"
550
551 test_begin_subtest "Unbalanced parens, error message"
552 notmuch search --query=sexp '(' >OUTPUT 2>&1
553 cat <<EOF > EXPECTED
554 notmuch search: Syntax error in query
555 invalid s-expression: '('
556 EOF
557 test_expect_equal_file EXPECTED OUTPUT
558
559 test_begin_subtest "unknown prefix"
560 notmuch search --query=sexp '(foo)' >OUTPUT 2>&1
561 cat <<EOF > EXPECTED
562 notmuch search: Syntax error in query
563 unknown prefix 'foo'
564 EOF
565 test_expect_equal_file EXPECTED OUTPUT
566
567 test_begin_subtest "list as prefix"
568 notmuch search --query=sexp '((foo))' >OUTPUT 2>&1
569 cat <<EOF > EXPECTED
570 notmuch search: Syntax error in query
571 unexpected list in field/operation position
572 EOF
573 test_expect_equal_file EXPECTED OUTPUT
574
575 test_begin_subtest "illegal nesting"
576 notmuch search --query=sexp '(subject (subject foo))' >OUTPUT 2>&1
577 cat <<EOF > EXPECTED
578 notmuch search: Syntax error in query
579 nested field: 'subject' inside 'subject'
580 EOF
581 test_expect_equal_file EXPECTED OUTPUT
582
583 test_begin_subtest "starts-with, no argument"
584 notmuch search --query=sexp '(starts-with)' >OUTPUT 2>&1
585 cat <<EOF > EXPECTED
586 notmuch search: Syntax error in query
587 'starts-with' expects single atom as argument
588 EOF
589 test_expect_equal_file EXPECTED OUTPUT
590
591 test_begin_subtest "starts-with, list argument"
592 notmuch search --query=sexp '(starts-with (stuff))' >OUTPUT 2>&1
593 cat <<EOF > EXPECTED
594 notmuch search: Syntax error in query
595 'starts-with' expects single atom as argument
596 EOF
597 test_expect_equal_file EXPECTED OUTPUT
598
599 test_begin_subtest "starts-with, too many arguments"
600 notmuch search --query=sexp '(starts-with a b c)' >OUTPUT 2>&1
601 cat <<EOF > EXPECTED
602 notmuch search: Syntax error in query
603 'starts-with' expects single atom as argument
604 EOF
605 test_expect_equal_file EXPECTED OUTPUT
606
607 test_begin_subtest "starts-with, illegal field"
608 notmuch search --query=sexp '(body (starts-with foo))' >OUTPUT 2>&1
609 cat <<EOF > EXPECTED
610 notmuch search: Syntax error in query
611 'body' does not support wildcard queries
612 EOF
613 test_expect_equal_file EXPECTED OUTPUT
614
615 test_begin_subtest "wildcard, illegal field"
616 notmuch search --query=sexp '(body *)' >OUTPUT 2>&1
617 cat <<EOF > EXPECTED
618 notmuch search: Syntax error in query
619 'body' does not support wildcard queries
620 EOF
621 test_expect_equal_file EXPECTED OUTPUT
622
623 test_begin_subtest "Search, exclude \"deleted\" messages from search"
624 notmuch config set search.exclude_tags deleted
625 generate_message '[subject]="Not deleted"'
626 not_deleted_id=$gen_msg_id
627 generate_message '[subject]="Deleted"'
628 notmuch new > /dev/null
629 notmuch tag +deleted id:$gen_msg_id
630 deleted_id=$gen_msg_id
631 output=$(notmuch search --query=sexp '(subject deleted)' | notmuch_search_sanitize)
632 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Not deleted (inbox unread)"
633
634 test_begin_subtest "Search, exclude \"deleted\" messages from message search --exclude=false"
635 output=$(notmuch search --query=sexp --exclude=false --output=messages '(subject deleted)' | notmuch_search_sanitize)
636 test_expect_equal "$output" "id:$not_deleted_id
637 id:$deleted_id"
638
639 test_begin_subtest "Search, exclude \"deleted\" messages from search, overridden"
640 notmuch search --query=sexp '(and (subject deleted) (tag deleted))' | notmuch_search_sanitize > OUTPUT
641 cat <<EOF > EXPECTED
642 thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Deleted (deleted inbox unread)
643 EOF
644 test_expect_equal_file EXPECTED OUTPUT
645
646 test_begin_subtest "Search, exclude \"deleted\" messages from threads"
647 add_message '[subject]="Not deleted reply"' '[in-reply-to]="<$gen_msg_id>"'
648 output=$(notmuch search --query=sexp '(subject deleted)' | notmuch_search_sanitize)
649 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Not deleted (inbox unread)
650 thread:XXX   2001-01-05 [1/2] Notmuch Test Suite; Not deleted reply (deleted inbox unread)"
651
652 test_begin_subtest "Search, don't exclude \"deleted\" messages when --exclude=flag specified"
653 output=$(notmuch search --query=sexp --exclude=flag '(subject deleted)' | notmuch_search_sanitize)
654 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Not deleted (inbox unread)
655 thread:XXX   2001-01-05 [1/2] Notmuch Test Suite; Deleted (deleted inbox unread)"
656
657 test_begin_subtest "Search, don't exclude \"deleted\" messages from search if not configured"
658 notmuch config set search.exclude_tags
659 output=$(notmuch search --query=sexp '(subject deleted)' | notmuch_search_sanitize)
660 test_expect_equal "$output" "thread:XXX   2001-01-05 [1/1] Notmuch Test Suite; Not deleted (inbox unread)
661 thread:XXX   2001-01-05 [2/2] Notmuch Test Suite; Deleted (deleted inbox unread)"
662
663 test_begin_subtest "regex at top level"
664 notmuch search --query=sexp '(rx foo)' >& OUTPUT
665 cat <<EOF > EXPECTED
666 notmuch search: Syntax error in query
667 illegal 'rx' outside field
668 EOF
669 test_expect_equal_file EXPECTED OUTPUT
670
671 test_begin_subtest "regex in illegal field"
672 notmuch search --query=sexp '(body (regex foo))' >& OUTPUT
673 cat <<EOF > EXPECTED
674 notmuch search: Syntax error in query
675 'regex' not supported in field 'body'
676 EOF
677 test_expect_equal_file EXPECTED OUTPUT
678
679 notmuch search --output=messages from:cworth > cworth.msg-ids
680
681 test_begin_subtest "regexp 'from' search"
682 notmuch search --output=messages --query=sexp '(from (rx cworth))' > OUTPUT
683 test_expect_equal_file cworth.msg-ids OUTPUT
684
685 test_begin_subtest "regexp search for 'from' 2"
686 notmuch search from:/cworth@cworth.org/ and subject:patch | notmuch_search_sanitize > EXPECTED
687 notmuch search --query=sexp '(and (from (rx cworth@cworth.org)) (subject patch))' \
688     | notmuch_search_sanitize > OUTPUT
689 test_expect_equal_file EXPECTED OUTPUT
690
691 test_begin_subtest "regexp 'folder' search"
692 notmuch search 'folder:/^bar$/' | notmuch_search_sanitize > EXPECTED
693 notmuch search --query=sexp '(folder (rx ^bar$))' | notmuch_search_sanitize > OUTPUT
694 test_expect_equal_file EXPECTED OUTPUT
695
696 test_begin_subtest "regexp 'id' search"
697 notmuch search --output=messages --query=sexp '(id (rx yoom))' > OUTPUT
698 test_expect_equal_file cworth.msg-ids OUTPUT
699
700 test_begin_subtest "unanchored 'is' search"
701 notmuch search tag:signed or tag:inbox > EXPECTED
702 notmuch search --query=sexp '(is (rx i))' > OUTPUT
703 test_expect_equal_file EXPECTED OUTPUT
704
705 test_begin_subtest "anchored 'is' search"
706 notmuch search tag:signed > EXPECTED
707 notmuch search --query=sexp '(is (rx ^si))' > OUTPUT
708 test_expect_equal_file EXPECTED OUTPUT
709
710 test_begin_subtest "combine regexp mid and subject"
711 notmuch search subject:/-C/ and mid:/y..m/ | notmuch_search_sanitize > EXPECTED
712 notmuch search --query=sexp '(and (subject (rx -C)) (mid (rx y..m)))' | notmuch_search_sanitize > OUTPUT
713 test_expect_equal_file EXPECTED OUTPUT
714
715 test_begin_subtest "regexp 'path' search"
716 notmuch search 'path:/^bar$/' | notmuch_search_sanitize > EXPECTED
717 notmuch search --query=sexp '(path (rx ^bar$))' | notmuch_search_sanitize > OUTPUT
718 test_expect_equal_file EXPECTED OUTPUT
719
720 test_begin_subtest "regexp 'property' search"
721 notmuch search property:foo=bar > EXPECTED
722 notmuch search --query=sexp '(property (rx foo=.*))' > OUTPUT
723 test_expect_equal_file EXPECTED OUTPUT
724
725 test_begin_subtest "regexp 'property' search via field processor"
726 notmuch search property:foo=bar > EXPECTED
727 notmuch search  'sexp:"(property (rx foo=.*))"' > OUTPUT
728 test_expect_equal_file EXPECTED OUTPUT
729
730 test_begin_subtest "anchored 'tag' search"
731 notmuch search tag:signed > EXPECTED
732 notmuch search --query=sexp '(tag (rx ^si))' > OUTPUT
733 test_expect_equal_file EXPECTED OUTPUT
734
735 test_begin_subtest "regexp 'thread' search"
736 notmuch search --output=threads '*' | grep '7$' > EXPECTED
737 notmuch search --output=threads --query=sexp '(thread (rx 7$))' > OUTPUT
738 test_expect_equal_file EXPECTED OUTPUT
739
740 test_begin_subtest "Basic query that matches no messages"
741 count=$(notmuch count from:keithp and to:keithp)
742 test_expect_equal 0 "$count"
743
744 test_begin_subtest "Same query against threads"
745 notmuch search --query=sexp '(and (thread (of (from keithp))) (thread (matching (to keithp))))' \
746     | notmuch_search_sanitize > OUTPUT
747 cat<<EOF > EXPECTED
748 thread:XXX   2009-11-18 [7/7] Lars Kellogg-Stedman, Mikhail Gusarov, Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
749 EOF
750 test_expect_equal_file EXPECTED OUTPUT
751
752 test_begin_subtest "Mix thread and non-threads query"
753 notmuch search --query=sexp '(and (thread (matching keithp)) (to keithp))' | notmuch_search_sanitize > OUTPUT
754 cat<<EOF > EXPECTED
755 thread:XXX   2009-11-18 [1/7] Lars Kellogg-Stedman| Mikhail Gusarov, Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
756 EOF
757 test_expect_equal_file EXPECTED OUTPUT
758
759 test_begin_subtest "Compound subquery"
760 notmuch search --query=sexp '(thread (of (from keithp) (subject Maildir)))' | notmuch_search_sanitize > OUTPUT
761 cat<<EOF > EXPECTED
762 thread:XXX   2009-11-18 [7/7] Lars Kellogg-Stedman, Mikhail Gusarov, Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
763 EOF
764 test_expect_equal_file EXPECTED OUTPUT
765
766 test_begin_subtest "Compound subquery via field processor"
767 notmuch search 'sexp:"(thread (of (from keithp) (subject Maildir)))"' | notmuch_search_sanitize > OUTPUT
768 cat<<EOF > EXPECTED
769 thread:XXX   2009-11-18 [7/7] Lars Kellogg-Stedman, Mikhail Gusarov, Keith Packard, Carl Worth; [notmuch] Working with Maildir storage? (inbox signed unread)
770 EOF
771 test_expect_equal_file EXPECTED OUTPUT
772
773 test_begin_subtest "empty subquery"
774 notmuch search --query=sexp '(thread (of))' 1>OUTPUT 2>&1
775 notmuch search '*' > EXPECTED
776 test_expect_equal_file EXPECTED OUTPUT
777
778 test_begin_subtest "illegal expansion"
779 notmuch search --query=sexp '(id (of ego))' 1>OUTPUT 2>&1
780 cat<<EOF > EXPECTED
781 notmuch search: Syntax error in query
782 'of' unsupported inside 'id'
783 EOF
784 test_expect_equal_file EXPECTED OUTPUT
785
786 test_begin_subtest "(folder (of subquery))"
787 notmuch search --query=sexp --output=messages '(folder (of (id yun3a4cegoa.fsf@aiko.keithp.com)))' > OUTPUT
788 cat <<EOF > EXPECTED
789 id:yun1vjwegii.fsf@aiko.keithp.com
790 id:yun3a4cegoa.fsf@aiko.keithp.com
791 id:1258509400-32511-1-git-send-email-stewart@flamingspork.com
792 id:1258506353-20352-1-git-send-email-stewart@flamingspork.com
793 id:20091118010116.GC25380@dottiness.seas.harvard.edu
794 id:20091118005829.GB25380@dottiness.seas.harvard.edu
795 id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com
796 EOF
797 test_expect_equal_file EXPECTED OUTPUT
798
799 test_begin_subtest "infix query"
800 notmuch search to:searchbyto | notmuch_search_sanitize > EXPECTED
801 notmuch search --query=sexp '(infix "to:searchbyto")' |  notmuch_search_sanitize > OUTPUT
802 test_expect_equal_file EXPECTED OUTPUT
803
804 test_begin_subtest "bad infix query 1"
805 notmuch search --query=sexp '(infix "from:/unbalanced")' 2>&1|  notmuch_search_sanitize > OUTPUT
806 cat <<EOF > EXPECTED
807 notmuch search: Syntax error in query
808 Syntax error in infix query: from:/unbalanced
809 EOF
810 test_expect_equal_file EXPECTED OUTPUT
811
812 test_begin_subtest "bad infix query 2"
813 notmuch search --query=sexp '(infix "thread:{unbalanced")' 2>&1|  notmuch_search_sanitize > OUTPUT
814 cat <<EOF > EXPECTED
815 notmuch search: Syntax error in query
816 Syntax error in infix query: thread:{unbalanced
817 EOF
818 test_expect_equal_file EXPECTED OUTPUT
819
820 test_begin_subtest "bad infix query 3: bad nesting"
821 notmuch search --query=sexp '(subject (infix "tag:inbox"))' 2>&1|  notmuch_search_sanitize > OUTPUT
822 cat <<EOF > EXPECTED
823 notmuch search: Syntax error in query
824 'infix' not supported inside 'subject'
825 EOF
826 test_expect_equal_file EXPECTED OUTPUT
827
828 test_begin_subtest "infix query that matches no messages"
829 notmuch search --query=sexp '(and (infix "from:keithp") (infix "to:keithp"))' > OUTPUT
830 test_expect_equal_file /dev/null OUTPUT
831
832 test_begin_subtest "compound infix query"
833 notmuch search date:2009-11-18..2009-11-18 and tag:unread > EXPECTED
834 notmuch search --query=sexp  '(infix "date:2009-11-18..2009-11-18 and tag:unread")' > OUTPUT
835 test_expect_equal_file EXPECTED OUTPUT
836
837 test_begin_subtest "compound infix query 2"
838 notmuch search date:2009-11-18..2009-11-18 and tag:unread > EXPECTED
839 notmuch search --query=sexp  '(and (infix "date:2009-11-18..2009-11-18") (infix "tag:unread"))' > OUTPUT
840 test_expect_equal_file EXPECTED OUTPUT
841
842 test_begin_subtest "date query, empty"
843 notmuch search from:keithp | notmuch_search_sanitize > EXPECTED
844 notmuch search --query=sexp  '(and (date) (from keithp))'| notmuch_search_sanitize > OUTPUT
845 test_expect_equal_file EXPECTED OUTPUT
846
847 test_begin_subtest "date query, one argument"
848 notmuch search date:2009-11-18 and from:keithp | notmuch_search_sanitize > EXPECTED
849 notmuch search --query=sexp  '(and (date 2009-11-18) (from keithp))' | notmuch_search_sanitize > OUTPUT
850 test_expect_equal_file EXPECTED OUTPUT
851
852 test_begin_subtest "date query, two arguments"
853 notmuch search date:2009-11-17..2009-11-18 and from:keithp | notmuch_search_sanitize > EXPECTED
854 notmuch search --query=sexp  '(and (date 2009-11-17 2009-11-18) (from keithp))' | notmuch_search_sanitize > OUTPUT
855 test_expect_equal_file EXPECTED OUTPUT
856
857 test_begin_subtest "date query, lower bound only"
858 notmuch search date:2009-11-18.. and from:keithp | notmuch_search_sanitize > EXPECTED
859 notmuch search --query=sexp  '(and (date 2009-11-18 "") (from keithp))' | notmuch_search_sanitize > OUTPUT
860 test_expect_equal_file_nonempty EXPECTED OUTPUT
861
862 test_begin_subtest "date query, upper bound only"
863 notmuch search date:..2009-11-17 and from:keithp | notmuch_search_sanitize > EXPECTED
864 notmuch search --query=sexp  '(and (date "" 2009-11-17) (from keithp))' | notmuch_search_sanitize > OUTPUT
865 test_expect_equal_file_nonempty EXPECTED OUTPUT
866
867 test_begin_subtest "date query, lower bound only, using *"
868 notmuch search date:2009-11-18.. and from:keithp | notmuch_search_sanitize > EXPECTED
869 notmuch search --query=sexp  '(and (date 2009-11-18 *) (from keithp))' | notmuch_search_sanitize > OUTPUT
870 test_expect_equal_file_nonempty EXPECTED OUTPUT
871
872 test_begin_subtest "date query, upper bound only, using *"
873 notmuch search date:..2009-11-17 and from:keithp | notmuch_search_sanitize > EXPECTED
874 notmuch search --query=sexp  '(and (date * 2009-11-17) (from keithp))' | notmuch_search_sanitize > OUTPUT
875 test_expect_equal_file_nonempty EXPECTED OUTPUT
876
877 test_begin_subtest "date query, illegal nesting 1"
878 notmuch search --query=sexp '(to (date))' > OUTPUT 2>&1
879 cat <<EOF > EXPECTED
880 notmuch search: Syntax error in query
881 nested field: 'date' inside 'to'
882 EOF
883 test_expect_equal_file EXPECTED OUTPUT
884
885 test_begin_subtest "date query, illegal nesting 2"
886 notmuch search --query=sexp '(to (date 2021-11-18))' > OUTPUT 2>&1
887 cat <<EOF > EXPECTED
888 notmuch search: Syntax error in query
889 nested field: 'date' inside 'to'
890 EOF
891 test_expect_equal_file EXPECTED OUTPUT
892
893 test_begin_subtest "date query, illegal nesting 3"
894 notmuch search --query=sexp '(date (to))' > OUTPUT 2>&1
895 cat <<EOF > EXPECTED
896 notmuch search: Syntax error in query
897 expected atom as first argument of 'date'
898 EOF
899 test_expect_equal_file EXPECTED OUTPUT
900
901 test_begin_subtest "date query, illegal nesting 4"
902 notmuch search --query=sexp '(date today (to))' > OUTPUT 2>&1
903 cat <<EOF > EXPECTED
904 notmuch search: Syntax error in query
905 expected atom as second argument of 'date'
906 EOF
907 test_expect_equal_file EXPECTED OUTPUT
908
909 test_begin_subtest "date query, too many arguments"
910 notmuch search --query=sexp '(date yesterday and tommorow)' > OUTPUT 2>&1
911 cat <<EOF > EXPECTED
912 notmuch search: Syntax error in query
913 'date' expects maximum of two arguments
914 EOF
915 test_expect_equal_file EXPECTED OUTPUT
916
917 test_begin_subtest "date query, bad date"
918 notmuch search --query=sexp '(date "hawaiian-pizza-day")' > OUTPUT 2>&1
919 cat <<EOF > EXPECTED
920 notmuch search: Syntax error in query
921 Didn't understand date specification 'hawaiian-pizza-day'
922 EOF
923 test_expect_equal_file EXPECTED OUTPUT
924
925 test_begin_subtest "lastmod query, empty"
926 notmuch search from:keithp | notmuch_search_sanitize > EXPECTED
927 notmuch search --query=sexp  '(and (lastmod) (from keithp))'| notmuch_search_sanitize > OUTPUT
928 test_expect_equal_file EXPECTED OUTPUT
929
930 test_begin_subtest "lastmod query, one argument"
931 notmuch tag +4EFC743A.3060609@april.org id:4EFC743A.3060609@april.org
932 revision=$(notmuch count --lastmod '*' | cut -f3)
933 notmuch search lastmod:$revision..$revision | notmuch_search_sanitize > EXPECTED
934 notmuch search --query=sexp  "(and (lastmod $revision))" | notmuch_search_sanitize > OUTPUT
935 test_expect_equal_file EXPECTED OUTPUT
936
937 test_begin_subtest "lastmod query, two arguments"
938 notmuch tag +keithp from:keithp
939 revision2=$(notmuch count --lastmod '*' | cut -f3)
940 notmuch search lastmod:$revision..$revision2 | notmuch_search_sanitize > EXPECTED
941 notmuch search --query=sexp  "(and (lastmod $revision $revision2))" | notmuch_search_sanitize > OUTPUT
942 test_expect_equal_file EXPECTED OUTPUT
943
944 test_begin_subtest "lastmod query, lower bound only"
945 notmuch search lastmod:$revision.. | notmuch_search_sanitize > EXPECTED
946 notmuch search --query=sexp  "(lastmod $revision \"\")" | notmuch_search_sanitize > OUTPUT
947 test_expect_equal_file_nonempty EXPECTED OUTPUT
948
949 test_begin_subtest "lastmod query, upper bound only"
950 notmuch search lastmod:..$revision2 | notmuch_search_sanitize > EXPECTED
951 notmuch search --query=sexp  "(lastmod \"\" $revision2)" | notmuch_search_sanitize > OUTPUT
952 test_expect_equal_file_nonempty EXPECTED OUTPUT
953
954 test_begin_subtest "lastmod query, lower bound only, using *"
955 notmuch search lastmod:$revision.. | notmuch_search_sanitize > EXPECTED
956 notmuch search --query=sexp  "(lastmod $revision *)" | notmuch_search_sanitize > OUTPUT
957 test_expect_equal_file_nonempty EXPECTED OUTPUT
958
959 test_begin_subtest "lastmod query, upper bound only, using *"
960 notmuch search lastmod:..$revision2 | notmuch_search_sanitize > EXPECTED
961 notmuch search --query=sexp  "(lastmod * $revision2)" | notmuch_search_sanitize > OUTPUT
962 test_expect_equal_file_nonempty EXPECTED OUTPUT
963
964 test_begin_subtest "lastmod query, illegal nesting 1"
965 notmuch search --query=sexp '(to (lastmod))' > OUTPUT 2>&1
966 cat <<EOF > EXPECTED
967 notmuch search: Syntax error in query
968 nested field: 'lastmod' inside 'to'
969 EOF
970 test_expect_equal_file EXPECTED OUTPUT
971
972 test_begin_subtest "lastmod query, bad from revision"
973 notmuch search --query=sexp '(lastmod apples)' > OUTPUT 2>&1
974 cat <<EOF > EXPECTED
975 notmuch search: Syntax error in query
976 bad 'from' revision: 'apples'
977 EOF
978 test_expect_equal_file EXPECTED OUTPUT
979
980 test_begin_subtest "lastmod query, bad to revision"
981 notmuch search --query=sexp '(lastmod 0 apples)' > OUTPUT 2>&1
982 cat <<EOF > EXPECTED
983 notmuch search: Syntax error in query
984 bad 'to' revision: 'apples'
985 EOF
986 test_expect_equal_file EXPECTED OUTPUT
987
988 test_begin_subtest "lastmod query, illegal nesting 2"
989 notmuch search --query=sexp '(to (lastmod 2021-11-18))' > OUTPUT 2>&1
990 cat <<EOF > EXPECTED
991 notmuch search: Syntax error in query
992 nested field: 'lastmod' inside 'to'
993 EOF
994 test_expect_equal_file EXPECTED OUTPUT
995
996 test_begin_subtest "lastmod query, illegal nesting 3"
997 notmuch search --query=sexp '(lastmod (to))' > OUTPUT 2>&1
998 cat <<EOF > EXPECTED
999 notmuch search: Syntax error in query
1000 expected atom as first argument of 'lastmod'
1001 EOF
1002 test_expect_equal_file EXPECTED OUTPUT
1003
1004 test_begin_subtest "lastmod query, illegal nesting 4"
1005 notmuch search --query=sexp '(lastmod today (to))' > OUTPUT 2>&1
1006 cat <<EOF > EXPECTED
1007 notmuch search: Syntax error in query
1008 expected atom as second argument of 'lastmod'
1009 EOF
1010 test_expect_equal_file EXPECTED OUTPUT
1011
1012 test_begin_subtest "lastmod query, too many arguments"
1013 notmuch search --query=sexp '(lastmod yesterday and tommorow)' > OUTPUT 2>&1
1014 cat <<EOF > EXPECTED
1015 notmuch search: Syntax error in query
1016 'lastmod' expects maximum of two arguments
1017 EOF
1018 test_expect_equal_file EXPECTED OUTPUT
1019
1020 test_begin_subtest "user header (unknown header)"
1021 notmuch search --query=sexp '(FooBar)' >& OUTPUT
1022 cat <<EOF > EXPECTED
1023 notmuch search: Syntax error in query
1024 unknown prefix 'FooBar'
1025 EOF
1026 test_expect_equal_file EXPECTED OUTPUT
1027
1028 test_begin_subtest "adding user header"
1029 test_expect_code 0 "notmuch config set index.header.List \"List-Id\""
1030
1031 test_begin_subtest "reindexing"
1032 test_expect_code 0 'notmuch reindex "*"'
1033
1034 test_begin_subtest "wildcard search for user header"
1035 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1036 notmuch search --output=files --query=sexp '(List *)' | sort | notmuch_dir_sanitize > OUTPUT
1037 test_expect_equal_file EXPECTED OUTPUT
1038
1039 test_begin_subtest "wildcard search for user header via field processor"
1040 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1041 notmuch search --output=files  'sexp:"(List *)"' | sort | notmuch_dir_sanitize > OUTPUT
1042 test_expect_equal_file EXPECTED OUTPUT
1043
1044 test_begin_subtest "wildcard search for user header 2"
1045 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1046 notmuch search --output=files --query=sexp '(List (starts-with not))' | sort | notmuch_dir_sanitize > OUTPUT
1047 test_expect_equal_file EXPECTED OUTPUT
1048
1049 test_begin_subtest "search for user header"
1050 notmuch search List:notmuch | notmuch_search_sanitize > EXPECTED
1051 notmuch search --query=sexp '(List notmuch)' | notmuch_search_sanitize > OUTPUT
1052 test_expect_equal_file EXPECTED OUTPUT
1053
1054 test_begin_subtest "search for user header (list token)"
1055 notmuch search List:notmuch | notmuch_search_sanitize > EXPECTED
1056 notmuch search --query=sexp '(List notmuch.notmuchmail.org)' | notmuch_search_sanitize > OUTPUT
1057 test_expect_equal_file EXPECTED OUTPUT
1058
1059 test_begin_subtest "search for user header (quoted string)"
1060 notmuch search 'List:"notmuch notmuchmail org"' | notmuch_search_sanitize > EXPECTED
1061 notmuch search --query=sexp '(List "notmuch notmuchmail org")' | notmuch_search_sanitize > OUTPUT
1062 test_expect_equal_file EXPECTED OUTPUT
1063
1064 test_begin_subtest "search for user header (atoms)"
1065 notmuch search 'List:"notmuch notmuchmail org"' | notmuch_search_sanitize > EXPECTED
1066 notmuch search --query=sexp '(List notmuch notmuchmail org)' | notmuch_search_sanitize > OUTPUT
1067 test_expect_equal_file EXPECTED OUTPUT
1068
1069 test_begin_subtest "check saved query name"
1070 test_expect_code 1 "notmuch config set squery.test '(subject utf8-sübjéct)'"
1071
1072 test_begin_subtest "roundtrip saved query (database)"
1073 notmuch config set --database squery.Test '(subject utf8-sübjéct)'
1074 output=$(notmuch config get squery.Test)
1075 test_expect_equal "$output" '(subject utf8-sübjéct)'
1076
1077 test_begin_subtest "roundtrip saved query"
1078 notmuch config set squery.Test '(subject override subject)'
1079 output=$(notmuch config get squery.Test)
1080 test_expect_equal "$output" '(subject override subject)'
1081
1082 test_begin_subtest "unknown saved query"
1083 notmuch search --query=sexp '(Unknown foo bar)' >OUTPUT 2>&1
1084 cat <<EOF > EXPECTED
1085 notmuch search: Syntax error in query
1086 unknown prefix 'Unknown'
1087 EOF
1088 test_expect_equal_file EXPECTED OUTPUT
1089
1090 test_begin_subtest "syntax error in saved query"
1091 notmuch config set squery.Bad '(Bad'
1092 notmuch search --query=sexp '(Bad foo bar)' >OUTPUT 2>&1
1093 cat <<EOF > EXPECTED
1094 notmuch search: Syntax error in query
1095 invalid saved s-expression query: '(Bad'
1096 EOF
1097 test_expect_equal_file EXPECTED OUTPUT
1098
1099 test_begin_subtest "Saved Search by 'tag' and 'subject'"
1100 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1101 notmuch config set squery.TagSubject  '(and (tag inbox) (subject maildir))'
1102 notmuch search --query=sexp '(TagSubject)' | notmuch_search_sanitize > OUTPUT
1103 test_expect_equal_file EXPECTED OUTPUT
1104
1105 test_begin_subtest "Saved Search: illegal nesting"
1106 notmuch config set squery.TagSubject  '(and (tag inbox) (subject maildir))'
1107 notmuch search --query=sexp '(subject (TagSubject))' >OUTPUT 2>&1
1108 cat <<EOF > EXPECTED
1109 notmuch search: Syntax error in query
1110 nested field: 'tag' inside 'subject'
1111 EOF
1112 test_expect_equal_file EXPECTED OUTPUT
1113
1114 test_begin_subtest "Saved Search: list as prefix"
1115 notmuch config set squery.Bad2  '((and) (tag inbox) (subject maildir))'
1116 notmuch search --query=sexp '(Bad2)' >OUTPUT 2>&1
1117 cat <<EOF > EXPECTED
1118 notmuch search: Syntax error in query
1119 unexpected list in field/operation position
1120 EOF
1121 test_expect_equal_file EXPECTED OUTPUT
1122
1123 test_begin_subtest "Saved Search: bad parameter syntax"
1124 notmuch config set squery.Bad3  '(macro a b)'
1125 notmuch search --query=sexp '(Bad3)' >OUTPUT 2>&1
1126 cat <<EOF > EXPECTED
1127 notmuch search: Syntax error in query
1128 missing (possibly empty) list of arguments to macro
1129 EOF
1130 test_expect_equal_file EXPECTED OUTPUT
1131
1132 test_begin_subtest "Saved Search: bad parameter syntax 2"
1133 notmuch config set squery.Bad4  '(macro ((a b)) a)'
1134 notmuch search --query=sexp '(Bad4 1)' >OUTPUT 2>&1
1135 cat <<EOF > EXPECTED
1136 notmuch search: Syntax error in query
1137 macro parameters must be unquoted atoms
1138 EOF
1139 test_expect_equal_file EXPECTED OUTPUT
1140
1141 test_begin_subtest "Saved Search: bad parameter syntax 3"
1142 notmuch config set squery.Bad5  '(macro (a b) a)'
1143 notmuch search --query=sexp '(Bad5 1)' >OUTPUT 2>&1
1144 cat <<EOF > EXPECTED
1145 notmuch search: Syntax error in query
1146 too few arguments to macro
1147 EOF
1148 test_expect_equal_file EXPECTED OUTPUT
1149
1150 test_begin_subtest "Saved Search: bad parameter syntax 4"
1151 notmuch search --query=sexp '(Bad5 1 2 3)' >OUTPUT 2>&1
1152 cat <<EOF > EXPECTED
1153 notmuch search: Syntax error in query
1154 too many arguments to macro
1155 EOF
1156 test_expect_equal_file EXPECTED OUTPUT
1157
1158 test_begin_subtest "Saved Search: bad parameter syntax 5"
1159 notmuch config set squery.Bad5 '(macro (thing) (tag (rx ,thing)))'
1160 notmuch search --query=sexp '(Bad5 (1 2))' >OUTPUT 2>&1
1161 cat <<EOF > EXPECTED
1162 notmuch search: Syntax error in query
1163 'rx' expects single atom as argument
1164 EOF
1165 test_expect_equal_file EXPECTED OUTPUT
1166
1167 test_begin_subtest "Saved Search: bad parameter syntax 6"
1168 notmuch config set squery.Bad6 '(macro (thing) (tag (starts-with ,thing)))'
1169 notmuch search --query=sexp '(Bad6 (1 2))' >OUTPUT 2>&1
1170 cat <<EOF > EXPECTED
1171 notmuch search: Syntax error in query
1172 'starts-with' expects single atom as argument
1173 EOF
1174 test_expect_equal_file EXPECTED OUTPUT
1175
1176 test_begin_subtest "Saved Search: bad parameter syntax 7"
1177 notmuch search --query=sexp '(subject (rx ,unknown))' >OUTPUT 2>&1
1178 cat <<EOF > EXPECTED
1179 notmuch search: Syntax error in query
1180 undefined parameter 'unknown'
1181 EOF
1182 test_expect_equal_file EXPECTED OUTPUT
1183
1184 test_begin_subtest "Saved Search: macro without body"
1185 notmuch config set squery.Bad3  '(macro (a b))'
1186 notmuch search --query=sexp '(Bad3)' >OUTPUT 2>&1
1187 cat <<EOF > EXPECTED
1188 notmuch search: Syntax error in query
1189 missing body of macro
1190 EOF
1191 test_expect_equal_file EXPECTED OUTPUT
1192
1193 test_begin_subtest "macro in query"
1194 notmuch search --query=sexp '(macro (a) (and ,b (subject maildir)))' >OUTPUT 2>&1
1195 cat <<EOF > EXPECTED
1196 notmuch search: Syntax error in query
1197 macro definition not permitted here
1198 EOF
1199 test_expect_equal_file EXPECTED OUTPUT
1200
1201 test_begin_subtest "zero argument macro"
1202 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1203 notmuch config set squery.TagSubject0  '(macro () (and (tag inbox) (subject maildir)))'
1204 notmuch search --query=sexp '(TagSubject0)' | notmuch_search_sanitize > OUTPUT
1205 test_expect_equal_file EXPECTED OUTPUT
1206
1207 test_begin_subtest "undefined argument"
1208 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1209 notmuch config set squery.Bad6  '(macro (a) (and ,b (subject maildir)))'
1210 notmuch search --query=sexp '(Bad6 foo)' >OUTPUT 2>&1
1211 cat <<EOF > EXPECTED
1212 notmuch search: Syntax error in query
1213 undefined parameter 'b'
1214 EOF
1215 test_expect_equal_file EXPECTED OUTPUT
1216
1217 test_begin_subtest "Single argument macro"
1218 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1219 notmuch config set squery.TagSubject1  '(macro (tagname) (and (tag ,tagname) (subject maildir)))'
1220 notmuch search --query=sexp '(TagSubject1 inbox)' | notmuch_search_sanitize > OUTPUT
1221 test_expect_equal_file EXPECTED OUTPUT
1222
1223 test_begin_subtest "Single argument macro, list argument"
1224 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1225 notmuch config set squery.ThingSubject  '(macro (thing) (and ,thing (subject maildir)))'
1226 notmuch search --query=sexp '(ThingSubject (tag inbox))' | notmuch_search_sanitize > OUTPUT
1227 test_expect_equal_file EXPECTED OUTPUT
1228
1229 test_begin_subtest "two argument macro"
1230 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1231 notmuch config set squery.TagSubject2  '(macro (tagname subj) (and (tag ,tagname) (subject ,subj)))'
1232 notmuch search --query=sexp '(TagSubject2 inbox maildir)' | notmuch_search_sanitize > OUTPUT
1233 test_expect_equal_file EXPECTED OUTPUT
1234
1235 test_begin_subtest "macro in regex"
1236 notmuch search tag:inbox and date:2009-11-17 | notmuch_search_sanitize > EXPECTED
1237 notmuch config set squery.D  '(macro (tagname)  (and (date 2009-11-17) (tag (rx ,tagname))))'
1238 notmuch search --query=sexp '(D inbo)' | notmuch_search_sanitize > OUTPUT
1239 test_expect_equal_file_nonempty EXPECTED OUTPUT
1240
1241 test_begin_subtest "macro in wildcard"
1242 notmuch search tag:inbox and date:2009-11-17 | notmuch_search_sanitize > EXPECTED
1243 notmuch config set squery.W  '(macro (tagname)  (and (date 2009-11-17) (tag (starts-with ,tagname))))'
1244 notmuch search --query=sexp '(W inbo)' | notmuch_search_sanitize > OUTPUT
1245 test_expect_equal_file_nonempty EXPECTED OUTPUT
1246
1247 test_begin_subtest "nested macros (shadowing)"
1248 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1249 notmuch config set squery.Inner '(macro (x) (subject ,x))'
1250 notmuch config set squery.Outer  '(macro (x y) (and (tag ,x) (Inner ,y)))'
1251 notmuch search --query=sexp '(Outer inbox maildir)' | notmuch_search_sanitize > OUTPUT
1252 test_expect_equal_file EXPECTED OUTPUT
1253
1254 test_begin_subtest "nested macros (no dynamic scope)"
1255 notmuch config set squery.Inner2 '(macro (x) (subject ,y))'
1256 notmuch config set squery.Outer2  '(macro (x y) (and (tag ,x) (Inner2 ,y)))'
1257 notmuch search --query=sexp '(Outer2 inbox maildir)' > OUTPUT 2>&1
1258 cat <<EOF > EXPECTED
1259 notmuch search: Syntax error in query
1260 undefined parameter 'y'
1261 EOF
1262 test_expect_equal_file EXPECTED OUTPUT
1263
1264 test_begin_subtest "nested macros (shadowing, regex)"
1265 notmuch search tag:/inbo/ and subject:/Maildi/ | notmuch_search_sanitize > EXPECTED
1266 notmuch config set squery.Inner3 '(macro (x) (subject (rx ,x)))'
1267 notmuch config set squery.Outer3  '(macro (x y) (and (tag (rx ,x)) (Inner3 ,y)))'
1268 notmuch search --query=sexp '(Outer3 inbo Maildi)' | notmuch_search_sanitize > OUTPUT
1269 test_expect_equal_file_nonempty EXPECTED OUTPUT
1270
1271 test_begin_subtest "nested macros (shadowing, wildcard)"
1272 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1273 notmuch config set squery.Inner4 '(macro (x) (subject (starts-with ,x)))'
1274 notmuch config set squery.Outer4  '(macro (x y) (and (tag (starts-with ,x)) (Inner4 ,y)))'
1275 notmuch search --query=sexp '(Outer4 inbo maildi)' | notmuch_search_sanitize > OUTPUT
1276 test_expect_equal_file_nonempty EXPECTED OUTPUT
1277
1278 test_begin_subtest "combine macro and user defined header"
1279 notmuch config set squery.About '(macro (name) (or (subject ,name) (List ,name)))'
1280 notmuch search subject:notmuch or List:notmuch | notmuch_search_sanitize > EXPECTED
1281 notmuch search --query=sexp '(About notmuch)' | notmuch_search_sanitize > OUTPUT
1282 test_expect_equal_file EXPECTED OUTPUT
1283
1284
1285 test_begin_subtest "combine macro and user defined header"
1286 notmuch config set squery.About '(macro (name) (or (subject ,name) (List ,name)))'
1287 notmuch search subject:notmuch or List:notmuch | notmuch_search_sanitize > EXPECTED
1288 notmuch search --query=sexp '(About notmuch)' | notmuch_search_sanitize > OUTPUT
1289 test_expect_equal_file EXPECTED OUTPUT
1290
1291
1292 test_done