1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8use Convert::Color::HSV;
9
10my $red = Convert::Color::HSV->new( 0, 1, 1 );
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 $green = Convert::Color::HSV->new( 120, 1, 1 );
18
19my $green_rgb = $green->convert_to("rgb");
20is( $green_rgb->red,   0, 'green red' );
21is( $green_rgb->green, 1, 'green green' );
22is( $green_rgb->blue,  0, 'green blue' );
23
24my $blue = Convert::Color::HSV->new( 240, 1, 1 );
25
26my $blue_rgb = $blue->convert_to("rgb");
27is( $blue_rgb->red,   0, 'blue red' );
28is( $blue_rgb->green, 0, 'blue green' );
29is( $blue_rgb->blue,  1, 'blue blue' );
30
31my $white = Convert::Color::HSV->new( 0, 0, 1 );
32
33my $white_rgb = $white->as_rgb;
34is( $white_rgb->red,   1, 'white red' );
35is( $white_rgb->green, 1, 'white green' );
36is( $white_rgb->blue,  1, 'white blue' );
37
38my $black = Convert::Color::HSV->new( 0, 0, 0 );
39
40my $black_rgb = $black->as_rgb;
41is( $black_rgb->red,   0, 'black red' );
42is( $black_rgb->green, 0, 'black green' );
43is( $black_rgb->blue,  0, 'black blue' );
44
45done_testing;
46