aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests
diff options
context:
space:
mode:
Diffstat (limited to 'feature-tests')
-rwxr-xr-xfeature-tests/auto-testing.pl17
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(),