factor: trim using lists

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

diff --git a/basis/colors/yiq/yiq-tests.factor b/basis/colors/yiq/yiq-tests.factor
index dbb5b3f5b2549e744fe8913518d24ee12bf61fa0..46360cf35ce30b06ca077819ea2a2094978bdbe5 100644 (file)
--- a/basis/colors/yiq/yiq-tests.factor
+++ b/basis/colors/yiq/yiq-tests.factor
@@ -1,16 +1,14 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors colors.yiq kernel locals math.functions
-math.ranges sequences tools.test ;
+USING: arrays colors colors.yiq kernel math.functions
+ranges sequences tools.test ;
 
 { t } [
     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 >yiqa >rgba
-                [ >rgba-components 4array ] bi@
-                [ 0.00000001 ~ ] 2all?
+                r g b 1.0 <rgba> dup >yiqa color=
             ] all?
         ] all?
     ] all?