added test dummy for ncol space

Author: lichtkind

t/23_ncol_space.t

@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+
+use v5.12;
+use warnings;
+use Test::More tests => 40;
+
+BEGIN { unshift @INC, 'lib', '../lib'}
+my $module = 'Graphics::Toolkit::Color::Space::Instance::YIQ';
+
+my $def = eval "require $module";
+use Graphics::Toolkit::Color::Space::Util ':all';
+
+is( not($@), 1, 'could load the module');
+is( ref $def, 'Graphics::Toolkit::Color::Space', 'got tight return value by loading module');
+is( $def->name,       'YIQ',                     'color space has right name');
+is( $def->dimensions,     3,                     'color space has 3 dimensions');
+is( $def->is_array([0,0,0]), 1,                  'vector has 3 elements');
+is( $def->is_partial_hash({i => 1, quadrature => 0}), 1, 'found hash with some keys');
+is( $def->can_convert('rgb'), 1,                 'do only convert from and to rgb');
+is( $def->can_convert('yiq'), 0,                 'can not convert to itself');
+is( $def->format([0,0,0], 'css_string'), 'yiq(0,0,0)', 'can format css string');
+my @val = $def->deformat(['YIQ', 1, 0, -0.1]);
+is( int @val,  3,     'deformated value triplet (vector)');
+is( $val[0], 1,     'first value good');
+is( $val[1], 0,     'second value good');
+is( $val[2], -0.1,  'third value good');
+
+ok( !$def->check([0, -0.5959, -0.5227]),         'check YIO values works on lower bound values');
+ok( !$def->check([1,  0.5959,  0.5227]),         'check YIO values works on upper bound values');
+warning_like {$def->check([0,0])}        {carped => qr/needs 3 values/}, "check YIQ got too few values";
+warning_like {$def->check([0, 0, 0, 0])} {carped => qr/needs 3 values/}, "check YIQ got too many values";
+
+is( $def->check([0,0,0]),  undef,     'checked neutral values');
+warning_like {$def->check([-0.1, 0, 0])}  {carped => qr/luminance value is below/},  "luminance value is too small";
+warning_like {$def->check([ 1.1, 0,0])}  {carped => qr/luminance value is above/},   "luminance value is too big";
+warning_like {$def->check([0, -0.6, 0])}  {carped => qr/in-phase value is below/},   "whiteness value is too small";
+warning_like {$def->check([0, 0.6,0])}  {carped => qr/in-phase value is above/},     "whiteness value is too big";
+warning_like {$def->check([0,0, -0.53 ])}  {carped => qr/quadrature value is below/},"quadrature value is too small";
+warning_like {$def->check([0,0, 0.53])}  {carped => qr/quadrature value is above/},  "quadrature value is too big";
+
+
+
+my @yiq = $def->deconvert( [ 0.5, 0.5, 0.5], 'RGB');
+is( int @yiq,  3,     'converted color grey has three YIQ values');
+is( $yiq[0], 0.5,     'converted color grey has computed right luminance value');
+is( $yiq[1], 0.5,  'converted color grey has computed right in-phase');
+is( $yiq[2], 0.5,  'converted color grey has computed right quadrature');
+
+my @rgb = $def->convert( [0.5, 0.5, 0.5], 'RGB');
+is( int @rgb,  3,     'converted back color grey has three rgb values');
+is( $rgb[0],   0.5,   'converted back color grey has right red value');
+is( $rgb[1],   0.5,   'converted back color grey has right green value');
+is( $rgb[2],   0.5,   'converted back color grey has right blue value');
+
+@yiq = $def->deconvert( [0.1, 0, 1], 'RGB');
+is( int @yiq,  3,     'converted blue has three YIQ values');
+is( close_enough( $yiq[0], 0.1439 )    ,  1 ,  'converted nice blue has right Y value');
+is( close_enough( $yiq[1], 0.280407787),  1 ,  'converted nice blue has right I value');
+is( close_enough( $yiq[2], 0.817916587),  1 ,  'converted nice blue has right Q value');
+
+
+@rgb = $def->convert( [0.1439, 0.280407787, 0.817916587], 'RGB');
+is( int @rgb,  3,     'converted back nice blue');
+is( close_enough($rgb[0],  0.1), 1,   'right red value');
+is( close_enough($rgb[1],  0  ), 1,   'right green value');
+is( close_enough($rgb[2],  1, ), 1,   'right blue value');
+
+exit 0;