#!/usr/bin/perl -w
use strict;
use Test::More tests => 17;
use Test::LongString;
use IO::Termios;
use IO::Pty;
use POSIX qw( EAGAIN );
# Can't use STDIN as we don't know if it will be a TTY at testing time
my $pty = IO::Pty->new() or skip_all( "No PTY available" );
my $slave = $pty->slave;
my $term = IO::Termios->new( $slave );
$term->setflag_echo( 1 );
ok( $term->getflag_echo, '$term->getflag_echo is on' );
$pty->syswrite( "With ECHO\n" );
is_string( scalar <$term>, "With ECHO\n", '$term syswrite' );
is_string( scalar <$pty>, "With ECHO\r\n", 'Echoed back' );
$term->setflag_echo( 0 );
ok( !$term->getflag_echo, '$term->getflag_echo is off' );
$pty->blocking( 0 );
my $b;
$pty->syswrite( "Without ECHO\n" );
is_string( scalar <$term>, "Without ECHO\n", '$term syswrite' );
ok( !defined $pty->sysread( $b, 8192 ), '$pty not readable' );
is( $!+0, EAGAIN, '$pty not readable (EAGAIN)' );
$term->setflag_icanon( 0 );
ok( !$term->getflag_icanon, '$term->getflag_icanon is off' );
$term->blocking( 0 );
$pty->syswrite( "Without " );
ok( defined $term->sysread( $b, 8192 ), '$term is readable' );
is_string( $b, "Without ", '$pty reads partial line' );
$pty->syswrite( "ICANON\n" );
ok( defined $term->sysread( $b, 8192 ), '$term is readable' );
is_string( $b, "ICANON\n", '$pty reads remainder of line' );
$term->setflag_icanon( 1 );
ok( $term->getflag_icanon, '$term->getflag_icanon is on' );
$pty->syswrite( "With " );
ok( !defined $term->sysread( $b, 8192 ), '$term not readable' );
is( $!+0, EAGAIN, '$pty not readable (EAGAIN)' );
$pty->syswrite( "ICANON\n" );
ok( defined $term->sysread( $b, 8192 ), '$term is readable' );
is_string( $b, "With ICANON\n", '$pty reads remainder of line' );