diff options
Diffstat (limited to 't/04-Windows.t')
-rw-r--r-- | t/04-Windows.t | 20 |
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);
|