3 # Test RCS's functions.
4 # The RCS commands are searched for in the PATH as usual;
5 # to test the working directory's commands, prepend . to your PATH.
7 # Test RCS by creating files RCS/a.* and RCS/a.c.
8 # If all goes well, output nothing, and remove the temporary files.
9 # Otherwise, send a message to standard output.
10 # Exit status is 0 if OK, 1 if an RCS bug is found, and 2 if scaffolding fails.
11 # With the -v option, output more debugging info.
13 # If diff outputs `No differences encountered' when comparing identical files,
14 # then rcstest may also output these noise lines; ignore them.
16 # The current directory and ./RCS must be readable, writable, and searchable.
21 # Copyright 1990, 1991, 1992, 1993, 1994, 1995 Paul Eggert
22 # Distributed under license by the Free Software Foundation, Inc.
24 # This file is part of RCS.
26 # RCS is free software; you can redistribute it and/or modify
27 # it under the terms of the GNU General Public License as published by
28 # the Free Software Foundation; either version 2, or (at your option)
31 # RCS is distributed in the hope that it will be useful,
32 # but WITHOUT ANY WARRANTY; without even the implied warranty of
33 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
34 # GNU General Public License for more details.
36 # You should have received a copy of the GNU General Public License
37 # along with RCS; see the file COPYING.
38 # If not, write to the Free Software Foundation,
39 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
41 # Report problems and direct all questions to:
43 # rcs-bugs@cs.purdue.edu
45 # The Makefile overrides the following defaults.
46 : ${ALL_CFLAGS=-Dhas_conf_h}
49 # : ${LDFLAGS=} ${LIBS=} tickles old shell bug
51 CL="$CC $ALL_CFLAGS $LDFLAGS -o a.out"
58 RCSfile=RCS${SLASH}a.c
59 RCS_alt=RCS${SLASH}a.d
60 lockfile=RCS${SLASH}a._
65 *) echo >&2 "$0: usage: $0 [-v]"; exit 2
70 else rmdir=rmdir; mkdir RCS || exit
73 rm -f a.* $RCSfile $RCS_alt $lockfile &&
75 echo 1.1.1.1 >a.3x1 &&
76 echo 1.2 >a.12 || { echo "#initialization failed"; exit 2; }
78 case "`$DIFF -c a.11 a.3x1`" in
82 echo "#warning: $DIFF -c does not work, so diagnostics may be cryptic"
86 rcs -i -L -ta.11 $q a.c &&
88 echo "#rcs -i -L failed; perhaps RCS is not properly installed."
92 rlog a.c >/dev/null || { echo "#rlog failed on empty RCS file"; exit 1; }
93 rm -f $RCSfile || exit 2
96 ci -ta.11 -mm $q a.c &&
98 rcs -L $q a.c || { echo "#ci+rcs -L failed"; exit 1; }
99 test ! -f a.c || { echo "#ci did not remove working file"; exit 1; }
103 test -f a.c || { echo '#co' $l did not create working file; exit 1; }
104 $diff a.11 a.c || { echo '#ci' followed by co $l is not a no-op; exit 1; }
110 $diff a.12 a.c || { echo "#ci+co failed"; exit 1; }
114 $diff a.11 a.c || { echo "#can't retrieve first revision"; exit 1; }
118 ci -r1.1.1 -mm $q a.c &&
119 co -r1.1.1.1 $q a.c &&
120 $diff a.3x1 a.c || { echo "#branches failed"; exit 1; }
126 $diff a.12 a.c || { echo "#(co -l; ci -f) failed"; exit 1; }
133 ci -mm $q a.c || { echo "#ci -l failed"; exit 1; }
139 test -r a.c || { echo "#ci -u didn't create a working file"; exit 1; }
141 echo error >a.c || exit 2
142 ci -mm $q a.c 2>/dev/null && { echo "#ci -u didn't unlock the file"; exit 1; }
146 co -u $q a.c || { echo "#rcs -l + co -u failed"; exit 1; }
148 echo error >a.c || exit 2
149 ci -mm $q a.c 2>/dev/null && { echo "#co -u didn't unlock the file"; exit 1; }
153 co -f $q a.c || { echo "#co -f failed"; exit 1; }
154 $diff a.11 a.c >/dev/null && { echo "#co -f had no effect"; exit 1; }
156 co -p1.1 $q a.c >a.t &&
157 $diff a.11 a.t || { echo "#co -p failed"; exit 1; }
165 ci -${n}n -mm $q a.c &&
167 $diff a.$n a.c || { echo "#ci -$n failed"; exit 1; }
176 me=`who am i` || exit 2
177 me=`echo "$me" | sed -e 's/ .*//' -e 's/.*!//'`
179 '') echo >&2 "$0: cannot deduce user name"; exit 2
185 # Get the date of the previous revision in UTC.
186 date=`rlog -r a.c | sed -n '/^date: /{ s///; s/;.*//; p; q; }'` || exit
188 [0-9][0-9][0-9]*[0-9]/[0-1][0-9]/[0-3][0-9]\ [0-2][0-9]:[0-5][0-9]:[0-6][0-9]);;
189 *) echo >&2 "$0: $date: bad rlog date output"; exit 1
191 PWD=`pwd` && export PWD &&
194 sed 's/@/$/g' >a.kv <<EOF
197 @Header: $PWD$SLASH$RCSfile 2.1 $date w s @
198 @Id: a.c 2.1 $date w s @
201 * Revision 2.1 $date w
207 @Source: $PWD$SLASH$RCSfile @
211 sed 's/:.*\$/$/' a.kv >a.k &&
212 sed -e 's/w s [$]/w s '"$me"' $/' -e 's/[$]Locker: /&'"$me/" a.kv >a.kvl &&
213 sed s/Oz//g a.kv >a.e &&
214 sed s/Oz/N/g a.kv >a.N &&
215 sed -e '/\$/!d' -e 's/\$$/: old $/' a.k >a.o &&
216 sed -e 's/\$[^ ]*: //' -e 's/ \$//' a.kv >a.v &&
218 ci -d"$date" -nOz -ss -ww -u2.1 -mm $q a.c &&
219 $diff a.kv a.c || { echo "#keyword expansion failed"; exit 1; }
220 co -pOz -ko $q a.c >a.oo &&
221 $diff a.o a.oo || { echo "#co -p -ko failed"; exit 1; }
222 cp a.kv a.o && cp a.o a.b || exit 2
226 $diff a.kv a.c || { echo "#ci -k failed"; exit 1; }
227 sed -n 's/^[^$]*\$/$/p' a.kv >a.i &&
229 sed -e 1d -e 's/^[ ]*//' a.i1 >a.i2 &&
230 $diff a.i a.i2 || { echo "#ident failed"; exit 1; }
232 rcs -i $q a.c 2>/dev/null && { echo "#rcs -i permitted existing file"; exit 1; }
239 rcs -l1.1.1 $q a.c &&
240 ci -r1.1.1.2 -mm $q a.c &&
241 rcs -b1.1.1 $q a.c &&
242 test " `co -p $q a.c`" = ' 1.1.1.2' || { echo "#rcs -b1.1.1 failed"; exit 1; }
244 test " `co -p $q a.c`" = ' 2.2' || { echo "#rcs -b failed"; exit 1; }
246 echo 2.3 >a.c || exit 2
247 rcs -U $q a.c || { echo "#rcs -U failed"; exit 1; }
248 ci -mm $q a.c || { echo "#rcs -U didn't unset strict locking"; exit 1; }
249 rcs -L $q a.c || { echo "#rcs -L failed"; exit 1; }
250 echo error >a.c || exit 2
251 ci -mm $q a.c 2>/dev/null && { echo "#ci retest failed"; exit 1; }
254 log0=`rlog -h a.c` &&
257 log1=`rlog -h a.c` &&
258 test " $log0" = " $log1" || { echo "#unchanged ci didn't revert"; exit 1; }
261 rcs -nN:1.1 $q a.c &&
263 $diff a.11 a.c || { echo "#rcs -n failed"; exit 1; }
266 rcs -NN:2.1 $q a.c &&
268 $diff a.N a.c || { echo "#rcs -N failed"; exit 1; }
272 echo ':::$''Log$' >a.c &&
274 test " `sed '$!d' a.c`" = ' :::' || { echo "#comment leader failed"; exit 1; }
279 $diff a.e a.c || { echo "#rcs -o failed"; exit 1; }
281 rcsdiff -r1.1 -rOz $q a.c >a.0
284 *) echo "#rcsdiff bad status"; exit 1
287 $diff a.0 a.1 || { echo "#rcsdiff failed"; exit 1; }
289 rcs -l2.1 $q a.c || { echo "#rcs -l2.1 failed"; exit 1; }
290 for i in b k kv kvl o v
294 rcsdiff -k$i -rOz $q a.c || { echo "#rcsdiff -k$i failed"; exit 1; }
296 co -p1.1 -ko $q a.c >a.t &&
297 $diff a.11 a.t || { echo "#co -p1.1 -ko failed"; exit 1; }
298 rcs -u2.1 $q a.c || { echo "#rcs -u2.1 failed"; exit 1; }
302 rcsclean -u $q a.c || { echo "#rcsclean botched a nonexistent file"; exit 1; }
306 rcsclean -n $q a.c &&
307 rcsclean -n -u $q a.c &&
308 test -f a.c || { echo "#rcsclean -n removed a file"; exit 1; }
313 test ! -f a.c || { echo "#rcsclean missed an unlocked file"; exit 1; }
318 test -f a.c || { echo "#rcsclean removed a locked file"; exit 1; }
319 rcsclean -u $q a.c &&
321 echo "#rcsclean -u missed an unchanged locked file"; exit 1;
328 rcsclean $q -u a.c &&
329 test -f a.c || { echo "#rcsclean removed a changed file"; exit 1; }
342 co -p2.2 $q a.c | sed -e s/2.2/2.3/ -e s/b/b1/ >a.c &&
344 co -p2.2 $q a.c | sed -e s/2.2/new/ -e s/d/d1/ >a.c || exit 2
363 rcsmerge -E -r2.2 -r2.3 $q a.c
366 if $diff a.0 a.c >/dev/null
367 then echo "#warning: diff3 -E does not work, " \
368 "so merge and rcsmerge ignore overlaps and suppress overlap lines."
370 $diff a.1 a.c || { echo "#rcsmerge failed (status 0)"; exit 1; }
371 echo "#warning: The diff3 lib program exit status ignores overlaps," \
372 "so rcsmerge does not warn about overlap lines that it generates."
376 $diff a.1 a.c || { echo "#rcsmerge failed (status 1)"; exit 1; }
379 echo "#rcsmerge bad status"; exit 1
382 # Avoid `tr' if possible; it's not portable, and it can't handle null bytes.
383 # Our substitute exclusive-ORs with '\n';
384 # this ensures null bytes on output, which is even better than `tr',
385 # since some diffs think a file is binary only if it contains null bytes.
390 while ((c=getchar()) != EOF)
396 if (rm -f a.exe a.out && $CL a.c $L >&2) >/dev/null 2>&1
405 co -p $q a.c | $tr '\012' '\200' >a.24 &&
407 ciOut=`(ci -l -mm $q a.c 2>&1)` &&
409 ?*) echo >&2 "$ciOut"
411 co -p $q a.c | $tr '\200' '\012' >a.c &&
412 rcsdiff -r2.3 $q a.c >/dev/null &&
417 rcsdiff -r2.4 $q a.c >/dev/null
418 } || echo "#warning: Traditional diff is used, so RCS is limited to text files."
420 rcs -u -o2.4: $q a.c || { echo "#rcs -u -o failed"; exit 1; }
422 rcs -i -Aa.c -t- $q a.d || { echo "#rcs -i -A failed"; exit 1; }
424 rlog -r2.1 a.c >a.t &&
425 grep '^checked in with -k' a.t >/dev/null &&
426 sed '/^checked in with -k/d' a.t >a.u &&
439 keyword substitution: kv
440 total revisions: 13; selected revisions: 1
443 ----------------------------
445 date: $date; author: w; state: s; lines: +14 -1
446 =============================================================================
448 test $? = 0 || { echo "#rlog failed"; exit 1; }
451 test ! -f $lockfile || { echo "#lock file not removed"; exit 1; }
453 rm -f a.* $RCSfile $RCS_alt