basis/colors/hex/hex-tests.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: colors colors.hex tools.test ;
   4
   5 { HEXCOLOR: 000000 } [ 0.0 0.0 0.0 1.0 <rgba> ] unit-test
   6 { HEXCOLOR: FFFFFF } [ 1.0 1.0 1.0 1.0 <rgba> ] unit-test
   7 { HEXCOLOR: abcdef } [ "abcdef" hex>rgba ] unit-test
   8 { HEXCOLOR: abcdef } [ "ABCDEF" hex>rgba ] unit-test
   9 { "ABCDEF" } [ HEXCOLOR: abcdef rgba>hex ] unit-test
  10
  11 { HEXCOLOR: 00000000 } [ 0.0 0.0 0.0 0.0 <rgba> ] unit-test
  12 { HEXCOLOR: FF000000 } [ 1.0 0.0 0.0 0.0 <rgba> ] unit-test
  13 { HEXCOLOR: FFFF0000 } [ 1.0 1.0 0.0 0.0 <rgba> ] unit-test
  14 { HEXCOLOR: FFFFFF00 } [ 1.0 1.0 1.0 0.0 <rgba> ] unit-test
  15 { HEXCOLOR: FFFFFFFF } [ 1.0 1.0 1.0 1.0 <rgba> ] unit-test
  16
  17 { HEXCOLOR: cafebabe } [ "cafebabe" hex>rgba ] unit-test
  18 { HEXCOLOR: 112233 } [ "123" hex>rgba ] unit-test
  19 { HEXCOLOR: 11223344 } [ "1234" hex>rgba ] unit-test