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