X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=test%2Femacs-hello;h=f7296166a7bdd84b8762b7028a27e3bd88ace808;hp=b235e3ab9913dba873d077ef2582ff7c09a00815;hb=84719b08f757a6079f4c3331d0c476d19b265948;hpb=8c175aa1208857b40dc7a49d6d924344818b8122 diff --git a/test/emacs-hello b/test/emacs-hello index b235e3ab..f7296166 100755 --- a/test/emacs-hello +++ b/test/emacs-hello @@ -1,7 +1,7 @@ #!/usr/bin/env bash -test_description="Testing emacs notmuch-hello view" -. test-lib.sh +test_description="emacs notmuch-hello view" +. ./test-lib.sh EXPECTED=$TEST_DIRECTORY/emacs.expected-output @@ -44,4 +44,26 @@ test_emacs "(let ((notmuch-hello-sections (test-output))" test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-section-counts +test_begin_subtest "Empty custom tags section" +test_emacs "(let* ((widget (widget-create 'notmuch-hello-tags-section)) + (notmuch-hello-sections (list (widget-value widget)))) + (notmuch-hello) + (test-output))" +test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-empty-custom-tags-section + +test_begin_subtest "Empty custom queries section" +test_emacs "(let* ((widget (widget-create 'notmuch-hello-query-section)) + (notmuch-hello-sections (list (widget-value widget)))) + (notmuch-hello) + (test-output))" +test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-empty-custom-queries-section + +test_begin_subtest "Column alignment for tag/queries with long names" +tag=a-very-long-tag # length carefully calculated for 80 characters window width +notmuch tag +$tag '*' +test_emacs '(notmuch-hello) + (test-output)' +notmuch tag -$tag '*' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-long-names + test_done