1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use Test::More tests => 15;
use Test::NoWarnings;
use Color::Calc::WWW;
is(color_get ('F00'), 'red');
is(color_get ('green'), 'green');
is(color ('F00'), 'red');
is(color_mix ('red','blue'), 'purple');
is(color_blend_bw ('red'), '#ff8080');
is(color_blend ('red'), 'gray');
is(color_bw ('red'), '#4d4d4d');
is(color_contrast_bw ('red'), 'white');
is(color_contrast ('red'), 'aqua');
is(color_dark ('red'), 'maroon');
is(color_gray ('red'), '#4d4d4d');
is(color_grey ('red'), '#4d4d4d');
is(color_invert ('red'), 'aqua');
is(color_light ('red'), '#ff8080');
|
