1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use Test::More tests => 14;
use Test::NoWarnings;
use Color::Calc( 'OutputFormat' => 'hex', 'ColorScheme' => 'WWW' );
is( color_safe('black'), '000000' );
is( color_safe('white'), 'ffffff' );
is( color_safe('green'), '008000' );
is( color_safe('maroon'), '800000' );
is( color_safe('silver'), 'c0c0c0' );
is( color_safe('#c6c6c6'), 'c0c0c0' );
is( color_safe('#c7c7c7'), 'cccccc' );
is( color_safe('#222222'), '333333' );
is( color_safe('#8F807F'), '808080' );
is( color_safe('#808080'), '808080' );
is( color_safe('#AABBEE'), 'b0c4de' );
is( color_safe('#08FC23'), '00ff33' );
is( color_safe('#3247CF'), '3333cc' );
|
