colors: merge colors.constants and colors.hex.

[factor.git] / basis / colors / hsl / hsl-tests.factor

diff --git a/basis/colors/hsl/hsl-tests.factor b/basis/colors/hsl/hsl-tests.factor
index 07372ac33a4fc8b2933897d04e4d9bb2bfd218bf..6ca0a5a75a011bd958f5bbe556288a563af00c51 100644 (file)
--- a/basis/colors/hsl/hsl-tests.factor
+++ b/basis/colors/hsl/hsl-tests.factor
@@ -8,9 +8,7 @@ ranges sequences tools.test ;
     0.0 1.0 0.1 <range> [| r |
         0.0 1.0 0.1 <range> [| g |
             0.0 1.0 0.1 <range> [| b |
-                r g b 1.0 <rgba> dup >hsla >rgba
-                [ >rgba-components 4array ] bi@
-                [ 0.00000001 ~ ] 2all?
+                r g b 1.0 <rgba> dup >hsla color=
             ] all?
         ] all?
     ] all?