1use Test::More tests => (12*4) + 1; 2use Test::NoWarnings; 3use Color::Calc(); 4 5is(Color::Calc::get_hex ('red'), 'ff0000'); 6is(Color::Calc::mix_hex ('red','blue'), '800080'); 7 8is(Color::Calc::blend_bw_hex ('red'), 'ff8080'); 9is(Color::Calc::blend_hex ('red'), '808080'); 10is(Color::Calc::bw_hex ('red'), '4d4d4d'); 11is(Color::Calc::contrast_bw_hex ('red'), 'ffffff'); 12is(Color::Calc::contrast_hex ('red'), '00ffff'); 13is(Color::Calc::dark_hex ('red'), '800000'); 14is(Color::Calc::gray_hex ('red'), '4d4d4d'); 15is(Color::Calc::grey_hex ('red'), '4d4d4d'); 16is(Color::Calc::invert_hex ('red'), '00ffff'); 17is(Color::Calc::light_hex ('red'), 'ff8080'); 18 19is(Color::Calc::get_html ('F00'), 'red'); 20is(Color::Calc::mix_html ('red','blue'), 'purple'); 21 22is(Color::Calc::blend_bw_html ('red'), '#ff8080'); 23is(Color::Calc::blend_html ('red'), 'gray'); 24is(Color::Calc::bw_html ('red'), '#4d4d4d'); 25is(Color::Calc::contrast_bw_html ('red'), 'white'); 26is(Color::Calc::contrast_html ('red'), 'aqua'); 27is(Color::Calc::dark_html ('red'), 'maroon'); 28is(Color::Calc::gray_html ('red'), '#4d4d4d'); 29is(Color::Calc::grey_html ('red'), '#4d4d4d'); 30is(Color::Calc::invert_html ('red'), 'aqua'); 31is(Color::Calc::light_html ('red'), '#ff8080'); 32 33SKIP: { 34eval { require Graphics::ColorObject; }; 35skip "Graphics::ColorObject not installed", 12 if $@; 36 37is(lc Color::Calc::get_object ('red')->as_RGBhex, 'ff0000'); 38is(lc Color::Calc::mix_object ('red','blue')->as_RGBhex, '800080'); 39 40is(lc Color::Calc::blend_bw_object ('red')->as_RGBhex, 'ff8080'); 41is(lc Color::Calc::blend_object ('red')->as_RGBhex, '808080'); 42is(lc Color::Calc::bw_object ('red')->as_RGBhex, '4d4d4d'); 43is(lc Color::Calc::contrast_bw_object ('red')->as_RGBhex, 'ffffff'); 44is(lc Color::Calc::contrast_object ('red')->as_RGBhex, '00ffff'); 45is(lc Color::Calc::dark_object ('red')->as_RGBhex, '800000'); 46is(lc Color::Calc::gray_object ('red')->as_RGBhex, '4d4d4d'); 47is(lc Color::Calc::grey_object ('red')->as_RGBhex, '4d4d4d'); 48is(lc Color::Calc::invert_object ('red')->as_RGBhex, '00ffff'); 49is(lc Color::Calc::light_object ('red')->as_RGBhex, 'ff8080'); 50} 51 52is(join(',',Color::Calc::get_tuple ('red')), '0255,0,0'); 53is(join(',',Color::Calc::mix_tuple ('red','blue')), '0128,0,0128'); 54 55is(join(',',Color::Calc::blend_bw_tuple ('red')), '0255,0128,0128'); 56is(join(',',Color::Calc::blend_tuple ('red')), '0128,0128,0128'); 57is(join(',',Color::Calc::bw_tuple ('red')), '77,77,77'); 58is(join(',',Color::Calc::contrast_bw_tuple ('red')), '0255,0255,0255'); 59is(join(',',Color::Calc::contrast_tuple ('red')), '0,0255,0255'); 60is(join(',',Color::Calc::dark_tuple ('red')), '0128,0,0'); 61is(join(',',Color::Calc::gray_tuple ('red')), '77,77,77'); 62is(join(',',Color::Calc::grey_tuple ('red')), '77,77,77'); 63is(join(',',Color::Calc::invert_tuple ('red')), '0,0255,0255'); 64is(join(',',Color::Calc::light_tuple ('red')), '0255,0128,0128'); 65