branch: externals/denote-sequence
commit dc0db73de640a7de81366baffb79a1c922892d74
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Write tests for denote-sequence-increment and denote-sequence-decrement
---
tests/denote-sequence-test.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/tests/denote-sequence-test.el b/tests/denote-sequence-test.el
index 2b8562b7e8..7080263b57 100644
--- a/tests/denote-sequence-test.el
+++ b/tests/denote-sequence-test.el
@@ -34,6 +34,24 @@
(require 'ert)
(require 'denote-sequence)
+(ert-deftest dst-denote-sequence-increment ()
+ "Test that `denote-sequence-increment' does the right thing."
+ (should (equal (denote-sequence-increment "1") "2"))
+ (should (equal (denote-sequence-increment "a") "b"))
+ (should (equal (denote-sequence-increment "z") "za"))
+ (should (equal (denote-sequence-increment "zz") "zza"))
+ (should-error (denote-sequence-increment "1a")))
+
+(ert-deftest dst-denote-sequence-decrement ()
+ "Test that `denote-sequence-decrement' does the right thing."
+ (should (null (denote-sequence-decrement "1")))
+ (should (null (denote-sequence-decrement "a")))
+ (should (equal (denote-sequence-decrement "2") "1"))
+ (should (equal (denote-sequence-decrement "b") "a"))
+ (should (equal (denote-sequence-decrement "za") "z"))
+ (should (equal (denote-sequence-decrement "zza") "zz"))
+ (should-error (denote-sequence-decrement "1a")))
+
(defun dst-relative-p (sequence type &rest files)
"Return non-nil if FILES are relatives of SEQUENCE given TYPE."
(when-let* ((relatives (denote-sequence-get-relative sequence type files))
