blob: d7aa10b84c9f1da840d9eccde0f16c936cbf67bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl
use Test::Most;
use lib 't/lib';
use_ok( 'Graphics::ColorNames' );
my $sxw = Graphics::ColorNames->new( qw/ X Test / );
isa_ok $sxw, 'Graphics::ColorNames';
is $sxw->hex('darkgreen'), '006400', 'DarkGreen (X)';
my $swx = Graphics::ColorNames->new( qw/ Test X / );
isa_ok $swx, 'Graphics::ColorNames';
is $swx->hex('darkgreen'), '008000', 'DarkGreen (Test)';
done_testing;
|