1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# $Id: 12_import_module_WWW.t,v 1.2 2005/04/09 20:49:59 cfaerber Exp $
#
use Test::More tests => 14;
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');
|
