unofficial mirror of notmuch@notmuchmail.org
 help / color / mirror / code / Atom feed
blob c9e3e53aa394119df95bb9f41bf108c4c46f0736 8424 bytes (raw)
name: test/T315-emacs-tagging.sh 	 # note: path name is non-authoritative(*)

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
 
#!/usr/bin/env bash

test_description="emacs interface"
. $(dirname "$0")/test-lib.sh || exit 1
. $NOTMUCH_SRCDIR/test/test-lib-emacs.sh || exit 1

EXPECTED=$NOTMUCH_SRCDIR/test/emacs.expected-output

test_require_emacs
add_email_corpus

test_begin_subtest "Add tag from search view"
os_x_darwin_thread=$(notmuch search --output=threads id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com)
test_emacs "(notmuch-search \"$os_x_darwin_thread\")
	    (notmuch-test-wait)
	    (execute-kbd-macro \"+tag-from-search-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-search-view unread)"

test_begin_subtest "Remove tag from search view"
test_emacs "(notmuch-search \"$os_x_darwin_thread\")
	    (notmuch-test-wait)
	    (execute-kbd-macro \"-tag-from-search-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
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)"

test_begin_subtest "Add tag (large query)"
# We use a long query to force us into batch mode and use a funny tag
# that requires escaping for batch tagging.
test_emacs "(notmuch-tag (concat \"$os_x_darwin_thread\" \" or \" (mapconcat #'identity (make-list notmuch-tag-argument-limit \"x\") \"-\")) (list \"+tag-from-%-large-query\"))"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-%-large-query unread)"
notmuch tag -tag-from-%-large-query $os_x_darwin_thread

test_begin_subtest "notmuch-show: add single tag to single message"
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
	    (execute-kbd-macro \"+tag-from-show-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-show-view unread)"

test_begin_subtest "notmuch-show: remove single tag from single message"
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
	    (execute-kbd-macro \"-tag-from-show-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
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)"

test_begin_subtest "notmuch-show: add multiple tags to single message"
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
	    (execute-kbd-macro \"+tag1-from-show-view +tag2-from-show-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag1-from-show-view tag2-from-show-view unread)"

test_begin_subtest "notmuch-show: remove multiple tags from single message"
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
	    (execute-kbd-macro \"-tag1-from-show-view -tag2-from-show-view\")"
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
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)"

test_begin_subtest "notmuch-show: before-tag-hook is run, variables are defined"
output=$(test_emacs '(let ((notmuch-test-tag-hook-output nil)
	          (notmuch-before-tag-hook (function notmuch-test-tag-hook)))
	       (notmuch-show "id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com")
	       (execute-kbd-macro "+activate-hook\n")
	       (execute-kbd-macro "-activate-hook\n")
	       notmuch-test-tag-hook-output)')
test_expect_equal "$output" \
'(("id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com" "-activate-hook")
 ("id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com" "+activate-hook"))'

test_begin_subtest "notmuch-show: after-tag-hook is run, variables are defined"
output=$(test_emacs '(let ((notmuch-test-tag-hook-output nil)
	          (notmuch-after-tag-hook (function notmuch-test-tag-hook)))
	       (notmuch-show "id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com")
	       (execute-kbd-macro "+activate-hook\n")
	       (execute-kbd-macro "-activate-hook\n")
	       notmuch-test-tag-hook-output)')
test_expect_equal "$output" \
'(("id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com" "-activate-hook")
 ("id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com" "+activate-hook"))'


test_begin_subtest "Search thread tag operations are race-free"
add_message '[subject]="Search race test"'
gen_msg_id_1=$gen_msg_id
generate_message '[in-reply-to]="<'$gen_msg_id_1'>"' \
	    '[references]="<'$gen_msg_id_1'>"' \
	    '[subject]="Search race test two"'
test_emacs '(notmuch-search "subject:\"search race test\"")
	    (notmuch-test-wait)
	    (notmuch-poll)
	    (execute-kbd-macro "+search-thread-race-tag")'
output=$(notmuch search --output=messages 'tag:search-thread-race-tag')
test_expect_equal "$output" "id:$gen_msg_id_1"

test_begin_subtest "Search global tag operations are race-free"
generate_message '[in-reply-to]="<'$gen_msg_id_1'>"' \
	    '[references]="<'$gen_msg_id_1'>"' \
	    '[subject]="Re: Search race test"'
