diff options
Diffstat (limited to 'test/navigate-test.el')
-rw-r--r-- | test/navigate-test.el | 28 |
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) |