#!/usr/bin/env bash

test_description="emacs hl-line-mode"
. $(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 "line 1, search"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-search "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			 (let ((start (overlay-start hl-line-overlay))
			       (end (overlay-end hl-line-overlay)))
			   (list start (> end start)))
			 (list 1 t)))'

test_begin_subtest "line 1, tree"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			 (let ((start (overlay-start hl-line-overlay))
			       (end (overlay-end hl-line-overlay)))
			   (list start (> end start)))
			 (list 1 t)))'

test_begin_subtest "line 1, unthreaded"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			 (let ((start (overlay-start hl-line-overlay))
			       (end (overlay-end hl-line-overlay)))
			   (list start (> end start)))
			 (list 1 t)))'

test_begin_subtest "line 1, search, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-search "tag:inbox")
			(notmuch-test-wait)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal (overlay-start hl-line-overlay) 1))'

test_begin_subtest "line 1, tree, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			 (let ((start (overlay-start hl-line-overlay))
			       (end (overlay-end hl-line-overlay)))
			   (list start (> end start)))
			 (list 1 t)))'

test_begin_subtest "line 1, unthreaded, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			 (let ((start (overlay-start hl-line-overlay))
			       (end (overlay-end hl-line-overlay)))
			   (list start (> end start)))
			 (list 1 t)))'


test_begin_subtest "line 12, notmuch-search"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-search "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "line 12, tree"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "line 12, unthreaded"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-unthreaded "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "line 12, search, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-search "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "line 12, tree, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "line 12, unthreaded, refresh"
test_emacs_expect_t '(let ((notmuch-hl-line t))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(forward-line 11)
			(notmuch-post-command)
			(notmuch-refresh-this-buffer)
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (line-number-at-pos (overlay-start hl-line-overlay)) 12))'

test_begin_subtest "hl-line disabled, search"
test_emacs_expect_t '(let ((notmuch-hl-line nil))
			(notmuch-search "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (or hl-line-mode hl-line-overlay)
			   nil))'

test_begin_subtest "hl-line disabled, tree"
test_emacs_expect_t '(let ((notmuch-hl-line nil))
			(notmuch-tree "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (or hl-line-mode hl-line-overlay)
			   nil))'

test_begin_subtest "hl-line disabled, unthreaded"
test_emacs_expect_t '(let ((notmuch-hl-line nil))
			(notmuch-unthreaded "tag:inbox")
			(notmuch-test-wait)
			(notmuch-test-expect-equal
			   (or hl-line-mode hl-line-overlay)
			   nil))'

test_done