git.cworth.org Git - notmuch/blob - 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-0}" != "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, one argument (negative)"
 938 notmuch tag +4EFC743A.3060609@april.org id:4EFC743A.3060609@april.org
 939 revision=$(notmuch count --lastmod '*' | cut -f3)
 940 revision1=$((revision - 1))
 941 notmuch search lastmod:$revision1..$revision1 | notmuch_search_sanitize > EXPECTED
 942 notmuch search --query=sexp  "(lastmod -1)" | notmuch_search_sanitize > OUTPUT
 943 test_expect_equal_file_nonempty EXPECTED OUTPUT
 944
 945 test_begin_subtest "lastmod query, two arguments"
 946 notmuch tag +keithp from:keithp
 947 revision2=$(notmuch count --lastmod '*' | cut -f3)
 948 notmuch search lastmod:$revision..$revision2 | notmuch_search_sanitize > EXPECTED
 949 notmuch search --query=sexp  "(and (lastmod $revision $revision2))" | notmuch_search_sanitize > OUTPUT
 950 test_expect_equal_file EXPECTED OUTPUT
 951
 952 test_begin_subtest "lastmod query, two arguments, first negative"
 953 revdiff=$((revision2 - revision))
 954 notmuch search lastmod:$revision..$revision2 | notmuch_search_sanitize > EXPECTED
 955 notmuch search --query=sexp  "(lastmod -$revdiff $revision2)" | notmuch_search_sanitize > OUTPUT
 956 test_expect_equal_file EXPECTED OUTPUT
 957
 958 test_begin_subtest "lastmod query, two arguments, second negative"
 959 revdiff=$((revision2 - revision))
 960 notmuch search lastmod:..$revision | notmuch_search_sanitize > EXPECTED
 961 notmuch search --query=sexp  "(lastmod 0 -$revdiff)" | notmuch_search_sanitize > OUTPUT
 962 test_expect_equal_file EXPECTED OUTPUT
 963
 964 test_begin_subtest "lastmod query, lower bound only"
 965 notmuch search lastmod:$revision.. | notmuch_search_sanitize > EXPECTED
 966 notmuch search --query=sexp  "(lastmod $revision \"\")" | notmuch_search_sanitize > OUTPUT
 967 test_expect_equal_file_nonempty EXPECTED OUTPUT
 968
 969 test_begin_subtest "lastmod query, lower bound only (negative)"
 970 notmuch search lastmod:$revision.. | notmuch_search_sanitize > EXPECTED
 971 notmuch search --query=sexp  "(lastmod -$revdiff \"\")" | notmuch_search_sanitize > OUTPUT
 972 test_expect_equal_file_nonempty EXPECTED OUTPUT
 973
 974 test_begin_subtest "lastmod query, upper bound only"
 975 notmuch search lastmod:..$revision2 | notmuch_search_sanitize > EXPECTED
 976 notmuch search --query=sexp  "(lastmod \"\" $revision2)" | notmuch_search_sanitize > OUTPUT
 977 test_expect_equal_file_nonempty EXPECTED OUTPUT
 978
 979 test_begin_subtest "lastmod query, upper bound only (negative)"
 980 notmuch search lastmod:..$revision | notmuch_search_sanitize > EXPECTED
 981 notmuch search --query=sexp  "(lastmod \"\" -$revdiff)" | notmuch_search_sanitize > OUTPUT
 982 test_expect_equal_file_nonempty EXPECTED OUTPUT
 983
 984 test_begin_subtest "lastmod query, lower bound only, using *"
 985 notmuch search lastmod:$revision.. | notmuch_search_sanitize > EXPECTED
 986 notmuch search --query=sexp  "(lastmod $revision *)" | notmuch_search_sanitize > OUTPUT
 987 test_expect_equal_file_nonempty EXPECTED OUTPUT
 988
 989 test_begin_subtest "lastmod query, upper bound only, using *"
 990 notmuch search lastmod:..$revision2 | notmuch_search_sanitize > EXPECTED
 991 notmuch search --query=sexp  "(lastmod * $revision2)" | notmuch_search_sanitize > OUTPUT
 992 test_expect_equal_file_nonempty EXPECTED OUTPUT
 993
 994 test_begin_subtest "lastmod query, illegal nesting 1"
 995 notmuch search --query=sexp '(to (lastmod))' > OUTPUT 2>&1
 996 cat <<EOF > EXPECTED
 997 notmuch search: Syntax error in query
 998 nested field: 'lastmod' inside 'to'
 999 EOF
