testet no also round function

Author: lichtkind

lib/Graphics/Toolkit/Color/Space.pm

@@ -33,6 +33,7 @@ sub is_partial_hash   { shift->basis->is_partial_hash(@_) }  # %+values --> ?
 sub shape             { $_[0]{'shape'} }
 sub in_range          { shift->shape->in_range( @_ ) }       # @+values -- @+range, @+precision   --> @+values|!~   # errmsg
 sub clamp             { shift->shape->clamp( @_ ) }          # @+values -- @+range, @+precision   --> @+rvals       # result values
+sub round             { shift->shape->round( @_ ) }          # @+values -- @+precision            --> @+rvals       # result values
 sub normalize         { shift->shape->normalize(@_)}         # @+values -- @+range                --> @+rvals|!~
 sub denormalize       { shift->shape->denormalize(@_)}       # @+values -- @+range, @+precision   --> @+rvals|!~
 sub denormalize_delta { shift->shape->denormalize_delta(@_)} # @+values -- @+range                --> @+rvals|!~

lib/Graphics/Toolkit/Color/Space/Shape.pm

@@ -156,7 +156,7 @@ sub normalize {
 }
 
 sub denormalize {
-    my ($self, $values, $range, $precision) = @_;
+    my ($self, $values, $range) = @_;
     return unless $self->basis->is_value_tuple( $values );
     $range = $self->_range( $range );
     return "bad range definition" unless ref $range;

t/05_space.t

@@ -2,7 +2,7 @@
 
 use v5.12;
 use warnings;
-use Test::More tests => 126;
+use Test::More tests => 140;
 
 BEGIN { unshift @INC, 'lib', '../lib'}
 my $module = 'Graphics::Toolkit::Color::Space';
@@ -108,6 +108,28 @@ is( $val->[1],                    19, 'second value correct');
 is( $val->[2],                    -1, 'third value correct');
 is( $val->[3],                    -2, 'fourth value correct - range had none zero min');
 
+$space = Graphics::Toolkit::Color::Space->new(
+   axis => [qw/AAA BBB CCC DDD/], range => 10, precision => [0,1,2,-1],
+);
+is( ref $space,     $module, 'created color space with axis names, ranges and precision');
+is( ref $space->shape,  'Graphics::Toolkit::Color::Space::Shape', 'have a valid space shape sub object');
+$val = $space->round([ 1.11111, 1.11111, 1.11111, 1.11111]);
+is( ref $val,                'ARRAY', 'rounded value tuple is a tuple');
+is( int @$val,                     4, 'right amount of values');
+is( $val->[0],                     1, 'first value correct');
+is( $val->[1],                   1.1, 'second value correct');
+is( $val->[2],                  1.11, 'third value correct');
+is( $val->[3],               1.11111, 'fourth value correct - range had none zero min');
+
+$val = $space->clamp([ -0.1111, 1.1111, 200, 0.1111]);
+is( ref $val,                'ARRAY', 'clamped value tuple into a tuple');
+is( int @$val,                     4, 'right amount of values');
+is( $val->[0],                     0, 'clamped up to min');
+is( $val->[1],                   1.1, 'second value correct');
+is( $val->[2],                    10, 'third value correct');
+is( $val->[3],                0.1111, 'fourth value correct');
+
+
 is( $space->has_format('bbb'), 0, 'vector name is not a format');
 is( $space->has_format('c'),   0, 'vector sigil is not  a format');
 is( $space->has_format('list'),1, 'list is a format');