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

add comp-test-silly-frame2 to test funcs

Browse source
This commit is contained in:
Andrea Corallo 2019-10-05 16:05:37 +02:00
parent f8a454f3ef
commit 4cc1374786
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/src/comp-test-funcs.el
View file

@ -340,8 +340,8 @@
;; Non tested functions that proved just to be difficult to compile.
(defun comp-test-callee (_ _) t)
(defun comp-test-silly-frame (x)
(defun comp-test-callee (_ __) t)
(defun comp-test-silly-frame1 (x)
(cl-case x
(0 (comp-test-callee
(pcase comp-tests-var1
@ -349,4 +349,10 @@
(2 2))
3))))
(defun comp-test-silly-frame2 (token)
(while c
(cl-case c
(?< 1)
(?> 2))))
;;; comp-test-funcs.el ends here