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