fix hsv color space tests

Author: lichtkind

lib/Graphics/Toolkit/Color/Space/Instance/HSV.pm

@@ -15,7 +15,7 @@ my $hsv_def = Graphics::Toolkit::Color::Space->new( axis => [qw/hue saturation v
 
 
 sub from_rgb {
-    my ($r, $g, $b) = @_;
+    my ($r, $g, $b) = @{$_[0]};
     my $vmin = min($r, $g, $b);
     my $v = my $vmax = max($r, $g, $b);
     return (0, 0, $v) if $vmax == $vmin;
@@ -29,7 +29,7 @@ sub from_rgb {
 }
 
 sub to_rgb {
-    my ($h, $s, $v) = @_;
+    my ($h, $s, $v) = @{$_[0]};
     return ($v, $v, $v) if $s == 0;
     my $hi = int( $h * 6 );
     my $f = ( $h * 6 ) - $hi;

t/14_hsv_space.t

@@ -12,7 +12,7 @@ my $def = eval "require $module";
 is( not($@), 1, 'could load the module');
 is( ref $def, 'Graphics::Toolkit::Color::Space', 'got tight return value by loading module');
 is( $def->name,       'HSV',                     'color space has right name');
-is( $def->dimensions,     3,                     'color space has 3 dimensions');
+is( $def->axis,           3,                     'color space has 3 axis');
 is( ref $def->in_range([0, 0, 0]),     'ARRAY',   'check HSV values works on lower bound values');
 is( ref $def->in_range([360,100,100]), 'ARRAY',   'check HSV values works on upper bound values');
 is( ref $def->in_range([0,0]),              '',   "HSV got too few values");