factor: trim using lists

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

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