vim-mode/tests.pl: Add first real tests: h l 0 ^ $ <Space> <BS> f t.

Merge testing/tests/003-vim-mode.t with vim-mode/tests.pl and remove it
from testing/.

1 files changed, 139 insertions, 16 deletions

diff --git a/vim-mode/tests.pl b/vim-mode/tests.pl
index 2a85b29..9007171 100644
--- a/vim-mode/tests.pl
+++ b/vim-mode/tests.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 # Must be run in a 80x24 terminal unless a fixed POE is released.
 
@@ -10,6 +10,10 @@ use lib '../testing/blib/lib';
 
 use Test::Irssi;
 
+# Mode constants: C(ommand), I(nsert).
+sub C () { 0 }
+sub I () { 1 }
+
 
 sub statusbar_mode {
     my ($test, $mode) = @_;
@@ -17,32 +21,151 @@ sub statusbar_mode {
     $test->add_pattern_match(qr/^ \[\d{2}:\d{2}\] \[\] \[1\] \[$mode\]\s+$/,
         'window_sbar', "[$mode] in vim-mode statusbar");
 }
+sub cursor_position {
+    my ($test, $position) = @_;
 
-my $tester = Test::Irssi->new
-  (irssi_binary  => "irssi",
-   irssi_homedir => "irssi");
+    $test->test_cursor_position($position, 24, "Checking cursor position");
+}
 
+sub check {
+    my ($test, $input, $mode, $position, $delay) = @_;
+
+    if (defined $input) {
+        $test->add_input_sequence($input);
+        if (not defined $delay) {
+            $delay = 0.1;
+            $delay += 0.4 if $input =~ /\e/; # esc needs a longer delay
+        }
+        $test->add_delay($delay);
+    }
+
+    cursor_position($test, $position);
+    if ($mode == C) {
+        statusbar_mode($test, 'Command');
+    } elsif ($mode == I) {
+        statusbar_mode($test, 'Insert');
+    } else {
+        die "Wrong mode: $mode";
+    }
+}
 
-my $test;
+my $tester = Test::Irssi->new
+  (irssi_binary  => "irssi",
+   irssi_homedir => "./irssi/");
 
 
-$test = $tester->new_test('insert-command-mode');
+$tester->run_headless(1);
+$tester->generate_tap(1);
 
+my $test = $tester->new_test('insert-command-mode');
+$test->description("switching between insert and command mode");
 # Make sure irssi is finished - not entirely sure why this is necessary.
-$test->add_delay(3);
+$test->add_delay(2);
 
 # 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');
+check $test, undef, I, 12 + 0;
+check $test, "\e",  C, 12 + 0;
+check $test, 'i',   I, 12 + 0;
 
 # Quit irssi, necessary to terminate the test.
+#$test->add_input_sequence("\n/quit\n");
+
+
+# FIXME: multiple tests don't work
+#$test = $tester->new_test('basic-movement');
+#$test->description('basic movement');
+#$test->add_delay(2);
+
+my $test_string =
+    'Test $tring. with a 4711, words , w.r#s42  etc.   and more123! ..';
+
+check $test, $test_string, I, 12 + length $test_string;
+check $test, "\e",         C, 12 + 64;
+
+# h l
+check $test, "0",    C, 12 + 0;
+check $test, "l",    C, 12 + 1;
+check $test, "l",    C, 12 + 2;
+check $test, "l",    C, 12 + 3;
+check $test, "l",    C, 12 + 4;
+check $test, "l",    C, 12 + 5;
+check $test, "l",    C, 12 + 6;
+check $test, "l",    C, 12 + 7;
+check $test, "h",    C, 12 + 6;
+check $test, "h",    C, 12 + 5;
+check $test, "h",    C, 12 + 4;
+check $test, "h",    C, 12 + 3;
+check $test, "h",    C, 12 + 2;
+check $test, "10l",  C, 12 + 12;
+check $test, "7l",   C, 12 + 19;
+check $test, "3l",   C, 12 + 22;
+check $test, "3h",   C, 12 + 19;
+check $test, "50l",  C, 12 + 64;
+check $test, "10l",  C, 12 + 64;
+check $test, "24h",  C, 12 + 40;
+check $test, "100h", C, 12 + 0;
+
+# 0 ^ $
+check $test, "I     \e", C, 12 + 4; # insert test string for ^
+check $test, "0",        C, 12 + 0;
+check $test, "^",        C, 12 + 5;
+check $test, "3^",       C, 12 + 5;
+check $test, "12^",      C, 12 + 5;
+check $test, "\$",       C, 12 + 46;
+check $test, "05x",      C, 12 + 0; # remove test string for ^
+
+# <Space> <BS>
+check $test, "0",      C, 12 + 0;
+check $test, " ",      C, 12 + 1;
+check $test, " ",      C, 12 + 2;
+check $test, " ",      C, 12 + 3;
+check $test, " ",      C, 12 + 4;
+check $test, " ",      C, 12 + 5;
+check $test, " ",      C, 12 + 6;
+check $test, " ",      C, 12 + 7;
+check $test, " ",      C, 12 + 8;
+check $test, "5 ",     C, 12 + 13;
+check $test, "2 ",     C, 12 + 15;
+check $test, "10 ",    C, 12 + 25;
+check $test, "30 ",    C, 12 + 55;
+check $test, "20 ",    C, 12 + 64;
+check $test, "10 ",    C, 12 + 64;
+check $test, " ",      C, 12 + 64;
+check $test, "\x7f",   C, 12 + 63;
+check $test, "\x7f",   C, 12 + 62;
+check $test, "\x7f",   C, 12 + 61;
+check $test, "\x7f",   C, 12 + 60;
+check $test, "1\x7f",  C, 12 + 59;
+check $test, "3\x7f",  C, 12 + 56;
+check $test, "5\x7f",  C, 12 + 51;
+check $test, "10\x7f", C, 12 + 41;
+check $test, "50\x7f", C, 12 + 0;
+check $test, "\x7f",   C, 12 + 0;
+check $test, "5\x7f",  C, 12 + 0;
+
+# f t
+check $test, "0",   C, 12 + 0;
+check $test, "fe",  C, 12 + 1;
+check $test, "fs",  C, 12 + 2;
+check $test, "ft",  C, 12 + 3;
+check $test, "f ",  C, 12 + 4;
+check $test, "2f ", C, 12 + 17;
+check $test, "5f,", C, 12 + 17;
+check $test, "2f,", C, 12 + 32;
+check $test, "tw",  C, 12 + 33;
+check $test, "t ",  C, 12 + 40;
+check $test, "t ",  C, 12 + 40;
+check $test, "t ",  C, 12 + 40;
+check $test, "2t ", C, 12 + 41;
+check $test, "2t ", C, 12 + 46;
+check $test, "3t ", C, 12 + 48;
+check $test, "t!",  C, 12 + 60;
+check $test, "t ",  C, 12 + 61;
+check $test, "t.",  C, 12 + 62;
+check $test, "t.",  C, 12 + 62;
+check $test, "5t.", C, 12 + 62;
+check $test, "\$",  C, 12 + 64;
+
 $test->add_input_sequence("\n/quit\n");
 
 $tester->run;