From 38b08f34d836a13f7ac9bbb5bdd516dd9d94fb5f Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Tue, 1 Mar 2011 03:19:59 +0100
Subject: vim-mode: Add tests.pl.

---
 vim-mode/tests.pl | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 vim-mode/tests.pl

diff --git a/vim-mode/tests.pl b/vim-mode/tests.pl
new file mode 100644
index 0000000..2a85b29
--- /dev/null
+++ b/vim-mode/tests.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+# Must be run in a 80x24 terminal unless a fixed POE is released.
+
+
+use strict;
+use warnings;
+
+use lib '../testing/blib/lib';
+
+use Test::Irssi;
+
+
+sub statusbar_mode {
+    my ($test, $mode) = @_;
+
+    $test->add_pattern_match(qr/^ \[\d{2}:\d{2}\] \[\] \[1\] \[$mode\]\s+$/,
+        'window_sbar', "[$mode] in vim-mode statusbar");
+}
+
+my $tester = Test::Irssi->new
+  (irssi_binary  => "irssi",
+   irssi_homedir => "irssi");
+
+
+my $test;
+
+
+$test = $tester->new_test('insert-command-mode');
+
+# Make sure irssi is finished - not entirely sure why this is necessary.
+$test->add_delay(3);
+
+# We start in insert mode.
+statusbar_mode($test, 'Insert');
+
+$test->add_input_sequence("\e");
+$test->add_delay(1);
+statusbar_mode($test, 'Command');
+
+$test->add_input_sequence("i");
+$test->add_delay(1);
+statusbar_mode($test, 'Insert');
+
+# Quit irssi, necessary to terminate the test.
+$test->add_input_sequence("\n/quit\n");
+
+$tester->run;
-- 
cgit v1.2.3