[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/srht 6167162568 2/2: Fix tests.
From: |
ELPA Syncer |
Subject: |
[elpa] externals/srht 6167162568 2/2: Fix tests. |
Date: |
Thu, 19 May 2022 11:57:49 -0400 (EDT) |
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"))