From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 20 Jul 2019 16:50:52 +0000 (+0200)
Subject: uncomment test
X-Git-Tag: emacs-28.0.90~2727^2~1333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80826b8220c6f26609ce916ceee3a0bd143a1b41;p=emacs.git

uncomment test
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 938bf53c014..e2a9b1ce49c 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -394,27 +394,27 @@
   (should (eq (comp-tests-numberp-f 'a) nil))
   (should (eq (comp-tests-numberp-f 3.5) t)))
 
-;; (ert-deftest comp-tests-stack ()
-;;   "Test some stack operation."
-;;   (defun comp-tests-discardn-f (x)
-;;     ;; BdiscardN
-;;     (1+ (let ((a 1)
-;;             (_b)
-;;             (_c))
-;;           a)))
-;;   (defun comp-tests-insertn-f (a b c d)
-;;     ;; Binsert
-;;     (insert a b c d))
-
-;;   (native-compile #'comp-tests-discardn-f)
-;;   (native-compile #'comp-tests-insertn-f)
-
-;;   (should (= (comp-tests-discardn-f 10) 2))
-
-;;   (should (string= (with-temp-buffer
-;;                       (comp-tests-insertn-f "a" "b" "c" "d")
-;;                       (buffer-string))
-;;                    "abcd")))
+(ert-deftest comp-tests-stack ()
+  "Test some stack operation."
+  (defun comp-tests-discardn-f (x)
+    ;; BdiscardN
+    (1+ (let ((a 1)
+            (_b)
+            (_c))
+          a)))
+  (defun comp-tests-insertn-f (a b c d)
+    ;; Binsert
+    (insert a b c d))
+
+  (native-compile #'comp-tests-discardn-f)
+  (native-compile #'comp-tests-insertn-f)
+
+  (should (= (comp-tests-discardn-f 10) 2))
+
+  (should (string= (with-temp-buffer
+                      (comp-tests-insertn-f "a" "b" "c" "d")
+                      (buffer-string))
+                   "abcd")))
 
 ;; (ert-deftest comp-tests-non-locals ()
 ;;   "Test non locals."