diff options
| author | Andrea Corallo | 2019-05-24 16:57:55 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:38 +0100 |
| commit | a5524504164ed9077984b90ecf5067d1e8bcbdb2 (patch) | |
| tree | ec819df1a351fc70f683b75b96e4057bbd80edfc /test/src | |
| parent | 2a5c81a5c92d15e8db471d16f3a014a338f9c271 (diff) | |
| download | emacs-a5524504164ed9077984b90ecf5067d1e8bcbdb2.tar.gz emacs-a5524504164ed9077984b90ecf5067d1e8bcbdb2.zip | |
add concat
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 36344d361fc..006336393dd 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -106,6 +106,15 @@ | |||
| 106 | 106 | ||
| 107 | (should (= (comp-tests-symbol-value-f) 3))) | 107 | (should (= (comp-tests-symbol-value-f) 3))) |
| 108 | 108 | ||
| 109 | (ert-deftest comp-tests-concat () | ||
| 110 | "Testing concatX opcodes." | ||
| 111 | (defun comp-tests-concat-f (x) | ||
| 112 | (concat "a" "b" "c" "d" | ||
| 113 | (concat "a" "b" "c" (concat "a" "b" (concat "foo" x))))) | ||
| 114 | (byte-compile #'comp-tests-concat-f) | ||
| 115 | (native-compile #'comp-tests-concat-f) | ||
| 116 | |||
| 117 | (should (string= (comp-tests-concat-f "bar") "abcdabcabfoobar"))) | ||
| 109 | 118 | ||
| 110 | (ert-deftest comp-tests-ffuncall () | 119 | (ert-deftest comp-tests-ffuncall () |
| 111 | "Testing varset." | 120 | "Testing varset." |