]>
iEval git - data-faker-colour.git/blob - t/Data-Faker-Colour.t
5 use Test
:: More tests
=> 8 ;
6 BEGIN { use_ok
( 'Data::Faker::Colour' ) }
10 return unless $expected == @_ ;
13 $ret &&= 0 <= $colour ->[ $_ ] && $colour ->[ $_ ] <= 255 for 0 , 1 , 2 ;
18 note
'These tests only check if the generated colours are valid. They don \' t check whether the colours have the requested hue, saturation or lightness' ;
20 my $f = Data
:: Faker
:: Colour
-> new ;
22 ok valid
( 1 , $f -> colour ), 'colour' ;
23 ok valid
( 5 , $f -> color ( 5 )), 'color(5)' ;
25 ok valid
( 1 , $f -> colour_hsluv ), 'colour_hsluv' ;
26 ok valid
( 200 , $f -> colour_hsluv ( 200 , 10 )), 'colour_hsluv(200, 10)' ;
27 ok valid
( 200 , $f -> colour_hsluv ( 200 , - 1 , 10 )), 'colour_hsluv(200, -1, 10)' ;
28 ok valid
( 200 , $f -> colour_hsluv ( 200 , - 1 , - 1 , 10 )), 'colour_hsluv(200, -1, -1, 10)' ;
30 ok valid
( 2000 , $f -> colour_hsluv ( 2000 , - 1 , 100 , 40 )), 'colour_hsluv(2000, -1, 100, 40)' ;
This page took 0.024858 seconds and 5 git commands to generate.