Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (22 sloc) 0.607 kB
use Test::More;
use Graphics::Color::RGB;
BEGIN {
use_ok('Chart::Clicker::Drawing::ColorAllocator');
}
my @seedcolors = (
Graphics::Color::RGB->new({
red => 0,
green => 0,
blue => 0,
alpha => 1,
name => 'black'
})
);
my $ca = Chart::Clicker::Drawing::ColorAllocator->new({
colors => \@seedcolors
});
isa_ok($ca, 'Chart::Clicker::Drawing::ColorAllocator');
my $shouldbeblack = $ca->next;
ok(defined($shouldbeblack), 'Seeded color seems to be there');
cmp_ok($shouldbeblack->name, 'eq', 'black', 'Seeded color is black');
done_testing;
Jump to Line
Something went wrong with that request. Please try again.