diff options
| author | Andrea Corallo | 2019-07-14 10:57:46 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:53 +0100 |
| commit | ac297b67bb5fbd4488023ca693a1dc62f012da5d (patch) | |
| tree | 87b92484007daccd6b2cc6cec4024d7e6349e9c2 /test/src | |
| parent | 210a3c0b3ad2a944bfed4e87a5039a9e4e14329a (diff) | |
| download | emacs-ac297b67bb5fbd4488023ca693a1dc62f012da5d.tar.gz emacs-ac297b67bb5fbd4488023ca693a1dc62f012da5d.zip | |
concat support
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 1030900752d..d3b2929abfc 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -132,14 +132,14 @@ | |||
| 132 | 132 | ||
| 133 | (should (= (comp-tests-symbol-value-f) 3))) | 133 | (should (= (comp-tests-symbol-value-f) 3))) |
| 134 | 134 | ||
| 135 | ;; (ert-deftest comp-tests-concat () | 135 | (ert-deftest comp-tests-concat () |
| 136 | ;; "Testing concatX opcodes." | 136 | "Testing concatX opcodes." |
| 137 | ;; (defun comp-tests-concat-f (x) | 137 | (defun comp-tests-concat-f (x) |
| 138 | ;; (concat "a" "b" "c" "d" | 138 | (concat "a" "b" "c" "d" |
| 139 | ;; (concat "a" "b" "c" (concat "a" "b" (concat "foo" x))))) | 139 | (concat "a" "b" "c" (concat "a" "b" (concat "foo" x))))) |
| 140 | ;; (native-compile #'comp-tests-concat-f) | 140 | (native-compile #'comp-tests-concat-f) |
| 141 | 141 | ||
| 142 | ;; (should (string= (comp-tests-concat-f "bar") "abcdabcabfoobar"))) | 142 | (should (string= (comp-tests-concat-f "bar") "abcdabcabfoobar"))) |
| 143 | 143 | ||
| 144 | ;; (ert-deftest comp-tests-ffuncall () | 144 | ;; (ert-deftest comp-tests-ffuncall () |
| 145 | ;; "Test calling conventions." | 145 | ;; "Test calling conventions." |