summaryrefslogtreecommitdiff
path: root/t/04-Windows.t
diff options
context:
space:
mode:
Diffstat (limited to 't/04-Windows.t')
-rw-r--r--t/04-Windows.t20
1 files changed, 0 insertions, 20 deletions
diff --git a/t/04-Windows.t b/t/04-Windows.t
deleted file mode 100644
index 870c19c..0000000
--- a/t/04-Windows.t
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/buin/perl
-
-use strict;
-
-use Test::More tests => 4;
-
-use_ok('Graphics::ColorNames', 1.06, qw( hex2tuple tuple2hex ));
-
-tie my %colors, 'Graphics::ColorNames', 'Windows';
-ok(tied %colors);
-
-ok(keys %colors == 16);
-
-my $count = 0;
-foreach my $name (keys %colors)
- {
- my @RGB = hex2tuple( $colors{$name} );
- $count++, if (tuple2hex(@RGB) eq $colors{$name} );
- }
-ok($count == keys %colors);