diff options
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) |