compat-tests--color-approx-equal: Fix naming convention

1 files changed, 15 insertions, 15 deletions

diff --git a/compat-tests.el b/compat-tests.el
index baba1c2..b36eef8 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -2682,44 +2682,44 @@
   (should-not (color-values-from-color-spec "rgbi : 0/0/0"))
   (should-not (color-values-from-color-spec "rgbi:0/0.5/10")))
 
-(defun compat--color-approx-equal (color1 color2)
+(defun compat-tests--color-approx-equal (color1 color2)
   "Return t if COLOR1 and COLOR2 are approximately equal."
   (seq-every-p
    (lambda (x) (< (abs x) 0.00001))
    (cl-mapcar #'- color1 color2)))
 
 (ert-deftest compat-color-oklab-to-xyz ()
-  (should (compat--color-approx-equal (compat-call color-oklab-to-xyz 0 0 0) '(0.0 0.0 0.0)))
-  (should (compat--color-approx-equal (compat-call color-oklab-to-xyz 1.0 0.0 0.0)
+  (should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 0 0 0) '(0.0 0.0 0.0)))
+  (should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 1.0 0.0 0.0)
                                      '(0.95047005 1.0 1.0883001)))
-  (should (compat--color-approx-equal (compat-call color-oklab-to-xyz 0.450 1.236 -0.019) '(1.000604 -0.000008 -0.000038)))
-  (should (compat--color-approx-equal (compat-call color-oklab-to-xyz 0.922 -0.671 0.263) '(0.000305 1.000504 0.000898)))
-  (should (compat--color-approx-equal (compat-call color-oklab-to-xyz 0.153 -1.415 -0.449) '(0.000590 0.000057 1.001650))))
+  (should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 0.450 1.236 -0.019) '(1.000604 -0.000008 -0.000038)))
+  (should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 0.922 -0.671 0.263) '(0.000305 1.000504 0.000898)))
+  (should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 0.153 -1.415 -0.449) '(0.000590 0.000057 1.001650))))
 
 (ert-deftest compat-color-xyz-to-oklab ()
-  (should (compat--color-approx-equal (compat-call color-xyz-to-oklab 0 0 0) '(0.0 0.0 0.0)))
-  (should (compat--color-approx-equal (compat-call color-xyz-to-oklab 0.95 1.0 1.089)
+  (should (compat-tests--color-approx-equal (compat-call color-xyz-to-oklab 0 0 0) '(0.0 0.0 0.0)))
+  (should (compat-tests--color-approx-equal (compat-call color-xyz-to-oklab 0.95 1.0 1.089)
                                      '(0.999969 -0.000258 -0.000115)))
-  (should (compat--color-approx-equal (compat-call color-xyz-to-oklab 1.0 0.0 0.0)
+  (should (compat-tests--color-approx-equal (compat-call color-xyz-to-oklab 1.0 0.0 0.0)
                                      '(0.449932 1.235710 -0.019028)))
-  (should (compat--color-approx-equal (compat-call color-xyz-to-oklab 0.0 1.0 0.0)
+  (should (compat-tests--color-approx-equal (compat-call color-xyz-to-oklab 0.0 1.0 0.0)
                                      '(0.921817 -0.671238 0.263324)))
-  (should (compat--color-approx-equal (compat-call color-xyz-to-oklab 0.0 0.0 1.0)
+  (should (compat-tests--color-approx-equal (compat-call color-xyz-to-oklab 0.0 0.0 1.0)
                                      '(0.152603 -1.414997 -0.448927))))
 
 (ert-deftest compat-color-srgb-to-oklab ()
   (should (equal (compat-call color-srgb-to-oklab 0 0 0) '(0.0 0.0 0.0)))
   (should
-   (compat--color-approx-equal (compat-call color-srgb-to-oklab 0 0 1) '(0.451978 -0.032430 -0.311611)))
+   (compat-tests--color-approx-equal (compat-call color-srgb-to-oklab 0 0 1) '(0.451978 -0.032430 -0.311611)))
   (should
-   (compat--color-approx-equal (compat-call color-srgb-to-oklab 0.1 0.2 0.3) '(0.313828 -0.019091 -0.052561))))
+   (compat-tests--color-approx-equal (compat-call color-srgb-to-oklab 0.1 0.2 0.3) '(0.313828 -0.019091 -0.052561))))
 
 (ert-deftest compat-color-oklab-to-srgb ()
   (should (equal (compat-call color-oklab-to-srgb 0 0 0) '(0.0 0.0 0.0)))
   (should
-   (compat--color-approx-equal (compat-call color-oklab-to-srgb 0.451978 -0.032430 -0.311611) '(0.0 0.0 1.0)))
+   (compat-tests--color-approx-equal (compat-call color-oklab-to-srgb 0.451978 -0.032430 -0.311611) '(0.0 0.0 1.0)))
   (should
-   (compat--color-approx-equal (compat-call color-oklab-to-srgb 0.313828 -0.019091 -0.052561) '(0.1 0.2 0.3))))
+   (compat-tests--color-approx-equal (compat-call color-oklab-to-srgb 0.313828 -0.019091 -0.052561) '(0.1 0.2 0.3))))
 
 (ert-deftest compat-lookup-key ()
   (let ((a-map (make-sparse-keymap))