From fb9711df98be83c357321761d06e902e5410da79 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Thu, 18 Jul 2019 17:57:01 +0200
Subject: [PATCH] uncommenting some tests

---
 test/src/comp-tests.el | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index e27e585ea50..d11cf8657c6 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -168,38 +168,37 @@
   ;; (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3) '(1 2 (3))))
   ;; (should (equal (comp-tests-ffuncall-callee-rest-f 1 2 3 4) '(1 2 (3 4))))
 
-  ;; (defun comp-tests-ffuncall-native-f ()
-  ;;   "Call a primitive with no dedicate op."
-  ;;   (make-vector 1 nil))
+  (defun comp-tests-ffuncall-native-f ()
+    "Call a primitive with no dedicate op."
+    (make-vector 1 nil))
 
-  ;; (native-compile #'comp-tests-ffuncall-native-f)
+  (native-compile #'comp-tests-ffuncall-native-f)
 
-  ;; (should (equal (comp-tests-ffuncall-native-f) [nil]))
+  (should (equal (comp-tests-ffuncall-native-f) [nil]))
 
-  ;; (defun comp-tests-ffuncall-native-rest-f ()
-  ;;   "Call a primitive with no dedicate op with &rest."
-  ;;   (vector 1 2 3))
+  (defun comp-tests-ffuncall-native-rest-f ()
+    "Call a primitive with no dedicate op with &rest."
+    (vector 1 2 3))
 
-  ;; (native-compile #'comp-tests-ffuncall-native-rest-f)
+  (native-compile #'comp-tests-ffuncall-native-rest-f)
 
-  ;; (should (equal (comp-tests-ffuncall-native-rest-f) [1 2 3]))
+  (should (equal (comp-tests-ffuncall-native-rest-f) [1 2 3]))
 
-  ;; (defun comp-tests-ffuncall-apply-many-f (x)
-  ;;   (apply #'list x))
+  (defun comp-tests-ffuncall-apply-many-f (x)
+    (apply #'list x))
 
-  ;; (native-compile #'comp-tests-ffuncall-apply-many-f)
+  (native-compile #'comp-tests-ffuncall-apply-many-f)
 
-  ;; (should (equal (comp-tests-ffuncall-apply-many-f '(1 2 3)) '(1 2 3)))
+  (should (equal (comp-tests-ffuncall-apply-many-f '(1 2 3)) '(1 2 3)))
 
-  ;; (defun comp-tests-ffuncall-lambda-f (x)
-  ;;   (let ((fun (lambda (x)
-  ;;                (1+ x))))
-  ;;     (funcall fun x)))
+  (defun comp-tests-ffuncall-lambda-f (x)
+    (let ((fun (lambda (x)
+                 (1+ x))))
+      (funcall fun x)))
 
-  ;; (native-compile #'comp-tests-ffuncall-lambda-f)
+  (native-compile #'comp-tests-ffuncall-lambda-f)
 
-  ;; (should (= (comp-tests-ffuncall-lambda-f 1) 2))
-  )
+  (should (= (comp-tests-ffuncall-lambda-f 1) 2)))
 
 ;; (ert-deftest  comp-tests-jump-table ()
 ;;   "Testing jump tables"
-- 
2.39.5