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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
#! /bin/sh
# auto.sh: Tests for "admin"'s detection of binary files.
# Import common functions & definitions.
. ../common/test-common
. ../common/real-thing
. ../common/config-data
if $binary_support
then
true
else
echo "Skipping these tests -- no binary file support."
exit 0
fi
good() {
if $expect_fail ; then
echo UNEXPECTED PASS
else
echo passed
fi
}
bad() {
if $expect_fail ; then
echo failed -- but we expected that.
else
fail "$@"
fi
}
# test_bin:
# Usage: test_bin LABEL <contents>
#
# create a flie containing the specified argument and check
# that it is encoded as a binary file.
test_bin() {
label=$1
echo_nonl ${label}...
shift
infile=$1
shift
if ${use_stdin}
then
cmd="cat ${infile} | ${admin} -i ${adminflags} $s"
else
cmd="${admin} -i${infile} ${adminflags} $s"
fi
rm -f $s
remove errmsg
if ( eval "${cmd}" ) >/dev/null 2>errmsg
then
if ( ${prs} -d:FL: $s 2>/dev/null; echo foo ) | grep encoded >/dev/null 2>&1
then
remove $g errmsg
if ${get} -p ${s} 2>errmsg >${g}
then
remove errmsg
if diff ${infile} ${g} >diffs
then
remove diffs
good
else
# We failed to get the data back correctly from the
# SCCS file.
bad "$label data lost (see file 'diffs') in ${cmd}".
fi
else
bad $label "${get} -p $s failed: `cat errmsg`"
fi
else
bad $label input did not produce an encoded s-file.
fi
else
cat errmsg ; remove errmsg
bad $label ${admin} returned exit status $?.
fi
rm -f $s
}
g=testfile
s=s.$g
z=z.$g
x=z.$g
p=p.$g
files="$s $z $x $p"
remove $files long-text-file infile ctrl-A-file no-newline ctrl-A-end
remove command.log log base [sxzp].$g errmsg $g
expect_fail=false
adminflags=""
remove long-text-file
../../testutils/yammer 1000 "this is a text file" > long-text-file
#../../testutils/yes "this is a text file" | nl | head -1000 >long-text-file
if test -s long-text-file
then
true
else
miscarry could not create long-text-file.
fi
remove no-newline
echo_nonl "no newline here" > no-newline
remove ctrl-A-file
echo_nonl \
"the next line of this file starts with " \
"a ctrl-A,\n\001Which SCCS does not like" > ctrl-A-file
remove ctrl-A-end
echo_nonl \
"This file ends with a ctrl-A.\n\001" > ctrl-A-end
# Make sure that we correctly decide to encode the files,
# and that we don't lose data.
# First make sure that forcing binary mode works.
use_stdin=false
adminflags=-b
test_bin s1 long-text-file
adminflags=
# Now try various nearly-text files.
test_bin s2 ctrl-A-file
# Create a file which we only discover needs encoding after
# we have read loads of it.
remove infile ; cat long-text-file ctrl-A-file > infile
test_bin s3 infile
# Another long file but binary because it lacks a newline at the end.
test_bin s4 ctrl-A-end
use_stdin=true
## Same tests as before, but with the "-i" file on a pipe.
if ( ${admin} -V 2>&1 ; echo umsp ) | grep CSSC >/dev/null
then
# Do the tests that SCCS does not pass.
use_stdin=false
test_bin s5 no-newline # Real SCCS fails this one.
remove infile ; cat long-text-file no-newline > infile
test_bin s6 infile
use_stdin=true
test_bin i1 ctrl-A-file
test_bin i2 infile
remove infile ; cat long-text-file ctrl-A-file > infile
test_bin i3 ctrl-A-end
test_bin i4 no-newline
remove infile ; cat long-text-file no-newline > infile
test_bin i5 infile
else
echo "Not running tests on CSSC; Some tests have been been omitted"
fi
remove $files long-text-file infile ctrl-A-file no-newline ctrl-A-end
remove command.log log base errmsg $g
success
|
