File: color_opposite.t

package info (click to toggle)
libcolor-calc-perl 1.074-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 320 kB
  • sloc: perl: 399; makefile: 7
file content (25 lines) | stat: -rw-r--r-- 754 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use Test::More tests => 16;
use Test::NoWarnings;

use Color::Calc( 'OutputFormat' => 'hex', 'ColorScheme' => 'WWW' );

is( color_opposite('black'),	'000000' );
is( color_opposite('white'),	'ffffff' );

is( color_opposite('008000'),	'800080' );
is( color_opposite('800000'),	'008080' );
is( color_opposite('000080'),	'808000' );

is( color_opposite('008080'),	'800000' );
is( color_opposite('800080'),	'008000' );
is( color_opposite('808000'),	'000080' );

is( color_opposite('22cc22'),	'cc22cc' );
is( color_opposite('cc2222'),	'22cccc' );
is( color_opposite('2222cc'),	'cccc22' );

is( color_opposite('66ffff'),	'ff6666' );
is( color_opposite('ff66ff'),	'66ff66' );
is( color_opposite('ffff66'),	'6666ff' );

is( color_opposite('#3247CF'),	'cfba32' );