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