aboutsummaryrefslogtreecommitdiff
path: root/test/mastodon-client-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/mastodon-client-tests.el')
-rw-r--r--test/mastodon-client-tests.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/test/mastodon-client-tests.el b/test/mastodon-client-tests.el
index c2ec50c..b302ed6 100644
--- a/test/mastodon-client-tests.el
+++ b/test/mastodon-client-tests.el
@@ -122,11 +122,11 @@
(should (equal mastodon-client--client-details-alist
'(("http://mastodon.example" :client_id "foo" :client_secret "baz")))))))
-(ert-deftest mastodon-client-form-user-from-vars ()
+(ert-deftest mastodon-client--form-user-from-vars ()
(let ((mastodon-active-user "test9000")
(mastodon-instance-url "https://mastodon.example"))
(should
- (equal (mastodon-client-form-user-from-vars)
+ (equal (mastodon-client--form-user-from-vars)
"test9000@mastodon.example"))))
(ert-deftest mastodon-client--current-user-active-p ()
@@ -142,7 +142,7 @@
(mock (mastodon-client--general-read "active-user") => '(:username "user@other.example" :client_id "id1"))
(should (null (mastodon-client--current-user-active-p))))))
-(ert-deftest mastodon-client-store-access-token ()
+(ert-deftest mastodon-client--store-access-token ()
(let ((mastodon-instance-url "https://mastodon.example")
(mastodon-active-user "test8000")
(user-details
@@ -150,14 +150,14 @@
:instance "https://mastodon.example"
:client_id "id" :client_secret "secret"
:access_token "token")))
- ;; test if mastodon-client-store-access-token /returns/ right
+ ;; test if mastodon-client--store-access-token /returns/ right
;; value
(with-mock
(mock (mastodon-client) => '(:client_id "id" :client_secret "secret"))
(mock (mastodon-client--token-file) => "stubfile.plstore")
- (should (equal (mastodon-client-store-access-token "token")
+ (should (equal (mastodon-client--store-access-token "token")
user-details)))
- ;; test if mastodon-client-store-access-token /stores/ right value
+ ;; test if mastodon-client--store-access-token /stores/ right value
(with-mock
(mock (mastodon-client--token-file) => "stubfile.plstore")
(should (equal (mastodon-client--general-read
@@ -165,10 +165,10 @@
user-details)))
(delete-file "stubfile.plstore")))
-(ert-deftest mastodon-client-make-user-active ()
+(ert-deftest mastodon-client--make-user-active ()
(let ((user-details '(:username "test@mastodon.example")))
(with-mock
(mock (mastodon-client--token-file) => "stubfile.plstore")
- (mastodon-client-make-user-active user-details)
+ (mastodon-client--make-user-active user-details)
(should (equal (mastodon-client--general-read "active-user")
user-details)))))