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 -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