[nongnu] elpa/hyperdrive 3cac9738b6 22/82: Change: (-deftest) Don't rebind hyperdrive--url-hexify-string

[ELPA Syncer]

branch: elpa/hyperdrive
commit 3cac9738b65ee7820e5f686875fa75f05ebb1d7d
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (-deftest) Don't rebind hyperdrive--url-hexify-string
---
 tests/test-hyperdrive.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/test-hyperdrive.el b/tests/test-hyperdrive.el
index ad3753220b..d10ff57386 100644
--- a/tests/test-hyperdrive.el
+++ b/tests/test-hyperdrive.el
@@ -51,8 +51,7 @@
   (declare (indent defun))
   (let ((name (intern (concat "hyperdrive-" (symbol-name name)))))
     `(cl-macrolet ((make-url
-                     (&rest args) `(concat "hyper://" 
test-hyperdrive-public-key ,@args))
-                   (hexify (string) `(hyperdrive--url-hexify-string ,string)))
+                     (&rest args) `(concat "hyper://" 
test-hyperdrive-public-key ,@args)))
        (ert-deftest ,name () ,@args))))
 
 ;;;; Tests
@@ -72,7 +71,7 @@
     (should (equal path "/name-without-spaces")))
   ;; TODO: Consider testing unhexified filename in URL.
   (pcase-let (((cl-struct hyperdrive-entry name path)
-               (hyperdrive-url-entry (make-url (hexify "/name with spaces")))))
+               (hyperdrive-url-entry (make-url (hyperdrive--url-hexify-string 
"/name with spaces")))))
     (should (equal name "name with spaces"))
     (should (equal path "/name with spaces")))
   (pcase-let (((cl-struct hyperdrive-entry name path)
@@ -113,7 +112,7 @@
 
 (hyperdrive-deftest url-entry--makes-hyperdrive ()
   (pcase-let* (((cl-struct hyperdrive-entry hyperdrive)
-                (hyperdrive-url-entry (make-url (hexify "/subdir/with-file"))))
+                (hyperdrive-url-entry (make-url (hyperdrive--url-hexify-string 
"/subdir/with-file"))))
                ((cl-struct hyperdrive public-key) hyperdrive))
     (should (equal public-key test-hyperdrive-public-key))))