Sort color names elsewhere

[colorize.git] / test.pl

diff --git a/test.pl b/test.pl
index 49a0cf38fae6cce73c46f4f00b5a97673137ad01..01d77ed3d98409a88275e671f3efc5ad96081b68 100755 (executable)
--- a/test.pl
+++ b/test.pl
@@ -169,7 +169,7 @@ SKIP: {
 Colors
 ======
 EOT
-    foreach my $color (qw(none black red green yellow blue cyan magenta white default random)) {
+    foreach my $color (qw(none black red green yellow blue magenta cyan white default random)) {
         system("echo $color | $program $color");
         next if $color eq 'none';
         my $bold_color = ucfirst $color;