emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ensure the sequence tests target the implied scheme

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-01-12 10:16:07 +02:00
parent 14dd0b5d2e
commit b642758ff9
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
tests/denote-test.el
View file

@ -617,16 +617,17 @@ does not involve the time zone."
"20241230T075023==45--test__testing.txt"
"20241230T075023==45=1--test__testing.txt")))
(sequences (denote-sequence-get-all-sequences files)))
(should
(and
(equal (denote-sequence--get-new-child "1" sequences) "1=3")
(equal (denote-sequence--get-new-child "1=1" sequences) "1=1=3")
(equal (denote-sequence--get-new-child "1=1=2" sequences) "1=1=2=1")
(equal (denote-sequence--get-new-child "1=2" sequences) "1=2=2")
(equal (denote-sequence--get-new-child "1=2=1" sequences) "1=2=1=1")
(equal (denote-sequence--get-new-child "2" sequences) "2=1")
(equal (denote-sequence--get-new-child "45" sequences) "45=2")))
(should-error (denote-sequence--get-new-child "3" sequences))
(let ((denote-sequence-scheme 'numeric))
(should
(and
(equal (denote-sequence--get-new-child "1" sequences) "1=3")
(equal (denote-sequence--get-new-child "1=1" sequences) "1=1=3")
(equal (denote-sequence--get-new-child "1=1=2" sequences) "1=1=2=1")
(equal (denote-sequence--get-new-child "1=2" sequences) "1=2=2")
(equal (denote-sequence--get-new-child "1=2=1" sequences) "1=2=1=1")
(equal (denote-sequence--get-new-child "2" sequences) "2=1")
(equal (denote-sequence--get-new-child "45" sequences) "45=2")))
(should-error (denote-sequence--get-new-child "3" sequences)))
(delete-directory denote-directory :delete-contents-as-well)))
(ert-deftest dt-denote-sequence--get-new-sibling ()
@ -650,16 +651,17 @@ does not involve the time zone."
"20241230T075023==1=2=1--test__testing.txt"
"20241230T075023==2--test__testing.txt")))
(sequences (denote-sequence-get-all-sequences files)))
(should
(and
(equal (denote-sequence--get-new-sibling "1" sequences) "3")
(equal (denote-sequence--get-new-sibling "1=1" sequences) "1=3")
(equal (denote-sequence--get-new-sibling "1=1=1" sequences) "1=1=3")
(equal (denote-sequence--get-new-sibling "1=1=2" sequences) "1=1=3")
(equal (denote-sequence--get-new-sibling "1=2" sequences) "1=3")
(equal (denote-sequence--get-new-sibling "1=2=1" sequences) "1=2=2")
(equal (denote-sequence--get-new-sibling "2" sequences) "3")))
(should-error (denote-sequence--get-new-sibling "4" sequences))
(let ((denote-sequence-scheme 'numeric))
(should
(and
(equal (denote-sequence--get-new-sibling "1" sequences) "3")
(equal (denote-sequence--get-new-sibling "1=1" sequences) "1=3")
(equal (denote-sequence--get-new-sibling "1=1=1" sequences) "1=1=3")
(equal (denote-sequence--get-new-sibling "1=1=2" sequences) "1=1=3")
(equal (denote-sequence--get-new-sibling "1=2" sequences) "1=3")
(equal (denote-sequence--get-new-sibling "1=2=1" sequences) "1=2=2")
(equal (denote-sequence--get-new-sibling "2" sequences) "3")))
(should-error (denote-sequence--get-new-sibling "4" sequences)))
(delete-directory denote-directory :delete-contents-as-well)))
(ert-deftest dt-denote-sequence-split ()