From d7de243272f3f2bf7177ad81c5137b4ad97c15dd Mon Sep 17 00:00:00 2001
From: Damien Cassou
Date: Fri, 19 Mar 2021 11:21:37 +0100
Subject: Add nroam-goto

* nroam.el (nroam-goto): New function.
* tests/nroam-test.el: New test for the function.
---
 tests/nroam-test.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/nroam-test.el b/tests/nroam-test.el
index 7db8f75..c9a8a05 100644
--- a/tests/nroam-test.el
+++ b/tests/nroam-test.el
@@ -50,7 +50,15 @@ Execute BODY and cleanup the file and buffer after that."
        (setf (point) (point-min))
        (let ((section-position (re-search-forward nroam-test-main-section-regexp nil t)))
          (expect section-position :not :to-be nil)
-         (expect section-position :to-be-greater-than 10))))))
+         (expect section-position :to-be-greater-than 10)))))
+  (describe "nroam-goto"
+    (it "moves point if nroam heading is present"
+      (nroam-test-with-temp-file-buffer
+       (insert "nroam is great\n")
+       (nroam-update)
+       (setf (point) (point-min))
+       (nroam-goto)
+       (expect (looking-at-p nroam-test-main-section-regexp) :to-be t)))))
 
 (provide 'nroam-test)
 ;;; nroam-test.el ends here
-- 
cgit v1.2.3-54-g00ecf