[elpa] externals/srht 6167162568 2/2: Fix tests.

[ELPA Syncer]

branch: externals/srht
commit 6167162568c51c57d920dc4ef84f73b97a7084ac
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    Fix tests.
---
 tests/test.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tests/test.el b/tests/test.el
index f4014f8287..24d0213ca4 100644
--- a/tests/test.el
+++ b/tests/test.el
@@ -31,14 +31,15 @@
 (require 'srht-git)
 
 (ert-deftest srht-paste ()
-  (should (equal (srht-paste "489fa091d5c6d5751769375a6f0e00447347adff")
-                 '(:service paste
+  (should (equal (srht-paste "sr.ht" 
"489fa091d5c6d5751769375a6f0e00447347adff")
+                 '(:domain "sr.ht"
+                   :service paste
                    :path "/api/pastes/489fa091d5c6d5751769375a6f0e00447347adff"
                    :query nil
                    :form nil))))
 
 (ert-deftest srht-git-repo-retrive ()
-  (pcase-let (((map (:path name)) (srht-git-repo "srht.el")))
+  (pcase-let (((map (:path name)) (srht-git-repo "sr.ht" "srht.el")))
     (should (equal "/api/repos/srht.el" name))))
 
 ;; (srht-retrive (srht-git-user "~akagi"))