diff options
| author | Andrea Corallo | 2019-05-24 14:10:09 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:38 +0100 |
| commit | 2b48e5f979610de9c92df24d7cc6c47b6d8d83da (patch) | |
| tree | 7f0e5eb77e92cf2d638eb27b0edc9c139851e42d /test/src | |
| parent | 5a9d4d67043e86831df9c8b3dcb398c45b01bb06 (diff) | |
| download | emacs-2b48e5f979610de9c92df24d7cc6c47b6d8d83da.tar.gz emacs-2b48e5f979610de9c92df24d7cc6c47b6d8d83da.zip | |
Baref
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 32d5b50e13d..be131f7de76 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -85,6 +85,15 @@ | |||
| 85 | 85 | ||
| 86 | (should (= (comp-tests-length-f) 3))) | 86 | (should (= (comp-tests-length-f) 3))) |
| 87 | 87 | ||
| 88 | (ert-deftest comp-tests-aref () | ||
| 89 | "Testing aref." | ||
| 90 | (defun comp-tests-aref-f () | ||
| 91 | (aref [1 2 3] 2)) | ||
| 92 | (byte-compile #'comp-tests-aref-f) | ||
| 93 | (native-compile #'comp-tests-aref-f) | ||
| 94 | |||
| 95 | (should (= (comp-tests-aref-f) 3))) | ||
| 96 | |||
| 88 | (ert-deftest comp-tests-ffuncall () | 97 | (ert-deftest comp-tests-ffuncall () |
| 89 | "Testing varset." | 98 | "Testing varset." |
| 90 | (defun comp-tests-ffuncall-callee-f (x y z) | 99 | (defun comp-tests-ffuncall-callee-f (x y z) |