diff options
| author | Andrea Corallo | 2019-05-24 15:00:34 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:38 +0100 |
| commit | 17807af213da9eb08507d47dff142a1f8672b4e7 (patch) | |
| tree | 120830e80ff65eab993490a5fcb041594968f582 /test/src | |
| parent | bebd14acc1f646c79702fca4f7081df30a49a66c (diff) | |
| download | emacs-17807af213da9eb08507d47dff142a1f8672b4e7.tar.gz emacs-17807af213da9eb08507d47dff142a1f8672b4e7.zip | |
add symbol-value
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 769cd086b5a..36344d361fc 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -96,6 +96,17 @@ | |||
| 96 | 96 | ||
| 97 | (should (= (comp-tests-aref-aset-f) 100))) | 97 | (should (= (comp-tests-aref-aset-f) 100))) |
| 98 | 98 | ||
| 99 | (ert-deftest comp-tests-symbol-value () | ||
| 100 | "Testing aref and aset." | ||
| 101 | (defvar comp-tests-var2 3) | ||
| 102 | (defun comp-tests-symbol-value-f () | ||
| 103 | (symbol-value 'comp-tests-var2)) | ||
| 104 | (byte-compile #'comp-tests-symbol-value-f) | ||
| 105 | (native-compile #'comp-tests-symbol-value-f) | ||
| 106 | |||
| 107 | (should (= (comp-tests-symbol-value-f) 3))) | ||
| 108 | |||
| 109 | |||
| 99 | (ert-deftest comp-tests-ffuncall () | 110 | (ert-deftest comp-tests-ffuncall () |
| 100 | "Testing varset." | 111 | "Testing varset." |
| 101 | (defun comp-tests-ffuncall-callee-f (x y z) | 112 | (defun comp-tests-ffuncall-callee-f (x y z) |