From 8b36ac6de6a096a396a8dc81861e213877d34c14 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Thu, 5 May 2011 00:53:48 +0100
Subject: added colour_test for testing implementations of 256-colour patches

---
 feature-tests/colour_test.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 feature-tests/colour_test.pl

(limited to 'feature-tests/colour_test.pl')

diff --git a/feature-tests/colour_test.pl b/feature-tests/colour_test.pl
new file mode 100644
index 0000000..875b63c
--- /dev/null
+++ b/feature-tests/colour_test.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+
+use Irssi;
+
+my @colors = (0..255);
+my @names  = qw/black red green yellow blue magenta cyan white/;
+#my @bnames = map { "bold_$_" } @names;
+
+#@names = (@names, @bnames);
+
+foreach my $c (@colors) { 
+    my $n = $names[$c] // $c;
+    Irssi::print("\%$c This is bg color $n\%n");
+}
-- 
cgit v1.2.3