test_emacs '(notmuch-search "subject:\"search race test\" -subject:two")
	    (notmuch-test-wait)
	    (notmuch-poll)
	    (execute-kbd-macro "*+search-global-race-tag")'
output=$(notmuch search --output=messages 'tag:search-global-race-tag')
test_expect_equal "$output" "id:$gen_msg_id_1"

test_begin_subtest "undo with empty history is an error"
test_emacs "(let ((notmuch-tag-history nil))
  (test-log-error
   (notmuch-tag-undo)))
  "
cat <<EOF > EXPECTED
(error no further notmuch undo information)
EOF
test_expect_equal_file EXPECTED MESSAGES

for mode in search show tree unthreaded; do
    test_begin_subtest "undo tagging in $mode mode"
    test_emacs "(let ((notmuch-tag-history nil))
      (notmuch-$mode \"$os_x_darwin_thread\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+tag-to-be-undone-$mode\")
      (notmuch-tag-undo))"
    count=$(notmuch count "tag:tag-to-be-undone-$mode")
    test_expect_equal "$count" "0"

    test_begin_subtest "undo tagging in $mode mode (multiple operations)"
    test_emacs "(let ((notmuch-tag-history nil))
      (notmuch-$mode \"$os_x_darwin_thread\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+one-$mode\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+two-$mode\")
      (notmuch-test-wait)
      (notmuch-tag-undo)
      (notmuch-test-wait)
      (execute-kbd-macro \"+three-$mode\"))"
    output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
    notmuch tag "-one-$mode" "-three-$mode" $os_x_darwin_thread
    test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox one-$mode three-$mode unread)"

    test_begin_subtest "undo tagging in $mode mode (multiple undo)"
    test_emacs "(let ((notmuch-tag-history nil))
      (notmuch-$mode \"$os_x_darwin_thread\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+one-$mode\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+two-$mode\")
      (notmuch-tag-undo)
      (notmuch-test-wait)
      (notmuch-tag-undo)
      (notmuch-test-wait)
      (execute-kbd-macro \"+three-$mode\"))"
    output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
    notmuch tag "-one-$mode" "-three-$mode" $os_x_darwin_thread
    test_expect_equal "$output" "thread:XXX   2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox three-$mode unread)"

    test_begin_subtest "undo tagging in $mode mode (via binding)"
    test_emacs "(let ((notmuch-tag-history nil))
      (notmuch-$mode \"$os_x_darwin_thread\")
      (notmuch-test-wait)
      (execute-kbd-macro \"+tag-to-be-undone-$mode\")
      (execute-kbd-macro (kbd \"C-x u\")))"
    count=$(notmuch count "tag:tag-to-be-undone-$mode")
    test_expect_equal "$count" "0"
done

test_done

debug log:

solving c9e3e53a ...
found c9e3e53a in https://yhetil.org/notmuch/20220203143254.3344753-11-david@tethera.net/
found d76b5ab8 in https://yhetil.org/notmuch/20220203143254.3344753-10-david@tethera.net/
found 02fd3d27 in https://yhetil.org/notmuch.git/
preparing index
index prepared:
100755 02fd3d27521c2b0f35f4ef6e29519e26a8bd5747	test/T315-emacs-tagging.sh

applying [1/2] https://yhetil.org/notmuch/20220203143254.3344753-10-david@tethera.net/
diff --git a/test/T315-emacs-tagging.sh b/test/T315-emacs-tagging.sh
index 02fd3d27..d76b5ab8 100755


applying [2/2] https://yhetil.org/notmuch/20220203143254.3344753-11-david@tethera.net/
diff --git a/test/T315-emacs-tagging.sh b/test/T315-emacs-tagging.sh
index d76b5ab8..c9e3e53a 100755

Checking patch test/T315-emacs-tagging.sh...
Applied patch test/T315-emacs-tagging.sh cleanly.
Checking patch test/T315-emacs-tagging.sh...
Applied patch test/T315-emacs-tagging.sh cleanly.

index at:
100755 c9e3e53aa394119df95bb9f41bf108c4c46f0736	test/T315-emacs-tagging.sh

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://yhetil.org/notmuch.git/

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).