1use Test::More tests => 193 - 53 + 1;
2use Test::NoWarnings;
3
4use strict;
5use Carp;
6
7use Graphics::ColorNames 0.20, qw( hex2tuple tuple2hex );
8tie my %col_www, 'Graphics::ColorNames', 'WWW';
9tie my %colors, 'Graphics::ColorNames', 'IE';
10
11my $count = 0;
12foreach my $name (keys %colors)
13  {
14    my @RGB = hex2tuple( $colors{$name} );
15    is(tuple2hex(@RGB), $col_www{$name} );
16  }
17