summaryrefslogtreecommitdiff
path: root/t/05-Netscape.t
diff options
context:
space:
mode:
Diffstat (limited to 't/05-Netscape.t')
-rw-r--r--t/05-Netscape.t32
1 files changed, 0 insertions, 32 deletions
diff --git a/t/05-Netscape.t b/t/05-Netscape.t
deleted file mode 100644
index b08ebd9..0000000
--- a/t/05-Netscape.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-use Test::More tests => 9;
-
-use_ok('Graphics::ColorNames', 2.10, qw( hex2tuple tuple2hex ));
-
-tie my %colors, 'Graphics::ColorNames', 'Netscape';
-ok(tied %colors);
-
-ok(keys %colors == 100); #
-
-my $count = 0;
-foreach my $name (keys %colors)
- {
- my @RGB = hex2tuple( $colors{$name} );
- $count++, if (tuple2hex(@RGB) eq $colors{$name} );
- }
-ok($count == keys %colors);
-
-# Problem is with Netscape's color definitions
-
-{
- # local $TODO = "Problem with Netscape color definitions";
- ok($colors{gold} ne $colors{mediumblue});
- ok($colors{lightblue} ne $colors{mediumblue});
- ok($colors{lightblue} ne $colors{gold});
-}
-
-ok($colors{"semisweetchocolate"} eq $colors{"semi-sweetchocolate"});
-ok($colors{"baker\'schocolate"} eq $colors{"bakerschocolate"});