diff --git a/tests/denote-test.el b/tests/denote-test.el
index d8e5f7d..9a5fa80 100644
--- a/tests/denote-test.el
+++ b/tests/denote-test.el
@@ -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 ()