blob: 1520334486435e63e96f6438f9f481f9596eb6dd (
plain)
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#! /bin/sh
# Test "stty" with rows and columns.
# Copyright (C) 1998-2001, 2003-2010 Free Software Foundation, Inc.
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Setting this envvar to a very small value used to cause e.g., `stty size'
# to generate slightly different output on certain systems.
COLUMNS=80
export COLUMNS
# Make sure we get English-language behavior.
# See the report about a possibly-related Solaris problem by Alexandre Peshansky
# <http://lists.gnu.org/archive/html/bug-coreutils/2004-10/msg00035.html>.
# Currently stty isn't localized, but it might be in the future.
LC_ALL=C
export LC_ALL
. "${srcdir=.}/init.sh"; path_prepend_ ../src
print_ver_ stty
require_controlling_input_terminal_
trap '' TTOU # Ignore SIGTTOU
# Versions of GNU stty from shellutils-1.9.2c and earlier failed
# tests #2 and #4 when run on SunOS 4.1.3.
tests='
1 rows_40_columns_80 40_80
2 rows_1_columns_1 1_1
3 rows_40_columns_80 40_80
4 rows_1 1_80
5 columns_1 1_1
6 rows_40 40_1
7 rows_1 1_1
8 columns_80 1_80
9 rows_30 30_80
NA LAST NA
'
set $tests
saved_size=`stty size` && test -n "$saved_size" \
|| skip_test_ "can't get window size"
# Linux virtual consoles issue an error if you
# try to increase their size. So skip in that case.
if test "x$saved_size" != "x0 0"; then
srow=$(echo $saved_size | cut -d ' ' -f1)
scol=$(echo $saved_size | cut -d ' ' -f2)
stty rows $(expr $srow + 1) cols $(expr $scol + 1) ||
skip_test_ "can't increase window size"
fi
while :; do
test_name=$1
args=$2
expected_result="`echo $3|tr _ ' '`"
test "$args" = empty && args=''
test "x$args" = xLAST && break
args=`echo x$args|tr _ ' '|sed 's/^x//'`
if test "$VERBOSE" = yes; then
# echo "testing \`stty $args; stty size\` = $expected_result ..."
echo "test $test_name... " | tr -d '\n'
fi
stty $args || exit 1
test x"`stty size 2> /dev/null`" = "x$expected_result" \
&& ok=ok || ok=FAIL fail=1
test "$VERBOSE" = yes && echo $ok
shift; shift; shift
done
set x $saved_size
stty rows $2 columns $3 || exit 1
Exit $fail
|
