]> git.eshelyaron.com Git - emacs.git/commitdiff
bubble sort works again
authorAndrea Corallo <andrea_corallo@yahoo.it>
Sun, 21 Jul 2019 07:50:18 +0000 (09:50 +0200)
committerAndrea Corallo <akrl@sdf.org>
Wed, 1 Jan 2020 10:33:56 +0000 (11:33 +0100)
test/src/comp-tests.el

index e2a9b1ce49c971f35fe894e8b88126f81b919b93..4462f35246a434c86210ba224b05d4448722c9e0 100644 (file)
                    (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."