aboutsummaryrefslogtreecommitdiff
path: root/test/mastodon-client-tests.el
diff options
context:
space:
mode:
authorHolger Dürer <me@hdurer.net>2017-05-16 21:09:58 +0100
committerJohnson Denen <johnson.denen@gmail.com>2017-05-18 10:21:21 -0400
commitfe8e4386eacb358df0e16dc5bd37dde4f4d6d57c (patch)
tree2329c867ca4d8434e6e2200aae4f827e7f2a9165 /test/mastodon-client-tests.el
parent5f41086d3a03e8781aab77ab17f4d4f95263e07c (diff)
Remove most byte-compile warnings.
We do this by - moving vars into the files where they are (mostly) used - "declaring" vars used elsewhere with the (defvar <var-name>) pattern, - declaring functions defined in others functions rather than loading the file via require.
Diffstat (limited to 'test/mastodon-client-tests.el')
-rw-r--r--test/mastodon-client-tests.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/test/mastodon-client-tests.el b/test/mastodon-client-tests.el
index e1f92f8..c339efa 100644
--- a/test/mastodon-client-tests.el
+++ b/test/mastodon-client-tests.el
@@ -54,22 +54,22 @@
(ert-deftest client-1 ()
"Should return `mastondon-client' if non-nil."
- (let ((mastodon-client t))
+ (let ((mastodon-client--client-details t))
(should (eq (mastodon-client) t))))
(ert-deftest client-2 ()
"Should read from `mastodon-token-file' if available."
- (let ((mastodon-client nil))
+ (let ((mastodon-client--client-details nil))
(with-mock
(mock (mastodon-client--read) => '(:client_id "foo" :client_secret "bar"))
(should (equal (mastodon-client) '(:client_id "foo" :client_secret "bar")))
- (should (equal mastodon-client '(:client_id "foo" :client_secret "bar"))))))
+ (should (equal mastodon-client--client-details '(:client_id "foo" :client_secret "bar"))))))
(ert-deftest client-3 ()
"Should store client data in plstore if it can't be read."
- (let ((mastodon-client nil))
+ (let ((mastodon-client--client-details nil))
(with-mock
(mock (mastodon-client--read))
(mock (mastodon-client--store) => '(:client_id "foo" :client_secret "baz"))
(should (equal (mastodon-client) '(:client_id "foo" :client_secret "baz")))
- (should (equal mastodon-client '(:client_id "foo" :client_secret "baz"))))))
+ (should (equal mastodon-client--client-details '(:client_id "foo" :client_secret "baz"))))))