From 91f126ae4c9ea90336bdeb24001fadca79439edc Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@cowu.be>
Date: Sat, 24 Jul 2010 18:23:13 +0100
Subject: moved most tests to feature-tests/

---
 history-search/key_test.pl | 100 ---------------------------------------------
 1 file changed, 100 deletions(-)
 delete mode 100644 history-search/key_test.pl

(limited to 'history-search/key_test.pl')

diff --git a/history-search/key_test.pl b/history-search/key_test.pl
deleted file mode 100644
index b16ff00..0000000
--- a/history-search/key_test.pl
+++ /dev/null
@@ -1,100 +0,0 @@
-use strict;
-use Irssi;
-use Irssi::TextUI; # for sbar_items_redraw
-
-use vars qw($VERSION %IRSSI);
-$VERSION = "1.0.1";
-%IRSSI = (
-	authors         => "shabble",
-	contact         => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode',
-	name            => "",
-	description     => "",
-	license         => "Public Domain",
-	changed         => ""
-);
-
-
-Irssi::signal_add_last 'gui key pressed' => \&got_key;
-
-my $buf = '';
-
-sub got_key {
-    my ($key) = @_;
-    $buf .= " $key";
-    my $res = decode_keypress($key);
-    if (defined $res) {
-        print "codes: $buf";
-        print "Keypress: $res";
-        $buf = '';
-    }
-}
-
-# 1 means we've seen an esc, 2 means we've
-# seen an esc,[. 0 is normal.
-
-my $decoder_state = 0;
-
-sub decode_keypress {
-    my ($code) = @_;
-
-    if ($decoder_state == 1) {
-
-        # seen esc/meta.
-        if ($code == ord('[')) {
-            $decoder_state = 2;
-            return undef;
-        } else {
-            $decoder_state = 0;
-            return 'meta-' . chr($code);
-        }
-
-    } elsif ($decoder_state == 2) {
-
-        if ($code == ord('A')) {
-            $decoder_state = 0;
-            return 'up-arrow';
-        } elsif ($code == ord('B')) {
-            $decoder_state = 0;
-            return 'dn-arrow'
-        } elsif ($code == ord('C')) {
-            $decoder_state = 0;
-            return 'right-arrow'
-        } elsif ($code == ord('D')) {
-            $decoder_state = 0;
-            return 'left-arrow'
-        }
-
-        $decoder_state = 0;
-        return undef;
-
-    } else {
-
-        if ($code < 27) {
-
-            if ($code == 9) {
-                return 'tab';
-            }
-
-            return 'ctrl-' . chr($code + ord('a') -1);
-        }
-
-        if ($code > 32 && $code < 127) {
-            return chr($code);
-        }
-
-        if ($code == 32) {
-            return 'space';
-        }
-
-        if ($code == 127) {
-            return 'backspace';
-        }
-
-        if ($code == 27) {
-            $decoder_state = 1;
-            return undef;
-        }
-
-        return 'unknown ' . $code;
-    }
-}
-- 
cgit v1.2.3