aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-05-04 23:53:48 +0000
committerTom Feist <shabble@metavore.org>2011-05-04 23:53:48 +0000
commit8b36ac6de6a096a396a8dc81861e213877d34c14 (patch)
tree27495268584d261d09edf6c7b4f8c82dc39a1215 /feature-tests
parentsmall documentation fixup (diff)
downloadirssi-scripts-8b36ac6de6a096a396a8dc81861e213877d34c14.tar.gz
irssi-scripts-8b36ac6de6a096a396a8dc81861e213877d34c14.zip
added colour_test for testing implementations of 256-colour patches
Diffstat (limited to '')
-rw-r--r--feature-tests/colour_test.pl16
1 files changed, 16 insertions, 0 deletions
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");
+}