diff options
| author | Andrea Corallo | 2019-06-30 20:53:59 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:48 +0100 |
| commit | 3fd19aecee00d8ac1b001ed7aebf9c4ff4f36001 (patch) | |
| tree | 0318b22701b554441e0f9a12d5c5c3a079e422ad /test/src | |
| parent | edb0acf2aec0f41832f7ef7d8199ddedb2c3e9d7 (diff) | |
| download | emacs-3fd19aecee00d8ac1b001ed7aebf9c4ff4f36001.tar.gz emacs-3fd19aecee00d8ac1b001ed7aebf9c4ff4f36001.zip | |
fix native call to MANY func
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index afb2a663c0b..42e10ba5114 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -171,7 +171,15 @@ | |||
| 171 | (byte-compile #'comp-tests-ffuncall-native-f) | 171 | (byte-compile #'comp-tests-ffuncall-native-f) |
| 172 | (native-compile #'comp-tests-ffuncall-native-f) | 172 | (native-compile #'comp-tests-ffuncall-native-f) |
| 173 | 173 | ||
| 174 | (should (vectorp (comp-tests-ffuncall-native-f)))) | 174 | (should (vectorp (comp-tests-ffuncall-native-f))) |
| 175 | |||
| 176 | (defun comp-tests-ffuncall-apply-many-f (x) | ||
| 177 | (apply #'list x)) | ||
| 178 | |||
| 179 | (byte-compile #'comp-tests-ffuncall-apply-many-f) | ||
| 180 | (native-compile #'comp-tests-ffuncall-apply-many-f) | ||
| 181 | |||
| 182 | (should (equal (comp-tests-ffuncall-apply-many-f '(1 2 3)) '(1 2 3)))) | ||
| 175 | 183 | ||
| 176 | (ert-deftest comp-tests-conditionals () | 184 | (ert-deftest comp-tests-conditionals () |
| 177 | "Testing conditionals." | 185 | "Testing conditionals." |