diff options
Diffstat (limited to 'tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el')
| -rw-r--r-- | tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el b/tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el index 881b783..8067dde 100644 --- a/tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el +++ b/tests/test-gloss-fetch--definitions-timeout-returns-unreachable.el @@ -20,8 +20,8 @@ (lambda (_url) nil) (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-timeout-marks-source-unreachable () "Boundary: per-source status is :unreachable, distinct from :server-error." |