diff options
| author | Andrea Corallo | 2019-08-03 17:08:55 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:56 +0100 |
| commit | bebe5a9791f7db3f088e0c07b2fd68e1d21bb161 (patch) | |
| tree | 28ca1049e1c34459e85a40caa832747b583716d2 /test/src | |
| parent | 79f7d40fa850806450621f2fa4c73974399bd7f9 (diff) | |
| download | emacs-bebe5a9791f7db3f088e0c07b2fd68e1d21bb161.tar.gz emacs-bebe5a9791f7db3f088e0c07b2fd68e1d21bb161.zip | |
add limple switch support
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index ed3a9b2f9d0..58846ed50d0 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -200,18 +200,19 @@ | |||
| 200 | 200 | ||
| 201 | (should (= (comp-tests-ffuncall-lambda-f 1) 2))) | 201 | (should (= (comp-tests-ffuncall-lambda-f 1) 2))) |
| 202 | 202 | ||
| 203 | ;; (ert-deftest comp-tests-jump-table () | 203 | (ert-deftest comp-tests-jump-table () |
| 204 | ;; "Testing jump tables" | 204 | "Testing jump tables" |
| 205 | ;; (defun comp-tests-jump-table-1-f (x) | 205 | (defun comp-tests-jump-table-1-f (x) |
| 206 | ;; (pcase x | 206 | (pcase x |
| 207 | ;; ('x 'a) | 207 | ('x 'a) |
| 208 | ;; ('y 'b) | 208 | ('y 'b) |
| 209 | ;; (_ 'c))) | 209 | (_ 'c))) |
| 210 | 210 | ||
| 211 | 211 | (native-compile #'comp-tests-jump-table-1-f) | |
| 212 | ;; (should (eq (comp-tests-jump-table-1-f 'x) 'a)) | 212 | |
| 213 | ;; (should (eq (comp-tests-jump-table-1-f 'y) 'b)) | 213 | (should (eq (comp-tests-jump-table-1-f 'x) 'a)) |
| 214 | ;; (should (eq (comp-tests-jump-table-1-f 'xxx) 'c))) | 214 | (should (eq (comp-tests-jump-table-1-f 'y) 'b)) |
| 215 | (should (eq (comp-tests-jump-table-1-f 'xxx) 'c))) | ||
| 215 | 216 | ||
| 216 | (ert-deftest comp-tests-conditionals () | 217 | (ert-deftest comp-tests-conditionals () |
| 217 | "Testing conditionals." | 218 | "Testing conditionals." |