branch: externals/hyperbole
commit a0b40b22ce7aa25b5682239b1aabcb267b514698
Author: Mats Lidell <[email protected]>
Commit: Mats Lidell <[email protected]>

    Do not use seq-split, it requires 29.1
---
 test/hywiki-tests.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 12beadb477..43ae0911b4 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell
 ;;
 ;; Orig-Date:    18-May-24 at 23:59:48
-;; Last-Mod:     20-Jun-24 at 09:28:30 by Mats Lidell
+;; Last-Mod:     20-Jun-24 at 09:30:31 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -116,7 +116,7 @@
     (should (hywiki-maybe-at-wikiword-beginning))
     (goto-char 2)
     (should-not (hywiki-maybe-at-wikiword-beginning)))
-  (dolist (acceptable-char (seq-split "\(\{\<\"'`\t\n\r\f " 1))
+  (dolist (acceptable-char '("(" "{" "<" "\"" "'" "`" "        " " " "
" "" " "))
     (with-temp-buffer
       (insert (format "%sWikiWord" acceptable-char))
       (goto-char 2)
@@ -196,7 +196,7 @@
          (wiki-page-list nil))
     (unwind-protect
         (progn
-          (dolist (char (seq-split "ABCDEFGHIJ" 1))
+          (dolist (char '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J"))
             (push (hywiki-add-page (format "%s%s" basename char)) 
wiki-page-list))
           (should (= 10 (length wiki-page-list)))
           (should (= 10 (length (hywiki-get-page-list))))

Reply via email to