diff options
Diffstat (limited to 'tests/test-gloss-fetch--definitions-404-returns-no-defs.el')
| -rw-r--r-- | tests/test-gloss-fetch--definitions-404-returns-no-defs.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/test-gloss-fetch--definitions-404-returns-no-defs.el b/tests/test-gloss-fetch--definitions-404-returns-no-defs.el index d8cd257..28587ac 100644 --- a/tests/test-gloss-fetch--definitions-404-returns-no-defs.el +++ b/tests/test-gloss-fetch--definitions-404-returns-no-defs.el @@ -22,8 +22,8 @@ "{\"detail\":\"Page not found\"}")) (let ((result (gloss-fetch-definitions "asdf-not-a-word"))) (should (eq (car result) :empty)) - (should (member 'wiktionary (plist-get result :no-defs))) - (should-not (plist-get result :failed))))) + (should (member 'wiktionary (plist-get (cdr result) :no-defs))) + (should-not (plist-get (cdr result) :failed))))) (ert-deftest test-gloss-fetch-definitions-200-empty-rolls-up-to-empty-no-defs () "Boundary: a 200 with an empty JSON object also maps to :no-defs." @@ -31,8 +31,8 @@ (lambda (_url) (gloss-fetch-test--ok-response "{}")) (let ((result (gloss-fetch-definitions "term"))) (should (eq (car result) :empty)) - (should (member 'wiktionary (plist-get result :no-defs))) - (should-not (plist-get result :failed))))) + (should (member 'wiktionary (plist-get (cdr result) :no-defs))) + (should-not (plist-get (cdr result) :failed))))) (ert-deftest test-gloss-fetch-definitions-200-no-english-rolls-up-to-no-defs () "Boundary: a 200 response with only non-English keys maps to :no-defs." @@ -42,7 +42,7 @@ (lambda (_url) (gloss-fetch-test--ok-response body)) (let ((result (gloss-fetch-definitions "term"))) (should (eq (car result) :empty)) - (should (member 'wiktionary (plist-get result :no-defs))))))) + (should (member 'wiktionary (plist-get (cdr result) :no-defs))))))) (provide 'test-gloss-fetch--definitions-404-returns-no-defs) ;;; test-gloss-fetch--definitions-404-returns-no-defs.el ends here |