]>
iEval git - convert-color-husl.git/blob - t/accessors.t
fcff0241b0a22b39a0858fea41710e87cee529af
7 use Test
::More tests
=> 16;
17 my ($name, $x, $y, $z, $xyz) = @
$_;
18 my $col = Convert
::Color
->new("$name:1,2,3");
19 is
$col->$x, 1, "\$$name->$x";
20 is
$col->$y, 2, "\$$name->$y";
21 is
$col->$z, 3, "\$$name->$z";
22 is_deeply
[$col->$xyz], [1, 2, 3], "\$$name->$xyz"
This page took 0.052063 seconds and 4 git commands to generate.