diff options
| author | Andrea Corallo | 2019-05-24 14:01:45 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:37 +0100 |
| commit | 5a9d4d67043e86831df9c8b3dcb398c45b01bb06 (patch) | |
| tree | 404c2d7b6e1998140c2ca1f7d4e589bc553444ec /test/src | |
| parent | f4d2f75a0782c53bfb09b70bc75de3c974ae5002 (diff) | |
| download | emacs-5a9d4d67043e86831df9c8b3dcb398c45b01bb06.tar.gz emacs-5a9d4d67043e86831df9c8b3dcb398c45b01bb06.zip | |
add Blength
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 313f6906cda..32d5b50e13d 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -76,6 +76,15 @@ | |||
| 76 | 76 | ||
| 77 | (should (= comp-tests-var1 55))) | 77 | (should (= comp-tests-var1 55))) |
| 78 | 78 | ||
| 79 | (ert-deftest comp-tests-length () | ||
| 80 | "Testing length." | ||
| 81 | (defun comp-tests-length-f () | ||
| 82 | (length '(1 2 3))) | ||
| 83 | (byte-compile #'comp-tests-length-f) | ||
| 84 | (native-compile #'comp-tests-length-f) | ||
| 85 | |||
| 86 | (should (= (comp-tests-length-f) 3))) | ||
| 87 | |||
| 79 | (ert-deftest comp-tests-ffuncall () | 88 | (ert-deftest comp-tests-ffuncall () |
| 80 | "Testing varset." | 89 | "Testing varset." |
| 81 | (defun comp-tests-ffuncall-callee-f (x y z) | 90 | (defun comp-tests-ffuncall-callee-f (x y z) |