]> git.cworth.org Git - obsolete/notmuch-old/blob - test/emacs-hello
test: Force reply to use html2text for consistency
[obsolete/notmuch-old] / test / emacs-hello
1 #!/usr/bin/env bash
2
3 test_description="Testing emacs notmuch-hello view"
4 . test-lib.sh
5
6 EXPECTED=$TEST_DIRECTORY/emacs.expected-output
7
8 add_email_corpus
9
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\")))))))
14            (notmuch-hello)
15            (test-output))"
16 test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-new-section
17
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
21                                      \"Test-with-empty\"
22                                      '((\"inbox\" . \"tag:inbox\")
23                                        (\"doesnotexist\" . \"tag:doesnotexist\"))
24                                      :hide-empty-searches t)))))
25              (notmuch-hello)
26              (test-output))"
27 test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-section-with-empty
28
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\"))))))
34              (notmuch-hello)
35              (test-output))"
36 test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-section-hidden-tag
37
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
41                                      \"Test-with-counts\"
42                                      :filter-count \"tag:signed\")))))
43              (notmuch-hello)
44              (test-output))"
45 test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-section-counts
46
47 test_begin_subtest "Column alignment for tag/queries with long names"
48 tag=a-very-long-tag # length carefully calculated for 80 characters window width
49 notmuch tag +$tag '*'
50 test_emacs '(notmuch-hello)
51             (test-output)'
52 notmuch tag -$tag '*'
53 test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-long-names
54
55 test_done