diff options
| author | Andrea Corallo | 2019-06-30 10:11:39 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:47 +0100 |
| commit | b5b0e63bbc23a6584e5aaa49861a37b832a0def3 (patch) | |
| tree | 489070be4a624756f4c2de75085908b231dcde6c /test/src | |
| parent | 58dfd08fed075df5b0e8b059716b3e3638eafce9 (diff) | |
| download | emacs-b5b0e63bbc23a6584e5aaa49861a37b832a0def3.tar.gz emacs-b5b0e63bbc23a6584e5aaa49861a37b832a0def3.zip | |
fix setcar
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 8fd3ca2e197..47c61c82bdd 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -284,7 +284,12 @@ | |||
| 284 | (native-compile #'comp-tests-setcdr-f) | 284 | (native-compile #'comp-tests-setcdr-f) |
| 285 | 285 | ||
| 286 | (should (equal (comp-tests-setcar-f '(10 . 10) 3) '(3 . 10))) | 286 | (should (equal (comp-tests-setcar-f '(10 . 10) 3) '(3 . 10))) |
| 287 | (should (equal (comp-tests-setcdr-f '(10 . 10) 3) '(10 . 3)))) | 287 | (should (equal (comp-tests-setcdr-f '(10 . 10) 3) '(10 . 3))) |
| 288 | (should (equal (condition-case | ||
| 289 | err | ||
| 290 | (comp-tests-setcar-f 3 10) | ||
| 291 | (error err)) | ||
| 292 | '(wrong-type-argument consp 3)))) | ||
| 288 | 293 | ||
| 289 | (defun comp-bubble-sort () | 294 | (defun comp-bubble-sort () |
| 290 | "Run bubble sort." | 295 | "Run bubble sort." |