aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHolger Dürer <me@hdurer.net>2021-11-09 21:06:04 +0100
committerHolger Dürer <me@hdurer.net>2021-11-10 20:34:06 +0100
commiteb922191259721d6b1b232de41bbd43ebdb10d2f (patch)
treef348916cbbe0919ff08a6e076d151a69e31b7b0e
parent522926bcca0caf45516da3dcd00c944066641965 (diff)
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.
l---------test/fixture1
-rw-r--r--test/mastodon-client-tests.el2
-rw-r--r--test/mastodon-media-tests.el2
3 files changed, 4 insertions, 1 deletions
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