From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 5 Oct 2019 12:51:56 +0000 (+0200)
Subject: add comp-test-silly-frame to tests
X-Git-Tag: emacs-28.0.90~2727^2~1093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0cbe9c204e938977fef12dd4cc47d43a702ebfa9;p=emacs.git

add comp-test-silly-frame to tests
---

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