From 48dacb70ceef7a7f247115c64fac287ab71b0608 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 13 Aug 2024 16:41:34 +0200 Subject: fix some media texts, help-echo --- test/mastodon-media-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test/mastodon-media-tests.el') diff --git a/test/mastodon-media-tests.el b/test/mastodon-media-tests.el index abf9a1a..025f835 100644 --- a/test/mastodon-media-tests.el +++ b/test/mastodon-media-tests.el @@ -39,7 +39,7 @@ (should (string= "http://example.org/remote/img.png" (plist-get properties 'image-url))) (should (eq mastodon-tl--shr-image-map-replacement (plist-get properties 'keymap))) (should (string= "image" (plist-get properties 'mastodon-media-type))) - (should (string= "RET/i: load full image (prefix: copy URL), +/-: zoom, r: rotate, o: save preview" + (should (string= "RET/i: load full image (prefix: copy URL), +/-: zoom, r: rotate, o: save preview, S: toggle sensitive media" (plist-get properties 'help-echo)))))) (ert-deftest mastodon-media:get-media-link-rendering-gif () @@ -63,7 +63,7 @@ (should (string= "http://example.org/remote/img.png" (plist-get properties 'image-url))) (should (eq mastodon-tl--shr-image-map-replacement (plist-get properties 'keymap))) (should (string= "gifv" (plist-get properties 'mastodon-media-type))) - (should (string= "RET/i: load full image (prefix: copy URL), +/-: zoom, r: rotate, o: save preview\nC-RET: play gifv with mpv" + (should (string= "RET/i: load full image (prefix: copy URL), +/-: zoom, r: rotate, o: save preview, S: toggle sensitive media\nC-RET: play gifv with mpv" (plist-get properties 'help-echo)))))) (ert-deftest mastodon-media--load-image-from-url-avatar-with-imagemagic () -- cgit v1.2.3 From 4a3313a6e868d0058af38dddd3f1b4d8472c2f95 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 13 Aug 2024 16:42:07 +0200 Subject: media tests: comment calls to image-type-available-p, fix some but not all --- test/mastodon-media-tests.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'test/mastodon-media-tests.el') diff --git a/test/mastodon-media-tests.el b/test/mastodon-media-tests.el index 025f835..5633ca3 100644 --- a/test/mastodon-media-tests.el +++ b/test/mastodon-media-tests.el @@ -5,7 +5,7 @@ (ert-deftest mastodon-media--get-avatar-rendering () "Should return text with all expected properties." (with-mock - (mock (image-type-available-p 'imagemagick) => t) + ;; (mock (image-type-available-p 'imagemagick) => t) (mock (create-image * (when (version< emacs-version "27.1") 'imagemagick) t :height 123) => :mock-image) (let* ((mastodon-media--avatar-height 123) @@ -71,7 +71,7 @@ (let ((url "http://example.org/image.png") (mastodon-media--avatar-height 123)) (with-mock - (mock (image-type-available-p 'imagemagick) => t) + ;; (mock (image-type-available-p 'imagemagick) => t) (mock (create-image * (when (version< emacs-version "27.1") 'imagemagick) @@ -94,8 +94,8 @@ "Should make the right call to url-retrieve." (let ((url "http://example.org/image.png")) (with-mock - (mock (image-type-available-p 'imagemagick) => nil) - (mock (image-transforms-p) => nil) + ;; (mock (image-type-available-p 'imagemagick) => nil) + ;; (mock (image-transforms-p) => nil) (mock (create-image * nil t) => '(image foo)) (mock (copy-marker 7) => :my-marker ) (mock (url-retrieve @@ -115,7 +115,7 @@ "Should make the right call to url-retrieve." (let ((url "http://example.org/image.png")) (with-mock - (mock (image-type-available-p 'imagemagick) => t) + ;; (mock (image-type-available-p 'imagemagick) => t) (mock (create-image * nil t) => '(image foo)) (mock (copy-marker 7) => :my-marker ) (mock (url-retrieve @@ -134,8 +134,8 @@ "Should make the right call to url-retrieve." (let ((url "http://example.org/image.png")) (with-mock - (mock (image-type-available-p 'imagemagick) => nil) - (mock (image-transforms-p) => nil) + ;; (mock (image-type-available-p 'imagemagick) => nil) + ;; (mock (image-transforms-p) => nil) (mock (create-image * nil t) => '(image foo)) (mock (copy-marker 7) => :my-marker ) (mock (url-retrieve @@ -156,7 +156,7 @@ (let ((url "http://example.org/image.png") (mastodon-media--avatar-height 123)) (with-mock - (mock (image-type-available-p 'imagemagick) => t) + ;; (mock (image-type-available-p 'imagemagick) => t) (mock (create-image * (when (version< emacs-version "27.1") 'imagemagick) -- cgit v1.2.3