diff options
| author | Alexander Griffith <griffitaj@gmail.com> | 2018-03-17 11:59:22 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2018-08-10 22:20:04 -0400 |
| commit | df32beb187aa7cc360324a75c802165aba016aeb (patch) | |
| tree | 3f86edd1a2b5761538063a46ac48405e3f0f10e8 /test/mastodon-tl-tests.el | |
| parent | 2346da19a129b27f2dc68677522475f145adde50 (diff) | |
Adjusted mastodon-tl.el to open user profiles in emacs. (#189)
* Adjusted mastodon-tl.el to open user profiles in emacs.
This also fixes an issue in user profiles where new statuses were insert at the above rather than below the user profile header.
Diffstat (limited to 'test/mastodon-tl-tests.el')
| -rw-r--r-- | test/mastodon-tl-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index b2f51c7..f7c6091 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -266,7 +266,9 @@ a string or a numeric." | Account 42 (@acct42@example.space) 2999-99-99 00:11:22 ------------")) (should (eq (get-text-property handle-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) + (should (string= (get-text-property handle-location 'mastodon-handle byline) + "@acct42@example.space")) (should (equal (get-text-property handle-location 'help-echo byline) "Browse user profile of @acct42@example.space")))))) @@ -364,11 +366,11 @@ a string or a numeric." | Account 42 (@acct42@example.space) Boosted Account 43 (@acct43@example.space) original time ------------")) (should (eq (get-text-property handle1-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property handle1-location 'help-echo byline) "Browse user profile of @acct42@example.space")) (should (eq (get-text-property handle2-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property handle2-location 'help-echo byline) "Browse user profile of @acct43@example.space")))))) @@ -946,7 +948,7 @@ constant." mastodon-tl-test-base-toot))) (mention-location 11)) (should (eq (get-text-property mention-location 'mastodon-tab-stop rendered) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property mention-location 'help-echo rendered) "Browse user profile of @foo@bar.example")))) |