From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 21 Jul 2019 07:50:18 +0000 (+0200)
Subject: bubble sort works again
X-Git-Tag: emacs-28.0.90~2727^2~1329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7726cb254503c2c3d082ffb8aed9c12cbeeec12e;p=emacs.git

bubble sort works again
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index e2a9b1ce49c..4462f35246a 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -334,26 +334,26 @@
                    (error err))
                  '(wrong-type-argument consp 3))))
 
-;; (ert-deftest comp-tests-bubble-sort ()
-;;   "Run bubble sort."
-;;   (defun comp-bubble-sort-f (list)
-;;     (let ((i (length list)))
-;;       (while (> i 1)
-;;         (let ((b list))
-;;           (while (cdr b)
-;;             (when (< (cadr b) (car b))
-;;               (setcar b (prog1 (cadr b)
-;;                           (setcdr b (cons (car b) (cddr b))))))
-;;             (setq b (cdr b))))
-;;         (setq i (1- i)))
-;;       list))
-
-;;   (native-compile #'comp-bubble-sort-f)
-
-;;   (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
-;;          (list2 (copy-sequence list1)))
-;;     (should (equal (comp-bubble-sort-f list1)
-;;                    (sort list2 #'<)))))
+(ert-deftest comp-tests-bubble-sort ()
+  "Run bubble sort."
+  (defun comp-bubble-sort-f (list)
+    (let ((i (length list)))
+      (while (> i 1)
+        (let ((b list))
+          (while (cdr b)
+            (when (< (cadr b) (car b))
+              (setcar b (prog1 (cadr b)
+                          (setcdr b (cons (car b) (cddr b))))))
+            (setq b (cdr b))))
+        (setq i (1- i)))
+      list))
+
+  (native-compile #'comp-bubble-sort-f)
+
+  (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
+         (list2 (copy-sequence list1)))
+    (should (equal (comp-bubble-sort-f list1)
+                   (sort list2 #'<)))))
 
 (ert-deftest comp-tests-list-inline ()
   "Test some inlined list functions."