Vendor s-index-of in test utils instead of requiring s

Author: kommen

Eldev

@@ -10,7 +10,7 @@
 
 (eldev-use-plugin 'autoloads)
 
-(eldev-add-extra-dependencies 'test 'buttercup 's)
+(eldev-add-extra-dependencies 'test 'buttercup)
 
 (setq byte-compile-docstring-max-column 240)
 (setq checkdoc-force-docstrings-flag nil)

test/clojure-ts-mode-indentation-test.el

@@ -43,7 +43,7 @@ DESCRIPTION is a string with the description of the spec."
   (declare (indent 1))
   `(it ,description
     (let* ((after ,after)
-           (expected-cursor-pos (1+ (s-index-of "|" after)))
+           (expected-cursor-pos (1+ (clojure-ts--s-index-of "|" after)))
            (expected-state (delete ?| after)))
       (with-clojure-ts-buffer ,before
         (goto-char (point-min))

test/test-helper.el

@@ -46,4 +46,13 @@ and point left there."
                              (delete-char -1)
                              ,@body)))
 
+(defun clojure-ts--s-index-of (needle s &optional ignore-case)
+  "Returns first index of NEEDLE in S, or nil.
+
+If IGNORE-CASE is non-nil, the comparison is done without paying
+attention to case differences."
+  (declare (pure t) (side-effect-free t))
+  (let ((case-fold-search ignore-case))
+    (string-match-p (regexp-quote needle) s)))
+
 ;;; test-helper.el ends here