aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests/colour_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'feature-tests/colour_test.pl')
-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");
+}