From eb922191259721d6b1b232de41bbd43ebdb10d2f Mon Sep 17 00:00:00 2001 From: Holger Dürer Date: Tue, 9 Nov 2021 21:06:04 +0100 Subject: Make the local ert runner pass. When just loading the lisp and test files one can run `M-x ert` but because things are subtly different we need to tweak a few more things to make things pass in that mode. --- test/fixture | 1 + test/mastodon-client-tests.el | 2 +- test/mastodon-media-tests.el | 2 ++ 3 files changed, 4 insertions(+), 1 deletion(-) create mode 120000 test/fixture diff --git a/test/fixture b/test/fixture new file mode 120000 index 0000000..f418013 --- /dev/null +++ b/test/fixture @@ -0,0 +1 @@ +../fixture \ No newline at end of file diff --git a/test/mastodon-client-tests.el b/test/mastodon-client-tests.el index b112729..9123286 100644 --- a/test/mastodon-client-tests.el +++ b/test/mastodon-client-tests.el @@ -36,7 +36,7 @@ (should (equal (mastodon-client--store) plist)))))) (ert-deftest mastodon-client--store-2 () - "Should store client in `mastodon-client--token-file'." + "Should store client in `mastodon-client--token-file'." (let* ((mastodon-instance-url "http://mastodon.example") (plstore (plstore-open "stubfile.plstore")) (client (cdr (plstore-get plstore "mastodon-http://mastodon.example")))) diff --git a/test/mastodon-media-tests.el b/test/mastodon-media-tests.el index 886c7b0..6168aaf 100644 --- a/test/mastodon-media-tests.el +++ b/test/mastodon-media-tests.el @@ -70,6 +70,7 @@ (let ((url "http://example.org/image.png")) (with-mock (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 @@ -109,6 +110,7 @@ (let ((url "http://example.org/image.png")) (with-mock (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 -- cgit v1.2.3