1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8use Convert::Color::CMYK;
9
10my $red = Convert::Color::CMYK->new( 0, 1, 1, 0 );
11
12my $red_rgb = $red->convert_to("rgb");
13is( $red_rgb->red,   1, 'red red' );
14is( $red_rgb->green, 0, 'red green' );
15is( $red_rgb->blue,  0, 'red blue' );
16
17my $red_cmy = $red->convert_to("cmy");
18is( $red_cmy->cyan,    0, 'red cyan' );
19is( $red_cmy->magenta, 1, 'red magenta' );
20is( $red_cmy->yellow,  1, 'red yellow' );
21
22my $green = Convert::Color::CMYK->new( 1, 0, 1, 0 );
23
24my $green_rgb = $green->convert_to("rgb");
25is( $green_rgb->red,   0, 'green red' );
26is( $green_rgb->green, 1, 'green green' );
27is( $green_rgb->blue,  0, 'green blue' );
28
29my $blue = Convert::Color::CMYK->new( 1, 1, 0, 0 );
30
31my $blue_rgb = $blue->convert_to("rgb");
32is( $blue_rgb->red,   0, 'blue red' );
33is( $blue_rgb->green, 0, 'blue green' );
34is( $blue_rgb->blue,  1, 'blue blue' );
35
36my $white = Convert::Color::CMYK->new( 0, 0, 0, 0 );
37
38my $white_rgb = $white->as_rgb;
39is( $white_rgb->red,   1, 'white red' );
40is( $white_rgb->green, 1, 'white green' );
41is( $white_rgb->blue,  1, 'white blue' );
42
43my $black = Convert::Color::CMYK->new( 0, 0, 0, 1 );
44
45my $black_rgb = $black->as_rgb;
46is( $black_rgb->red,   0, 'black red' );
47is( $black_rgb->green, 0, 'black green' );
48is( $black_rgb->blue,  0, 'black blue' );
49
50my $black_cmy = $black->as_cmy;
51is( $black_cmy->cyan,    1, 'black cyan' );
52is( $black_cmy->magenta, 1, 'black magenta' );
53is( $black_cmy->yellow,  1, 'black yellow' );
54
55done_testing;
56