diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 4 | ||||
| -rw-r--r-- | test/src/json-tests.el | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 3cd4802a981..d41c7623289 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -484,7 +484,7 @@ comparing the subr with a much slower lisp implementation." | |||
| 484 | (should-have-watch-data `(data-tests-lvar 3 set ,buf1))) | 484 | (should-have-watch-data `(data-tests-lvar 3 set ,buf1))) |
| 485 | (should-have-watch-data `(data-tests-lvar 1 unlet ,buf1)) | 485 | (should-have-watch-data `(data-tests-lvar 1 unlet ,buf1)) |
| 486 | (setq-default data-tests-lvar 4) | 486 | (setq-default data-tests-lvar 4) |
| 487 | (should-have-watch-data `(data-tests-lvar 4 set nil)) | 487 | (should-have-watch-data '(data-tests-lvar 4 set nil)) |
| 488 | (with-temp-buffer | 488 | (with-temp-buffer |
| 489 | (setq buf2 (current-buffer)) | 489 | (setq buf2 (current-buffer)) |
| 490 | (setq data-tests-lvar 1) | 490 | (setq data-tests-lvar 1) |
| @@ -501,7 +501,7 @@ comparing the subr with a much slower lisp implementation." | |||
| 501 | (kill-all-local-variables) | 501 | (kill-all-local-variables) |
| 502 | (should-have-watch-data `(data-tests-lvar nil makunbound ,buf2))) | 502 | (should-have-watch-data `(data-tests-lvar nil makunbound ,buf2))) |
| 503 | (setq-default data-tests-lvar 4) | 503 | (setq-default data-tests-lvar 4) |
| 504 | (should-have-watch-data `(data-tests-lvar 4 set nil)) | 504 | (should-have-watch-data '(data-tests-lvar 4 set nil)) |
| 505 | (makunbound 'data-tests-lvar) | 505 | (makunbound 'data-tests-lvar) |
| 506 | (should-have-watch-data '(data-tests-lvar nil makunbound nil)) | 506 | (should-have-watch-data '(data-tests-lvar nil makunbound nil)) |
| 507 | (setq data-tests-lvar 5) | 507 | (setq data-tests-lvar 5) |
diff --git a/test/src/json-tests.el b/test/src/json-tests.el index bffee8f39d3..651b0a0bb7a 100644 --- a/test/src/json-tests.el +++ b/test/src/json-tests.el | |||
| @@ -86,8 +86,8 @@ | |||
| 86 | (should (equal | 86 | (should (equal |
| 87 | (json-serialize | 87 | (json-serialize |
| 88 | (list :detect-hash-table #s(hash-table test equal data ("bla" "ble")) | 88 | (list :detect-hash-table #s(hash-table test equal data ("bla" "ble")) |
| 89 | :detect-alist `((bla . "ble")) | 89 | :detect-alist '((bla . "ble")) |
| 90 | :detect-plist `(:bla "ble"))) | 90 | :detect-plist '(:bla "ble"))) |
| 91 | "\ | 91 | "\ |
| 92 | {\ | 92 | {\ |
| 93 | \"detect-hash-table\":{\"bla\":\"ble\"},\ | 93 | \"detect-hash-table\":{\"bla\":\"ble\"},\ |