diff options
| author | Andrea Corallo | 2019-06-11 19:41:34 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:41 +0100 |
| commit | b3d858da8d577449e2ab40572422fdd1bdf8b538 (patch) | |
| tree | 0a61c585fc9f1f8e889b0366c51d2592f45dc32e /test/src | |
| parent | 4da353c6a3900ddacab00d685432fba12099dbd0 (diff) | |
| download | emacs-b3d858da8d577449e2ab40572422fdd1bdf8b538.tar.gz emacs-b3d858da8d577449e2ab40572422fdd1bdf8b538.zip | |
inline consp
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 74ed33a43cf..63dfafafb04 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -272,6 +272,15 @@ | |||
| 272 | (should (equal (comp-bubble-sort-f list1) | 272 | (should (equal (comp-bubble-sort-f list1) |
| 273 | (sort list2 #'<))))) | 273 | (sort list2 #'<))))) |
| 274 | 274 | ||
| 275 | (ert-deftest comp-tests-list-inline () | ||
| 276 | "Test some inlined list functions." | ||
| 277 | (defun comp-tests-consp-f (x) | ||
| 278 | ;; Bconsp | ||
| 279 | (consp x)) | ||
| 280 | |||
| 281 | (should (eq (comp-tests-consp-f '(1)) t)) | ||
| 282 | (should (eq (comp-tests-consp-f 1) nil))) | ||
| 283 | |||
| 275 | (ert-deftest comp-tests-gc () | 284 | (ert-deftest comp-tests-gc () |
| 276 | "Try to do some longer computation to let the gc kick in." | 285 | "Try to do some longer computation to let the gc kick in." |
| 277 | (dotimes (_ 100000) | 286 | (dotimes (_ 100000) |