view release on metacpan or  search on metacpan

t/10-xterm.pl  view on Meta::CPAN

# Mail: slaven@rezic.de
# WWW:  http://www.rezic.de/eserte/
#

use FindBin;
use blib "$FindBin::RealBin/..";
use XTerm::Conf qw(xterm_conf xterm_conf_string);
use Data::Dumper qw(Dumper);
use Test::More qw(no_plan);

sub S () { select undef, undef, undef, 0.4 }

my $file = shift;

my $term = $ENV{TERM} || '<unknown>';

print STDERR "Some text for the xterm...\n";
eval {
    # This test has to be the first one, right after the print above!
    is(xterm_conf_string(-report => 'cursorpos'), "2 1\n", "cursor position");