diff options
| author | Andrea Corallo | 2019-07-13 15:48:02 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:52 +0100 |
| commit | 73cb29c3fb6d56f32f77ec201f9b61ac77e57290 (patch) | |
| tree | 24b08129fdf8fce7d8d07a2f300ec93be5b57c94 /test/src | |
| parent | 973a7b149f1362c4201d38bffeabbf857e7bb6d5 (diff) | |
| download | emacs-73cb29c3fb6d56f32f77ec201f9b61ac77e57290.tar.gz emacs-73cb29c3fb6d56f32f77ec201f9b61ac77e57290.zip | |
varset support 5 test passing
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 0aea66f974b..64edddf4c04 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -95,23 +95,23 @@ | |||
| 95 | (should (= (comp-tests-cons-car-f) 1)) | 95 | (should (= (comp-tests-cons-car-f) 1)) |
| 96 | (should (= (comp-tests-cons-cdr-f 3) 3))) | 96 | (should (= (comp-tests-cons-cdr-f 3) 3))) |
| 97 | 97 | ||
| 98 | ;; (ert-deftest comp-tests-varset () | 98 | (ert-deftest comp-tests-varset () |
| 99 | ;; "Testing varset." | 99 | "Testing varset." |
| 100 | ;; (defun comp-tests-varset-f () | 100 | (defun comp-tests-varset-f () |
| 101 | ;; (setq comp-tests-var1 55)) | 101 | (setq comp-tests-var1 55)) |
| 102 | ;; (native-compile #'comp-tests-varset-f) | 102 | (native-compile #'comp-tests-varset-f) |
| 103 | 103 | ||
| 104 | ;; (comp-tests-varset-f) | 104 | (comp-tests-varset-f) |
| 105 | 105 | ||
| 106 | ;; (should (= comp-tests-var1 55))) | 106 | (should (= comp-tests-var1 55))) |
| 107 | 107 | ||
| 108 | ;; (ert-deftest comp-tests-length () | 108 | (ert-deftest comp-tests-length () |
| 109 | ;; "Testing length." | 109 | "Testing length." |
| 110 | ;; (defun comp-tests-length-f () | 110 | (defun comp-tests-length-f () |
| 111 | ;; (length '(1 2 3))) | 111 | (length '(1 2 3))) |
| 112 | ;; (native-compile #'comp-tests-length-f) | 112 | (native-compile #'comp-tests-length-f) |
| 113 | 113 | ||
| 114 | ;; (should (= (comp-tests-length-f) 3))) | 114 | (should (= (comp-tests-length-f) 3))) |
| 115 | 115 | ||
| 116 | ;; (ert-deftest comp-tests-aref-aset () | 116 | ;; (ert-deftest comp-tests-aref-aset () |
| 117 | ;; "Testing aref and aset." | 117 | ;; "Testing aref and aset." |