basis/colors/colors-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors colors colors.private literals tools.test ;
   4
   5 { t } [ COLOR: light-green value>> rgba? ] unit-test
   6
   7 { T{ rgba f 0.0 0.0 0.0 1.0 } } [ COLOR: #000000 value>> ] unit-test
   8 { T{ rgba f 1.0 1.0 1.0 1.0 } } [ COLOR: #FFFFFF value>> ] unit-test
   9 ${ "abcdef" hex>rgba } [ COLOR: #abcdef value>> ] unit-test
  10 ${ "ABCDEF" hex>rgba } [ COLOR: #abcdef value>> ] unit-test
  11
  12 { T{ rgba f 0.0 0.0 0.0 0.0 } } [ COLOR: #00000000 value>> ] unit-test
  13 { T{ rgba f 1.0 0.0 0.0 0.0 } } [ COLOR: #FF000000 value>> ] unit-test
  14 { T{ rgba f 1.0 1.0 0.0 0.0 } } [ COLOR: #FFFF0000 value>> ] unit-test
  15 { T{ rgba f 1.0 1.0 1.0 0.0 } } [ COLOR: #FFFFFF00 value>> ] unit-test
  16 { T{ rgba f 1.0 1.0 1.0 1.0 } } [ COLOR: #FFFFFFFF value>> ] unit-test
  17
  18 ${ "cafebabe" hex>rgba } [ COLOR: #cafebabe value>> ] unit-test
  19 ${ "112233" hex>rgba } [ COLOR: #112233 value>> ] unit-test
  20 ${ "11223344" hex>rgba } [ COLOR: #11223344 value>> ] unit-test