basis/colors/hsl/hsl-tests.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: arrays colors colors.hsl kernel math.functions
   5 ranges sequences tools.test ;
   6
   7 { t } [
   8     0.0 1.0 0.1 <range> [| r |
   9         0.0 1.0 0.1 <range> [| g |
  10             0.0 1.0 0.1 <range> [| b |
  11                 r g b 1.0 <rgba> dup >hsla color=
  12             ] all?
  13         ] all?
  14     ] all?
  15 ] unit-test