diff options
| author | Tom Feist <shabble@metavore.org> | 2011-02-19 17:07:37 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-02-19 17:07:37 +0000 |
| commit | 97707dda9149b17a0fc6ee7f73cb619d891dbf94 (patch) | |
| tree | eda2e66cf92e60ece594cb6e4b568508d9d16d75 /feature-tests/auto-testing.pl | |
| parent | added a 'overlay' loadable module that's hopefully going to do osme dirty dirty (diff) | |
| download | irssi-scripts-97707dda9149b17a0fc6ee7f73cb619d891dbf94.tar.gz irssi-scripts-97707dda9149b17a0fc6ee7f73cb619d891dbf94.zip | |
added program args to Wheel::Run
Diffstat (limited to 'feature-tests/auto-testing.pl')
| -rwxr-xr-x | feature-tests/auto-testing.pl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/feature-tests/auto-testing.pl b/feature-tests/auto-testing.pl index 43bc489..c7d9178 100755 --- a/feature-tests/auto-testing.pl +++ b/feature-tests/auto-testing.pl @@ -36,15 +36,25 @@ $vt->option_set(LFTOCRLF => 1); sub vt_output { my ($vt, $cb_name, $cb_data, $priv_data) = @_; - say $logfh "OUTPUT: " . Dumper(\@_); + say $logfh "OUTPUT: " . Dumper([@_[1..$#_]]); } sub vt_rowchange { my ($vt, $cb_name, $arg1, $arg2, $priv_data) = @_; #say $logfh "ROWCHANGE: " . Dumper(\@_); - say $logfh "Row $arg1 changed: "; - say $logfh $vt->row_plaintext($arg1); + #say $logfh "Row $arg1 changed: "; + #say $logfh $vt->row_plaintext($arg1); + my $bottom_line = $vt->rows(); + say $logfh "-" x 100; + say $logfh "Window Line"; + say $logfh $vt->row_plaintext($bottom_line - 1); + say $logfh "-" x 100; + say $logfh "Prompt line"; + say $logfh $vt->row_plaintext($bottom_line); + say $logfh "-" x 100; + + # # print $ti->getstr("clear"); # print vt_dump(); @@ -97,6 +107,7 @@ sub handle_start { # Start the asynchronous child process. $heap->{program} = POE::Wheel::Run->new( Program => PROGRAM, + ProgramArgs => qw/--noconnect/, Conduit => "pty", StdoutEvent => "got_child_stdout", StdioFilter => POE::Filter::Stream->new(), |