diff options
| author | Tom Feist <shabble@metavore.org> | 2011-02-21 00:54:03 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-02-21 00:54:03 +0000 |
| commit | c1d27ce25a2724371b16640e4bb9d04aa70cc1eb (patch) | |
| tree | e6abf56f4ecc3652ca62e3cad43c5380fd977f30 | |
| parent | mostly functional as script, final comit before transitioning into Test::Irss... (diff) | |
| download | irssi-scripts-c1d27ce25a2724371b16640e4bb9d04aa70cc1eb.tar.gz irssi-scripts-c1d27ce25a2724371b16640e4bb9d04aa70cc1eb.zip | |
minor whitespace muddling
| -rwxr-xr-x | feature-tests/auto-testing.pl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/feature-tests/auto-testing.pl b/feature-tests/auto-testing.pl index b009323..31a9e5e 100755 --- a/feature-tests/auto-testing.pl +++ b/feature-tests/auto-testing.pl @@ -8,9 +8,11 @@ use strict; use lib $ENV{HOME} . "/projects/poe/lib"; sub PROGRAM () { "/opt/stow/repo/irssi-debug/bin/irssi" } + use POSIX; use POE qw( Wheel::ReadWrite Wheel::Run Filter::Stream ); + use Term::VT102; use Term::TermInfo; use feature qw/say switch/; @@ -28,12 +30,12 @@ my $ti = Term::Terminfo->new(); my $vt = Term::VT102->new(rows => 24, cols => 80); -$vt->callback_set(OUTPUT => \&vt_output, undef); -$vt->callback_set(ROWCHANGE => \&vt_rowchange, undef); -$vt->callback_set(CLEAR => \&vt_clear, undef); -$vt->callback_set(SCROLL_DOWN => \&vt_scr_dn, undef); -$vt->callback_set(SCROLL_UP => \&vt_scr_up, undef); -$vt->callback_set(GOTO => \&vt_goto, undef); +$vt->callback_set(OUTPUT => \&vt_output, undef); +$vt->callback_set(ROWCHANGE => \&vt_rowchange, undef); +$vt->callback_set(CLEAR => \&vt_clear, undef); +$vt->callback_set(SCROLL_DOWN => \&vt_scr_dn, undef); +$vt->callback_set(SCROLL_UP => \&vt_scr_up, undef); +$vt->callback_set(GOTO => \&vt_goto, undef); $vt->option_set(LINEWRAP => 1); $vt->option_set(LFTOCRLF => 1); |