view release on metacpan or  search on metacpan

t/07-white-black.t  view on Meta::CPAN

use Test::More;

use Colouring::In;

my $white = Colouring::In->new('#ffffff');
my $black = $white->darken('100%');
is($black->toCSS, '#000');
$white = $black->lighten('100%');
is($white->toCSS, '#fff');
my $transparent = $white->fadeout('100%');
is($transparent->toCSS, 'rgba(255,255,255,0)');
$white = $transparent->fadein('100%');
is($white->toCSS, '#fff');

done_testing();