summaryrefslogtreecommitdiff
path: root/test/navigate-test.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/navigate-test.el')
-rw-r--r--test/navigate-test.el28
1 files changed, 28 insertions, 0 deletions
diff --git a/test/navigate-test.el b/test/navigate-test.el
index 84656b1..503dbc8 100644
--- a/test/navigate-test.el
+++ b/test/navigate-test.el
@@ -43,6 +43,34 @@ http://bugs.ledger-cli.org/show_bug.cgi?id=441"
(ledger-navigate-prev-xact-or-directive)
(should (eq 104 (point)))))
+(ert-deftest ledger-navigate-uncleared ()
+ :tags '(navigate)
+ (with-temp-buffer
+ (insert
+ "2011/01/27 Book Store
+ Expenses:Books $20.00
+ Liabilities:MasterCard
+
+2011/04/25 * Tom's Used Cars
+ Expenses:Auto $ 5,500.00
+ Assets:Checking
+
+2011/04/27 Bookstore
+ Expenses:Books $20.00
+ Assets:Checking
+
+2011/12/01 * Sale
+ Assets:Checking $ 30.00
+ Income:Sales")
+ (ledger-mode)
+ (goto-char (point-min))
+ (ledger-navigate-next-uncleared)
+ (should (looking-at-p (regexp-quote "2011/04/27 Bookstore")))
+ (should-error (ledger-navigate-next-uncleared))
+ (ledger-navigate-previous-uncleared)
+ (should (bobp))
+ ))
+
(provide 'navigate-test)