aboutsummaryrefslogtreecommitdiff
path: root/tests/test-gloss-fetch--definitions-429-returns-rate-limited.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-gloss-fetch--definitions-429-returns-rate-limited.el')
-rw-r--r--tests/test-gloss-fetch--definitions-429-returns-rate-limited.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-gloss-fetch--definitions-429-returns-rate-limited.el b/tests/test-gloss-fetch--definitions-429-returns-rate-limited.el
index a5fb719..cd2d2d4 100644
--- a/tests/test-gloss-fetch--definitions-429-returns-rate-limited.el
+++ b/tests/test-gloss-fetch--definitions-429-returns-rate-limited.el
@@ -21,8 +21,8 @@
(gloss-fetch-test--status-response "HTTP/1.1 429 Too Many Requests" ""))
(let ((result (gloss-fetch-definitions "anaphora")))
(should (eq (car result) :empty))
- (should (member 'wiktionary (plist-get result :failed)))
- (should-not (plist-get result :no-defs)))))
+ (should (member 'wiktionary (plist-get (cdr result) :failed)))
+ (should-not (plist-get (cdr result) :no-defs)))))
(ert-deftest test-gloss-fetch-definitions-429-tracked-separately-internally ()
"Boundary: per-source status taxonomy distinguishes :rate-limited from :server-error.