git.notmuchmail.org Git - notmuch/blob - test/T465-emacs-unthreaded.sh

   1 #!/usr/bin/env bash
   2
   3 test_description="emacs unthreaded interface"
   4 . $(dirname "$0")/test-lib.sh || exit 1
   5 . $NOTMUCH_SRCDIR/test/test-lib-emacs.sh || exit 1
   6
   7 test_require_emacs
   8
   9 generate_message "[id]=large-thread-1" '[subject]="large thread"'
  10 printf "  2001-01-05  Notmuch Test Suite   large thread%43s(inbox unread)\n" >> EXPECTED.unthreaded
  11
  12 for num in $(seq 2 64); do
  13     prev=$((num - 1))
  14     generate_message '[subject]="large thread"' "[id]=large-thread-$num" "[in-reply-to]=\<large-thread-$prev\>"
  15     printf "  2001-01-05  Notmuch Test Suite   large thread%43s(inbox unread)\n" >> EXPECTED.unthreaded
  16 done
  17 printf "End of search results.\n" >> EXPECTED.unthreaded
  18
  19 notmuch new > new.output 2>&1
  20
  21 test_begin_subtest "large thread"
  22 test_emacs '(let ((max-lisp-eval-depth 10))
  23               (notmuch-unthreaded "subject:large-thread")
  24               (notmuch-test-wait)
  25               (test-output))'
  26 test_expect_equal_file EXPECTED.unthreaded OUTPUT
  27
  28 test_begin_subtest "message from large thread (status)"
  29 output=$(test_emacs '(let ((max-lisp-eval-depth 10))
  30                        (notmuch-unthreaded "subject:large-thread")
  31                        (notmuch-test-wait)
  32                        (notmuch-tree-show-message nil)
  33                        (notmuch-test-wait)
  34                        "SUCCESS")' )
  35 test_expect_equal "$output" '"SUCCESS"'
  36
  37 test_done