uncomment test

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 938bf53c014527ce7f23f07816bc2192c641bdb1..e2a9b1ce49c971f35fe894e8b88126f81b919b93 100644 (file)
--- 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."