diff options
author | Tom Feist <shabble@metavore.org> | 2011-03-19 01:22:29 +0000 |
---|---|---|
committer | Tom Feist <shabble@metavore.org> | 2011-03-19 01:22:29 +0000 |
commit | 06f8a3c5c5c86d3278fd8c0360c94379ee442789 (patch) | |
tree | 63f73831b21b958c2aba817e698c1da3fc2d3e99 /testing/tests | |
parent | ido-mode/ido_switcher: switch by refnum by default, since /win goto doesn't (diff) | |
parent | vim-mode/tests.pl: Add first real tests: h l 0 ^ $ <Space> <BS> f t. (diff) | |
download | irssi-scripts-06f8a3c5c5c86d3278fd8c0360c94379ee442789.tar.gz irssi-scripts-06f8a3c5c5c86d3278fd8c0360c94379ee442789.zip |
Merge branch 'master' of github.com:shabble/irssi-scripts
Diffstat (limited to 'testing/tests')
-rwxr-xr-x | testing/tests/003-vim-mode.t | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/testing/tests/003-vim-mode.t b/testing/tests/003-vim-mode.t deleted file mode 100755 index a732f66..0000000 --- a/testing/tests/003-vim-mode.t +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/env perl - -# Must be run in a 80x24 terminal unless a fixed POE is released. -use strict; -use warnings; - -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 => "/opt/stow/repo/irssi-debug/bin/irssi", - irssi_homedir => $ENV{HOME} . "/projects/tmp/test/irssi-debug"); - -$tester->run_headless(1); -$tester->generate_tap(1); - -my $test = $tester->new_test('insert-command-mode'); -$test->description("switching between insert and command mode in vim_mode script"); - -# Make sure irssi is finished - not entirely sure why this is necessary. -$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'); - -# Quit irssi, necessary to terminate the test. -$test->add_input_sequence("\n/quit\n"); - -$tester->run; |