aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAbhiseck Paira <abhiseckpaira@disroot.org>2022-02-23 14:24:37 +0530
committerAbhiseck Paira <abhiseckpaira@disroot.org>2022-02-23 14:24:37 +0530
commit0af5b491d14d521c03ebc48d82608afd65166e90 (patch)
tree3cc559ec30068b1ec739ca6af893c2ba377f5a12 /test
parent77c173afc1f24fa371c41d0c59b94a8650eb4f61 (diff)
change '-' to '--' in between function and namespace names
mastodon.el currently follows the convention where all function names should have two dashes (not one dash) in between function and namespace names. Update all function names to follow this convention. See issue #205 and pull request #255
Diffstat (limited to 'test')
-rw-r--r--test/mastodon-auth-tests.el4
-rw-r--r--test/mastodon-client-tests.el16
2 files changed, 10 insertions, 10 deletions
diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el
index 3ff745f..3bf65b2 100644
--- a/test/mastodon-auth-tests.el
+++ b/test/mastodon-auth-tests.el
@@ -56,8 +56,8 @@
(mastodon-auth--token-alist nil))
(with-mock
(mock (mastodon-auth--get-token) => '(:access_token "foobaz"))
- (mock (mastodon-client-store-access-token "foobaz"))
- (stub mastodon-client-make-user-active)
+ (mock (mastodon-client--store-access-token "foobaz"))
+ (stub mastodon-client--make-user-active)
(should
(string= (mastodon-auth--access-token)
"foobaz"))
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)))))