1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
# -*- perl -*-
# 00check.t - check versions
#
# Copyright (c) 2008-2022 Hiroo Hayashi. All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
use strict;
use warnings;
use Test::More tests => 5;
use vars qw($loaded);
BEGIN {
$ENV{PERL_RL} = 'Gnu'; # force to use Term::ReadLine::Gnu
}
END {
unless ($loaded) {
ok(0, 'fail before loading');
diag "\nPlease report the output of \'perl Makefile.PL\'\n";
}
}
use Term::ReadLine;
ok(1, 'load done');
$loaded = 1;
# The GNU Readline library requires $TERM to be set properly.
# https://github.com/hirooih/perl-trg/issues/11
if ($ENV{TERM} eq "emacs" || defined($ENV{EMACS}) || defined($ENV{INSIDE_EMACS})) {
warn "Wrong env setting: \$TERM is set to 'emacs', or \$EMACS or \$INSIDE_EMACS is defined.\n";
exit 1;
}
ok(1, '$TERM value');
print "# I'm testing Term::ReadLine::Gnu version $Term::ReadLine::Gnu::VERSION\n";
my $t = new Term::ReadLine 'ReadLineTest';
isa_ok($t, 'Term::ReadLine');
my $a = $t->Attribs;
isa_ok($a, 'Term::ReadLine', 'Attribs');
print "# OS: $^O\n";
print "# Perl version: $]\n";
printf "# GNU Readline Library version: $a->{library_version}, 0x%X\n", $a->{readline_version};
print "# \$TERM=$ENV{TERM}\n";
ok(1, 'library_version and readline_version');
exit 0;
|
