diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/mastodon-notifications-test.el | 2 | ||||
| -rw-r--r-- | test/mastodon-tl-tests.el | 10 | ||||
| -rw-r--r-- | test/mastodon-toot-tests.el | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/test/mastodon-notifications-test.el b/test/mastodon-notifications-test.el index 9758123..ba08bd4 100644 --- a/test/mastodon-notifications-test.el +++ b/test/mastodon-notifications-test.el @@ -197,7 +197,7 @@ notification to be tested." (timestamp (cdr (assoc 'created_at sample)))) (with-temp-buffer (funcall fun sample) (buffer-substring-no-properties (point-min) (point-max))))) - + (ert-deftest mastodon-notifications--test-byline-concat () "Ensure proper suffix is appended to action." (should (and diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index f7c6091..851dc39 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -142,7 +142,7 @@ a string or a numeric." "Should request toots more recent than since_id. `mastodon-tl--updated-json' should accept and id that is either -a string or a numeric." +a string or a numeric." (let ((mastodon-instance-url "https://instance.url")) (with-mock (mock (mastodon-http--get-json "https://instance.url/api/v1/timelines/foo?since_id=12345")) @@ -775,7 +775,7 @@ constant." (with-temp-buffer (cl-dotimes (n 12) (insert-timestamp (+ n 2))) (setq markers (nreverse markers)) - + (with-mock (mock (current-time) => now) (stub run-at-time => 'fake-timer) @@ -856,13 +856,13 @@ constant." (should (eq t (get-text-property body-position 'invisible))) ;; Click the link: - (mastodon-tl--do-link-action-at-point (car link-region)) + (mastodon-tl--do-link-action-at-point (car link-region)) ;; The body is now visible: (should (eq nil (get-text-property body-position 'invisible))) ;; Click the link once more: - (mastodon-tl--do-link-action-at-point (car link-region)) + (mastodon-tl--do-link-action-at-point (car link-region)) ;; The body is invisible again: (should (eq t (get-text-property body-position 'invisible))) @@ -873,7 +873,7 @@ constant." (mastodon-tl--toggle-spoiler-text-in-toot) (should (eq nil (get-text-property body-position 'invisible))) (should (eq toot-start (point))) - + ;; Go to the toot's end (goto-char toot-end) ;; Press 'c' and the body is invisible again and point hasn't changed: diff --git a/test/mastodon-toot-tests.el b/test/mastodon-toot-tests.el index 3e25536..0734723 100644 --- a/test/mastodon-toot-tests.el +++ b/test/mastodon-toot-tests.el @@ -20,7 +20,7 @@ (ert-deftest toot-multi-mentions () (let ((mastodon-auth--acct-alist '(("https://local.social". "null"))) - (mastodon-instance-url "https://local.social")) + (mastodon-instance-url "https://local.social")) (should (string= (mastodon-toot--mentions mastodon-toot-multi-mention) "@local@local.social @federated@federated.social @federated@federated.cafe ")))) @@ -36,7 +36,7 @@ (ert-deftest toot-no-mention () (let ((mastodon-auth--acct-alist '(("https://local.social". "null"))) - (mastodon-instance-url "https://local.social")) + (mastodon-instance-url "https://local.social")) (should (string= (mastodon-toot--mentions mastodon-toot-no-mention) "")))) (ert-deftest cancel () |