1000 test_expect_equal_file EXPECTED OUTPUT
1001
1002 test_begin_subtest "lastmod query, bad from revision"
1003 notmuch search --query=sexp '(lastmod apples)' > OUTPUT 2>&1
1004 cat <<EOF > EXPECTED
1005 notmuch search: Syntax error in query
1006 bad 'from' revision: 'apples'
1007 EOF
1008 test_expect_equal_file EXPECTED OUTPUT
1009
1010 test_begin_subtest "lastmod query, bad to revision"
1011 notmuch search --query=sexp '(lastmod 0 apples)' > OUTPUT 2>&1
1012 cat <<EOF > EXPECTED
1013 notmuch search: Syntax error in query
1014 bad 'to' revision: 'apples'
1015 EOF
1016 test_expect_equal_file EXPECTED OUTPUT
1017
1018 test_begin_subtest "lastmod query, illegal nesting 2"
1019 notmuch search --query=sexp '(to (lastmod 2021-11-18))' > OUTPUT 2>&1
1020 cat <<EOF > EXPECTED
1021 notmuch search: Syntax error in query
1022 nested field: 'lastmod' inside 'to'
1023 EOF
1024 test_expect_equal_file EXPECTED OUTPUT
1025
1026 test_begin_subtest "lastmod query, illegal nesting 3"
1027 notmuch search --query=sexp '(lastmod (to))' > OUTPUT 2>&1
1028 cat <<EOF > EXPECTED
1029 notmuch search: Syntax error in query
1030 expected atom as first argument of 'lastmod'
1031 EOF
1032 test_expect_equal_file EXPECTED OUTPUT
1033
1034 test_begin_subtest "lastmod query, illegal nesting 4"
1035 notmuch search --query=sexp '(lastmod today (to))' > OUTPUT 2>&1
1036 cat <<EOF > EXPECTED
1037 notmuch search: Syntax error in query
1038 expected atom as second argument of 'lastmod'
1039 EOF
1040 test_expect_equal_file EXPECTED OUTPUT
1041
1042 test_begin_subtest "lastmod query, too many arguments"
1043 notmuch search --query=sexp '(lastmod yesterday and tommorow)' > OUTPUT 2>&1
1044 cat <<EOF > EXPECTED
1045 notmuch search: Syntax error in query
1046 'lastmod' expects maximum of two arguments
1047 EOF
1048 test_expect_equal_file EXPECTED OUTPUT
1049
1050 test_begin_subtest "user header (unknown header)"
1051 notmuch search --query=sexp '(FooBar)' >& OUTPUT
1052 cat <<EOF > EXPECTED
1053 notmuch search: Syntax error in query
1054 unknown prefix 'FooBar'
1055 EOF
1056 test_expect_equal_file EXPECTED OUTPUT
1057
1058 test_begin_subtest "adding user header"
1059 test_expect_code 0 "notmuch config set index.header.List \"List-Id\""
1060
1061 test_begin_subtest "reindexing"
1062 test_expect_code 0 'notmuch reindex "*"'
1063
1064 test_begin_subtest "wildcard search for user header"
1065 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1066 notmuch search --output=files --query=sexp '(List *)' | sort | notmuch_dir_sanitize > OUTPUT
1067 test_expect_equal_file EXPECTED OUTPUT
1068
1069 test_begin_subtest "wildcard search for user header via field processor"
1070 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1071 notmuch search --output=files  'sexp:"(List *)"' | sort | notmuch_dir_sanitize > OUTPUT
1072 test_expect_equal_file EXPECTED OUTPUT
1073
1074 test_begin_subtest "wildcard search for user header 2"
1075 grep -Ril List-Id ${MAIL_DIR} | sort | notmuch_dir_sanitize > EXPECTED
1076 notmuch search --output=files --query=sexp '(List (starts-with not))' | sort | notmuch_dir_sanitize > OUTPUT
1077 test_expect_equal_file EXPECTED OUTPUT
1078
1079 test_begin_subtest "search for user header"
1080 notmuch search List:notmuch | notmuch_search_sanitize > EXPECTED
1081 notmuch search --query=sexp '(List notmuch)' | notmuch_search_sanitize > OUTPUT
1082 test_expect_equal_file EXPECTED OUTPUT
1083
1084 test_begin_subtest "search for user header (list token)"
1085 notmuch search List:notmuch | notmuch_search_sanitize > EXPECTED
1086 notmuch search --query=sexp '(List notmuch.notmuchmail.org)' | notmuch_search_sanitize > OUTPUT
1087 test_expect_equal_file EXPECTED OUTPUT
1088
1089 test_begin_subtest "search for user header (quoted string)"
1090 notmuch search 'List:"notmuch notmuchmail org"' | notmuch_search_sanitize > EXPECTED
1091 notmuch search --query=sexp '(List "notmuch notmuchmail org")' | notmuch_search_sanitize > OUTPUT
1092 test_expect_equal_file EXPECTED OUTPUT
1093
1094 test_begin_subtest "search for user header (atoms)"
1095 notmuch search 'List:"notmuch notmuchmail org"' | notmuch_search_sanitize > EXPECTED
1096 notmuch search --query=sexp '(List notmuch notmuchmail org)' | notmuch_search_sanitize > OUTPUT
1097 test_expect_equal_file EXPECTED OUTPUT
1098
1099 test_begin_subtest "check saved query name"
1100 test_expect_code 1 "notmuch config set squery.test '(subject utf8-sübjéct)'"
1101
1102 test_begin_subtest "roundtrip saved query (database)"
1103 notmuch config set --database squery.Test '(subject utf8-sübjéct)'
1104 output=$(notmuch config get squery.Test)
1105 test_expect_equal "$output" '(subject utf8-sübjéct)'
1106
1107 test_begin_subtest "roundtrip saved query"
1108 notmuch config set squery.Test '(subject override subject)'
1109 output=$(notmuch config get squery.Test)
1110 test_expect_equal "$output" '(subject override subject)'
1111
1112 test_begin_subtest "unknown saved query"
1113 notmuch search --query=sexp '(Unknown foo bar)' >OUTPUT 2>&1
1114 cat <<EOF > EXPECTED
1115 notmuch search: Syntax error in query
1116 unknown prefix 'Unknown'
1117 EOF
1118 test_expect_equal_file EXPECTED OUTPUT
1119
1120 test_begin_subtest "syntax error in saved query"
1121 notmuch config set squery.Bad '(Bad'
1122 notmuch search --query=sexp '(Bad foo bar)' >OUTPUT 2>&1
1123 cat <<EOF > EXPECTED
1124 notmuch search: Syntax error in query
1125 invalid saved s-expression query: '(Bad'
1126 EOF
1127 test_expect_equal_file EXPECTED OUTPUT
1128
1129 test_begin_subtest "Saved Search by 'tag' and 'subject'"
1130 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1131 notmuch config set squery.TagSubject  '(and (tag inbox) (subject maildir))'
1132 notmuch search --query=sexp '(TagSubject)' | notmuch_search_sanitize > OUTPUT
1133 test_expect_equal_file EXPECTED OUTPUT
1134
1135 test_begin_subtest "Saved Search: illegal nesting"
1136 notmuch config set squery.TagSubject  '(and (tag inbox) (subject maildir))'
1137 notmuch search --query=sexp '(subject (TagSubject))' >OUTPUT 2>&1
1138 cat <<EOF > EXPECTED
1139 notmuch search: Syntax error in query
1140 nested field: 'tag' inside 'subject'
1141 EOF
1142 test_expect_equal_file EXPECTED OUTPUT
1143
1144 test_begin_subtest "Saved Search: list as prefix"
1145 notmuch config set squery.Bad2  '((and) (tag inbox) (subject maildir))'
1146 notmuch search --query=sexp '(Bad2)' >OUTPUT 2>&1
1147 cat <<EOF > EXPECTED
1148 notmuch search: Syntax error in query
1149 unexpected list in field/operation position
1150 EOF
1151 test_expect_equal_file EXPECTED OUTPUT
1152
1153 test_begin_subtest "Saved Search: bad parameter syntax"
1154 notmuch config set squery.Bad3  '(macro a b)'
1155 notmuch search --query=sexp '(Bad3)' >OUTPUT 2>&1
1156 cat <<EOF > EXPECTED
1157 notmuch search: Syntax error in query
1158 missing (possibly empty) list of arguments to macro
1159 EOF
1160 test_expect_equal_file EXPECTED OUTPUT
1161
1162 test_begin_subtest "Saved Search: bad parameter syntax 2"
1163 notmuch config set squery.Bad4  '(macro ((a b)) a)'
1164 notmuch search --query=sexp '(Bad4 1)' >OUTPUT 2>&1
1165 cat <<EOF > EXPECTED
1166 notmuch search: Syntax error in query
1167 macro parameters must be unquoted atoms
1168 EOF
1169 test_expect_equal_file EXPECTED OUTPUT
1170
1171 test_begin_subtest "Saved Search: bad parameter syntax 3"
1172 notmuch config set squery.Bad5  '(macro (a b) a)'
1173 notmuch search --query=sexp '(Bad5 1)' >OUTPUT 2>&1
1174 cat <<EOF > EXPECTED
1175 notmuch search: Syntax error in query
1176 too few arguments to macro
1177 EOF
1178 test_expect_equal_file EXPECTED OUTPUT
1179
1180 test_begin_subtest "Saved Search: bad parameter syntax 4"
1181 notmuch search --query=sexp '(Bad5 1 2 3)' >OUTPUT 2>&1
1182 cat <<EOF > EXPECTED
1183 notmuch search: Syntax error in query
1184 too many arguments to macro
1185 EOF
1186 test_expect_equal_file EXPECTED OUTPUT
1187
1188 test_begin_subtest "Saved Search: bad parameter syntax 5"
1189 notmuch config set squery.Bad5 '(macro (thing) (tag (rx ,thing)))'
1190 notmuch search --query=sexp '(Bad5 (1 2))' >OUTPUT 2>&1
1191 cat <<EOF > EXPECTED
1192 notmuch search: Syntax error in query
1193 'rx' expects single atom as argument
1194 EOF
1195 test_expect_equal_file EXPECTED OUTPUT
1196
1197 test_begin_subtest "Saved Search: bad parameter syntax 6"
1198 notmuch config set squery.Bad6 '(macro (thing) (tag (starts-with ,thing)))'
1199 notmuch search --query=sexp '(Bad6 (1 2))' >OUTPUT 2>&1
1200 cat <<EOF > EXPECTED
1201 notmuch search: Syntax error in query
1202 'starts-with' expects single atom as argument
1203 EOF
1204 test_expect_equal_file EXPECTED OUTPUT
1205
1206 test_begin_subtest "Saved Search: bad parameter syntax 7"
1207 notmuch search --query=sexp '(subject (rx ,unknown))' >OUTPUT 2>&1
1208 cat <<EOF > EXPECTED
1209 notmuch search: Syntax error in query
1210 undefined parameter 'unknown'
1211 EOF
1212 test_expect_equal_file EXPECTED OUTPUT
1213
1214 test_begin_subtest "Saved Search: macro without body"
1215 notmuch config set squery.Bad3  '(macro (a b))'
1216 notmuch search --query=sexp '(Bad3)' >OUTPUT 2>&1
1217 cat <<EOF > EXPECTED
1218 notmuch search: Syntax error in query
1219 missing body of macro
1220 EOF
1221 test_expect_equal_file EXPECTED OUTPUT
1222
1223 test_begin_subtest "macro in query"
1224 notmuch search --query=sexp '(macro (a) (and ,b (subject maildir)))' >OUTPUT 2>&1
1225 cat <<EOF > EXPECTED
1226 notmuch search: Syntax error in query
1227 macro definition not permitted here
1228 EOF
1229 test_expect_equal_file EXPECTED OUTPUT
1230
1231 test_begin_subtest "zero argument macro"
1232 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1233 notmuch config set squery.TagSubject0  '(macro () (and (tag inbox) (subject maildir)))'
1234 notmuch search --query=sexp '(TagSubject0)' | notmuch_search_sanitize > OUTPUT
1235 test_expect_equal_file EXPECTED OUTPUT
1236
1237 test_begin_subtest "undefined argument"
1238 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1239 notmuch config set squery.Bad6  '(macro (a) (and ,b (subject maildir)))'
1240 notmuch search --query=sexp '(Bad6 foo)' >OUTPUT 2>&1
1241 cat <<EOF > EXPECTED
1242 notmuch search: Syntax error in query
1243 undefined parameter 'b'
1244 EOF
1245 test_expect_equal_file EXPECTED OUTPUT
1246
1247 test_begin_subtest "Single argument macro"
1248 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1249 notmuch config set squery.TagSubject1  '(macro (tagname) (and (tag ,tagname) (subject maildir)))'
1250 notmuch search --query=sexp '(TagSubject1 inbox)' | notmuch_search_sanitize > OUTPUT
1251 test_expect_equal_file EXPECTED OUTPUT
1252
1253 test_begin_subtest "Single argument macro, list argument"
1254 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1255 notmuch config set squery.ThingSubject  '(macro (thing) (and ,thing (subject maildir)))'
1256 notmuch search --query=sexp '(ThingSubject (tag inbox))' | notmuch_search_sanitize > OUTPUT
1257 test_expect_equal_file EXPECTED OUTPUT
1258
1259 test_begin_subtest "two argument macro"
1260 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1261 notmuch config set squery.TagSubject2  '(macro (tagname subj) (and (tag ,tagname) (subject ,subj)))'
1262 notmuch search --query=sexp '(TagSubject2 inbox maildir)' | notmuch_search_sanitize > OUTPUT
1263 test_expect_equal_file EXPECTED OUTPUT
1264
1265 test_begin_subtest "macro in regex"
1266 notmuch search tag:inbox and date:2009-11-17 | notmuch_search_sanitize > EXPECTED
1267 notmuch config set squery.D  '(macro (tagname)  (and (date 2009-11-17) (tag (rx ,tagname))))'
1268 notmuch search --query=sexp '(D inbo)' | notmuch_search_sanitize > OUTPUT
1269 test_expect_equal_file_nonempty EXPECTED OUTPUT
1270
1271 test_begin_subtest "macro in wildcard"
1272 notmuch search tag:inbox and date:2009-11-17 | notmuch_search_sanitize > EXPECTED
1273 notmuch config set squery.W  '(macro (tagname)  (and (date 2009-11-17) (tag (starts-with ,tagname))))'
1274 notmuch search --query=sexp '(W inbo)' | notmuch_search_sanitize > OUTPUT
1275 test_expect_equal_file_nonempty EXPECTED OUTPUT
1276
1277 test_begin_subtest "nested macros (shadowing)"
1278 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1279 notmuch config set squery.Inner '(macro (x) (subject ,x))'
1280 notmuch config set squery.Outer  '(macro (x y) (and (tag ,x) (Inner ,y)))'
1281 notmuch search --query=sexp '(Outer inbox maildir)' | notmuch_search_sanitize > OUTPUT
1282 test_expect_equal_file EXPECTED OUTPUT
1283
1284 test_begin_subtest "nested macros (no dynamic scope)"
1285 notmuch config set squery.Inner2 '(macro (x) (subject ,y))'
1286 notmuch config set squery.Outer2  '(macro (x y) (and (tag ,x) (Inner2 ,y)))'
1287 notmuch search --query=sexp '(Outer2 inbox maildir)' > OUTPUT 2>&1
1288 cat <<EOF > EXPECTED
1289 notmuch search: Syntax error in query
1290 undefined parameter 'y'
1291 EOF
1292 test_expect_equal_file EXPECTED OUTPUT
1293
1294 test_begin_subtest "nested macros (shadowing, regex)"
1295 notmuch search tag:/inbo/ and subject:/Maildi/ | notmuch_search_sanitize > EXPECTED
1296 notmuch config set squery.Inner3 '(macro (x) (subject (rx ,x)))'
1297 notmuch config set squery.Outer3  '(macro (x y) (and (tag (rx ,x)) (Inner3 ,y)))'
1298 notmuch search --query=sexp '(Outer3 inbo Maildi)' | notmuch_search_sanitize > OUTPUT
1299 test_expect_equal_file_nonempty EXPECTED OUTPUT
1300
1301 test_begin_subtest "nested macros (shadowing, wildcard)"
1302 notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize > EXPECTED
1303 notmuch config set squery.Inner4 '(macro (x) (subject (starts-with ,x)))'
1304 notmuch config set squery.Outer4  '(macro (x y) (and (tag (starts-with ,x)) (Inner4 ,y)))'
1305 notmuch search --query=sexp '(Outer4 inbo maildi)' | notmuch_search_sanitize > OUTPUT
1306 test_expect_equal_file_nonempty EXPECTED OUTPUT
1307
1308 test_begin_subtest "combine macro and user defined header"
1309 notmuch config set squery.About '(macro (name) (or (subject ,name) (List ,name)))'
1310 notmuch search subject:notmuch or List:notmuch | notmuch_search_sanitize > EXPECTED
1311 notmuch search --query=sexp '(About notmuch)' | notmuch_search_sanitize > OUTPUT
1312 test_expect_equal_file EXPECTED OUTPUT
1313
1314
1315 test_begin_subtest "combine macro and user defined header"
1316 notmuch config set squery.About '(macro (name) (or (subject ,name) (List ,name)))'
1317 notmuch search subject:notmuch or List:notmuch | notmuch_search_sanitize > EXPECTED
1318 notmuch search --query=sexp '(About notmuch)' | notmuch_search_sanitize > OUTPUT
1319 test_expect_equal_file EXPECTED OUTPUT
1320
1321
1322 test_done