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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
#!/bin/sh
# Copyright (C) 2014-2025 Free Software Foundation, Inc.
#
# This file is part of GNU Inetutils.
#
# GNU Inetutils 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.
#
# GNU Inetutils 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/'.
# Check response in libls.
# Very simple testing, aiming mostly at code coverage.
set -u
: ${EXEEXT:=}
. ./tools.sh
silence=
bucket=
# Executable under test.
#
LS=${LS:-./ls$EXEEXT}
if test ! -x "$LS"; then
echo >&2 "Missing executable '$LS'. Skipping test."
exit 77
fi
if test -z "${VERBOSE+set}"; then
silence=:
bucket='>/dev/null'
fi
if test -n "${VERBOSE:+set}"; then
set -x
fi
# Don't use CWD . because parallel testing may create and remove files
# here while we work.
# The trouble with using srcdir or builddir is that they may contain
# unexpected files causing the tests to fail. For example, if the
# directory contain a file with a 300 characters long filename that
# will cause 'ls -C' and 'ls -x' to be the same because COLUMNS will
# be 80.
# We use sleep to cause different modtime and atime.
LSDIR=$(mktemp -d)
if test -z "$LSDIR" || test ! -d "$LSDIR"; then
LSDIR=tmp.$$
fi
clean_lsdir () {
test -d "$LSDIR" && echo "Cleaning up..." && rm -rfv "$LSDIR"
}
trap clean_lsdir EXIT HUP INT QUIT TERM
touch "$LSDIR"/foo
sleep 1
touch "$LSDIR"/bar.sh
sleep 1
mkdir "$LSDIR"/baz
sleep 1
echo foo > "$LSDIR"/foo
# IMPORTANT: Execute an initial call to $LS, just to get going.
# In case this is a coverage run, as NixOS does, this very first
# call will create `ls.gcda', whose creation would interfere with
# the counting after `$LS -a1' and `$LS -A1'.
#
$LS -alTt $LSDIR >/dev/null 2>&1
# Several runs with different switches are compared by
# a simple count of printed lines.
#
REPLY_a1=`$LS -a1 $LSDIR`
REPLY_A1=`$LS -A1 $LSDIR`
REPLY_C=`$LS -C $LSDIR`
REPLY_Cr=`$LS -Cr $LSDIR`
REPLY_Ct=`$LS -Ct $LSDIR`
REPLY_x=`$LS -x $LSDIR`
REPLY_m=`$LS -m $LSDIR`
REPLY_l=`$LS -l $LSDIR`
REPLY_lT=`$LS -l $LSDIR`
REPLY_n=`$LS -n $LSDIR`
# In an attempt to counteract lack of subsecond accuracy,
# probe the parent directory where timing is known to be more
# varied, than in the subdirectory "tests/".
#
REPLY_Ccts=`$LS -Ccts $LSDIR`
REPLY_Cuts=`$LS -Cuts $LSDIR`
# All the following failure causes are checked and possibly
# brought to attention, independently of the other instances.
#
errno=0
diff=`{ echo "$REPLY_a1"; echo "$REPLY_A1"; } | sort | uniq -u`
test `echo "$diff" | wc -l` -eq 2 &&
test `echo "$diff" | $GREP -c -v '^[.]\{1,2\}$'` -eq 0 ||
{ errno=1; echo >&2 'Failed to tell switch -a apart from -A.'
# Attempt a diagnosis.
if test -z "$diff"; then
echo >&2 'Flags -a and -A produce identical lists.'
else
cat >&2 <<-EOT
--- File list difference with '-a' and with '-A'. ---
`echo "$diff" | $SED -e 's,^, ,'`
--- End of list ---
EOT
fi
}
test x"$REPLY_C" != x"$REPLY_Cr" ||
{ errno=1; echo >&2 'Failed to reverse sorting with "-r".'; }
test x"$REPLY_C" != x"$REPLY_Ct" ||
{ errno=1; echo >&2 'Failed to sort on modification with "-t".'; }
test x"$REPLY_C" != x"$REPLY_x" ||
{ errno=1; echo >&2 'Failed to distinguish "-C" from "-x".'; }
test x"$REPLY_C" != x"$REPLY_m" ||
{ errno=1; echo >&2 'Failed to distinguish "-C" from "-m".'; }
test x"$REPLY_l" != x"$REPLY_n" ||
# Don't fail if the cause was missing /etc/passwd
{ id -u && ! id -u -n ;} ||
{ errno=1; echo >&2 'Failed to distinguish "-l" from "-n".'; }
test x"$REPLY_Ccts" != x"$REPLY_Cuts" ||
{ errno=1; echo >&2 'Failed to distinguish "-u" from "-c".'; }
test $errno -ne 0 || $silence echo "Successful testing".
exit $errno
|
