Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

add primitve call test

Browse source
This commit is contained in:
Andrea Corallo 2019-06-30 17:42:30 +02:00 committed by Andrea Corallo
parent c4b003f3c8
commit aa312e07b7
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/src/comp-tests.el
View file

@ -153,15 +153,25 @@
(should (string= (comp-tests-concat-f "bar") "abcdabcabfoobar")))
(ert-deftest comp-tests-ffuncall ()
"Testing varset."
"Test calling conventions."
(defun comp-tests-ffuncall-callee-f (x y z)
(list x y z))
(defun comp-tests-ffuncall-caller-f ()
(comp-tests-ffuncall-callee-f 1 2 3))
(byte-compile #'comp-tests-ffuncall-caller-f)
(native-compile #'comp-tests-ffuncall-caller-f)
(should (equal (comp-tests-ffuncall-caller-f) '(1 2 3))))
(should (equal (comp-tests-ffuncall-caller-f) '(1 2 3)))
(defun comp-tests-ffuncall-native-f ()
"Call a primitive with no dedicate op."
(make-vector 1 nil))
(byte-compile #'comp-tests-ffuncall-native-f)
(native-compile #'comp-tests-ffuncall-native-f)
(should (vectorp (comp-tests-ffuncall-native-f))))
(ert-deftest comp-tests-conditionals ()
"Testing conditionals."