fix: sort before comparing list of strings

cmpitg · Jul 6, 2015 · 29388a1 · 29388a1
1 parent 4984e96
commit 29388a1
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Ulquikit.adoc b/src/Ulquikit.adoc
@@ -784,12 +784,19 @@ extensible."
           (princ "Hello world" out))))
 
     (let ((adocs (get-all-adocs temppath)))
-      (is (equal expected adocs)))
+      (assert-equalp (sort expected #'(lambda (path1 path2)
+                                        (string< (namestring path1)
+                                                 (namestring path2))))
+                     (sort adocs #'(lambda (path1 path2)
+                                     (string< (namestring path1)
+                                              (namestring path2))))))
 
     ;; Tear down
     (cl-fad:delete-directory-and-files temppath
                                        :if-does-not-exist :ignore)))
 
+;; (run-tests)
+
 ----
 
 After +extract-snippets+, the next important function is +include-snippet+,