diff options
Diffstat (limited to 'test/lisp/erc')
| -rw-r--r-- | test/lisp/erc/resources/erc-d/erc-d-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/erc/resources/erc-d/erc-d-tests.el b/test/lisp/erc/resources/erc-d/erc-d-tests.el index 78f87399afb..dda1b1ced84 100644 --- a/test/lisp/erc/resources/erc-d/erc-d-tests.el +++ b/test/lisp/erc/resources/erc-d/erc-d-tests.el | |||
| @@ -367,8 +367,9 @@ | |||
| 367 | (should (equal (funcall it) "foo3foo"))) | 367 | (should (equal (funcall it) "foo3foo"))) |
| 368 | 368 | ||
| 369 | (ert-info ("Exits clean") | 369 | (ert-info ("Exits clean") |
| 370 | (when (listp (alist-get 'f (erc-d-dialog-vars dialog))) ; may be compiled | 370 | (when (interpreted-function-p |
| 371 | (should (eq 'closure (car (alist-get 'f (erc-d-dialog-vars dialog)))))) | 371 | (alist-get 'f (erc-d-dialog-vars dialog))) ; may be compiled |
| 372 | (should (aref (alist-get 'f (erc-d-dialog-vars dialog)) 2))) | ||
| 372 | (should-not (funcall it)) | 373 | (should-not (funcall it)) |
| 373 | (should (equal (erc-d-dialog-vars dialog) | 374 | (should (equal (erc-d-dialog-vars dialog) |
| 374 | `((:a . 1) | 375 | `((:a . 1) |