3 test_description="emacs notmuch-hello view"
4 . $(dirname "$0")/test-lib.sh || exit 1
6 EXPECTED=$NOTMUCH_SRCDIR/test/emacs.expected-output
10 test_begin_subtest "User-defined section with inbox tag"
11 test_emacs "(let ((notmuch-hello-sections
12 (list (lambda () (notmuch-hello-insert-searches
13 \"Test\" '((\"inbox\" . \"tag:inbox\")))))))
16 test_expect_equal_file $EXPECTED/notmuch-hello-new-section OUTPUT
18 test_begin_subtest "User-defined section with empty, hidden entry"
19 test_emacs "(let ((notmuch-hello-sections
20 (list (lambda () (notmuch-hello-insert-searches
22 '((\"inbox\" . \"tag:inbox\")
23 (\"doesnotexist\" . \"tag:doesnotexist\"))
24 :hide-empty-searches t)))))
27 test_expect_equal_file $EXPECTED/notmuch-hello-section-with-empty OUTPUT
29 test_begin_subtest "User-defined section, unread tag filtered out"
30 test_emacs "(let ((notmuch-hello-sections
31 (list (lambda () (notmuch-hello-insert-tags-section
32 \"Test-with-filtered\"
33 :hide-tags '(\"unread\"))))))
36 test_expect_equal_file $EXPECTED/notmuch-hello-section-hidden-tag OUTPUT
38 test_begin_subtest "User-defined section, different query for counts"
39 test_emacs "(let ((notmuch-hello-sections
40 (list (lambda () (notmuch-hello-insert-tags-section
42 :filter-count \"tag:signed\")))))
45 test_expect_equal_file $EXPECTED/notmuch-hello-section-counts OUTPUT
47 test_begin_subtest "Empty custom tags section"
48 test_emacs "(let* ((widget (widget-create 'notmuch-hello-tags-section))
49 (notmuch-hello-sections (list (widget-value widget))))
52 test_expect_equal_file $EXPECTED/notmuch-hello-empty-custom-tags-section OUTPUT
54 test_begin_subtest "Empty custom queries section"
55 test_emacs "(let* ((widget (widget-create 'notmuch-hello-query-section))
56 (notmuch-hello-sections (list (widget-value widget))))
59 test_expect_equal_file $EXPECTED/notmuch-hello-empty-custom-queries-section OUTPUT
61 test_begin_subtest "Column alignment for tag/queries with long names"
62 tag=a-very-long-tag # length carefully calculated for 80 characters window width
64 test_emacs '(notmuch-hello)
67 test_expect_equal_file $EXPECTED/notmuch-hello-long-names OUTPUT