From 0cbe9c204e938977fef12dd4cc47d43a702ebfa9 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 5 Oct 2019 14:51:56 +0200 Subject: [PATCH] add comp-test-silly-frame to tests --- test/src/comp-test-funcs.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el index e43db6973b7..3d8d3437bda 100644 --- a/test/src/comp-test-funcs.el +++ b/test/src/comp-test-funcs.el @@ -338,4 +338,15 @@ (setq comp-test-up-val 24)) (setq comp-test-up-val 999))) +;; Non tested functions that proved just to be difficult to compile. + +(defun comp-test-callee (_ _) t) +(defun comp-test-silly-frame (x) + (cl-case x + (0 (comp-test-callee + (pcase comp-tests-var1 + (1 1) + (2 2)) + 3)))) + ;;; comp-test-funcs.el ends here -- 2.39.5