1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# $Id: 11_import_object.t,v 1.3 2005/09/24 17:36:28 cfaerber Exp $
#
use Test::More tests => 13;
use Color::Calc( 'OutputFormat' => 'object' );
SKIP: {
eval { require Graphics::ColorObject; };
skip "Graphics::ColorObject not installed", 13 if $@;
is(lc color_get ('red')->as_RGBhex, 'ff0000');
is(lc color ('red')->as_RGBhex, 'ff0000');
is(lc color_mix ('red','blue')->as_RGBhex, '800080');
is(lc color_blend_bw ('red')->as_RGBhex, 'ff8080');
is(lc color_blend ('red')->as_RGBhex, '808080');
is(lc color_bw ('red')->as_RGBhex, '4d4d4d');
is(lc color_contrast_bw ('red')->as_RGBhex, 'ffffff');
is(lc color_contrast ('red')->as_RGBhex, '00ffff');
is(lc color_dark ('red')->as_RGBhex, '800000');
is(lc color_gray ('red')->as_RGBhex, '4d4d4d');
is(lc color_grey ('red')->as_RGBhex, '4d4d4d');
is(lc color_invert ('red')->as_RGBhex, '00ffff');
is(lc color_light ('red')->as_RGBhex, 'ff8080');
}
|
