home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / rcs57pc3.zip / rcs / src / rcstest < prev    next >
Text File  |  1995-06-16  |  11KB  |  455 lines
  1. #! /bin/sh
  2.  
  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.
  6.  
  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.
  12.  
  13. # If diff outputs `No differences encountered' when comparing identical files,
  14. # then rcstest may also output these noise lines; ignore them.
  15.  
  16. # The current directory and ./RCS must be readable, writable, and searchable.
  17.  
  18. #    $Id: rcstest,v 5.14 1995/06/16 06:19:24 eggert Exp $
  19.  
  20.  
  21. #    Copyright 1990, 1991, 1992, 1993, 1994, 1995 Paul Eggert
  22. #    Distributed under license by the Free Software Foundation, Inc.
  23. #
  24. # This file is part of RCS.
  25. #
  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)
  29. # any later version.
  30. #
  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.
  35. #
  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.
  40. #
  41. # Report problems and direct all questions to:
  42. #
  43. #     rcs-bugs@cs.purdue.edu
  44.  
  45. # The Makefile overrides the following defaults.
  46. : ${ALL_CFLAGS=-Dhas_conf_h}
  47. : ${CC=cc}
  48. : ${DIFF=diff}
  49. # : ${LDFLAGS=} ${LIBS=} tickles old shell bug
  50.  
  51. CL="$CC $ALL_CFLAGS $LDFLAGS -o a.out"
  52. L=$LIBS
  53.  
  54. RCSINIT=-x
  55. export RCSINIT
  56.  
  57. SLASH=/
  58. RCSfile=RCS${SLASH}a.c
  59. RCS_alt=RCS${SLASH}a.d
  60. lockfile=RCS${SLASH}a._
  61.  
  62. case $1 in
  63. -v) q=; set -x;;
  64. '') q=-q;;
  65. *) echo >&2 "$0: usage: $0 [-v]"; exit 2
  66. esac
  67.  
  68. if test -d RCS
  69. then rmdir=:
  70. else rmdir=rmdir; mkdir RCS || exit
  71. fi
  72.  
  73. rm -f a.* $RCSfile $RCS_alt $lockfile &&
  74. echo 1.1 >a.11 &&
  75. echo 1.1.1.1 >a.3x1 &&
  76. echo 1.2 >a.12 || { echo "#initialization failed"; exit 2; }
  77.  
  78. case "`$DIFF -c a.11 a.3x1`" in
  79. *!\ 1.1.1.1)
  80.     diff="$DIFF -c";;
  81. *)
  82.     echo "#warning: $DIFF -c does not work, so diagnostics may be cryptic"
  83.     diff=$DIFF
  84. esac
  85.  
  86. rcs -i -L -ta.11 $q a.c &&
  87. test -r $RCSfile || {
  88.     echo "#rcs -i -L failed; perhaps RCS is not properly installed."
  89.     exit 1
  90. }
  91.  
  92. rlog a.c >/dev/null || { echo "#rlog failed on empty RCS file"; exit 1; }
  93. rm -f $RCSfile || exit 2
  94.  
  95. cp a.11 a.c &&
  96. ci -ta.11 -mm $q a.c &&
  97. test -r $RCSfile &&
  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; }
  100. for l in '' '-l'
  101. do
  102.     co $l $q a.c &&
  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; }
  105. done
  106.  
  107. cp a.12 a.c &&
  108. ci -mm $q a.c &&
  109. co $q a.c &&
  110. $diff a.12 a.c || { echo "#ci+co failed"; exit 1; }
  111.  
  112. rm -f a.c &&
  113. co -r1.1 $q a.c &&
  114. $diff a.11 a.c || { echo "#can't retrieve first revision"; exit 1; }
  115.  
  116. rm -f a.c &&
  117. cp a.3x1 a.c &&
  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; }
  121.  
  122. rm -f a.c &&
  123. co -l $q a.c &&
  124. ci -f -mm $q a.c &&
  125. co -r1.3 $q a.c &&
  126. $diff a.12 a.c || { echo "#(co -l; ci -f) failed"; exit 1; }
  127.  
  128. rm -f a.c &&
  129. co -l $q a.c &&
  130. echo 1.4 >a.c &&
  131. ci -l -mm $q a.c &&
  132. echo error >a.c &&
  133. ci -mm $q a.c || { echo "#ci -l failed"; exit 1; }
  134.  
  135. rm -f a.c &&
  136. co -l $q a.c &&
  137. echo 1.5 >a.c &&
  138. ci -u -mm $q a.c &&
  139. test -r a.c || { echo "#ci -u didn't create a working file"; exit 1; }
  140. rm -f a.c &&
  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; }
  143.  
  144. rm -f a.c &&
  145. rcs -l $q a.c &&
  146. co -u $q a.c || { echo "#rcs -l + co -u failed"; exit 1; }
  147. rm -f a.c &&
  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; }
  150.  
  151. rm -f a.c &&
  152. cp a.11 a.c &&
  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; }
  155.  
  156. co -p1.1 $q a.c >a.t &&
  157. $diff a.11 a.t || { echo "#co -p failed"; exit 1; }
  158.  
  159. for n in n N
  160. do
  161.     rm -f a.c &&
  162.     co -l $q a.c &&
  163.     echo $n >a.$n &&
  164.     cp a.$n a.c &&
  165.     ci -${n}n -mm $q a.c &&
  166.     co -rn $q a.c &&
  167.     $diff a.$n a.c || { echo "#ci -$n failed"; exit 1; }
  168. done
  169.  
  170. case $LOGNAME in
  171. ?*) me=$LOGNAME;;
  172. *)
  173.     case $USER in
  174.     ?*) me=$USER;;
  175.     *)
  176.         me=`who am i` || exit 2
  177.         me=`echo "$me" | sed -e 's/ .*//' -e 's/.*!//'`
  178.         case $me in
  179.         '') echo >&2 "$0: cannot deduce user name"; exit 2
  180.         esac
  181.     esac
  182. esac
  183.  
  184.  
  185. # Get the date of the previous revision in UTC.
  186. date=`rlog -r a.c | sed -n '/^date: /{ s///; s/;.*//; p; q; }'` || exit
  187. case $date in
  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
  190. esac
  191. PWD=`pwd` && export PWD &&
  192. rm -f a.c &&
  193. co -l $q a.c &&
  194. sed 's/@/$/g' >a.kv <<EOF
  195. @Author: w @
  196. @Date: $date @
  197. @Header: $PWD$SLASH$RCSfile 2.1 $date w s @
  198. @Id: a.c 2.1 $date w s @
  199. @Locker:  @
  200.  * @Log: a.c @
  201.  * Revision 2.1  $date  w
  202.  * m
  203.  *
  204. @Name: Oz @
  205. @RCSfile: a.c @
  206. @Revision: 2.1 @
  207. @Source: $PWD$SLASH$RCSfile @
  208. @State: s @
  209. EOF
  210. test $? = 0 &&
  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 &&
  217. cp a.o a.c &&
  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
  223. rcs -oOz $q a.c &&
  224. rcs -l $q a.c &&
  225. ci -k -u $q a.c &&
  226. $diff a.kv a.c || { echo "#ci -k failed"; exit 1; }
  227. sed -n 's/^[^$]*\$/$/p' a.kv >a.i &&
  228. ident a.c >a.i1 &&
  229. sed -e 1d -e 's/^[     ]*//' a.i1 >a.i2 &&
  230. $diff a.i a.i2 || { echo "#ident failed"; exit 1; }
  231.  
  232. rcs -i $q a.c 2>/dev/null && { echo "#rcs -i permitted existing file"; exit 1; }
  233.  
  234. rm -f a.c &&
  235. co -l $q a.c &&
  236. echo 2.2 >a.c &&
  237. ci -mm $q a.c &&
  238. echo 1.1.1.2 >a.c &&
  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; }
  243. rcs -b $q a.c &&
  244. test " `co -p $q a.c`" = ' 2.2' || { echo "#rcs -b failed"; exit 1; }
  245.  
  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; }
  252.  
  253. rm -f a.c &&
  254. log0=`rlog -h a.c` &&
  255. co -l $q a.c &&
  256. ci -mm $q a.c &&
  257. log1=`rlog -h a.c` &&
  258. test " $log0" = " $log1" || { echo "#unchanged ci didn't revert"; exit 1; }
  259.  
  260. rm -f a.c &&
  261. rcs -nN:1.1 $q a.c &&
  262. co -rN $q a.c &&
  263. $diff a.11 a.c || { echo "#rcs -n failed"; exit 1; }
  264.  
  265. rm -f a.c &&
  266. rcs -NN:2.1 $q a.c &&
  267. co -rN $q a.c &&
  268. $diff a.N a.c || { echo "#rcs -N failed"; exit 1; }
  269.  
  270. rm -f a.c &&
  271. co -l $q a.c &&
  272. echo ':::$''Log$' >a.c &&
  273. ci -u -mm $q a.c &&
  274. test " `sed '$!d' a.c`" = ' :::' || { echo "#comment leader failed"; exit 1; }
  275.  
  276. rm -f a.c &&
  277. rcs -o2.2: $q a.c &&
  278. co $q a.c &&
  279. $diff a.e a.c || { echo "#rcs -o failed"; exit 1; }
  280.  
  281. rcsdiff -r1.1 -rOz $q a.c >a.0
  282. case $? in
  283. 1) ;;
  284. *) echo "#rcsdiff bad status"; exit 1
  285. esac
  286. $DIFF a.11 a.kv >a.1
  287. $diff a.0 a.1 || { echo "#rcsdiff failed"; exit 1; }
  288.  
  289. rcs -l2.1 $q a.c || { echo "#rcs -l2.1 failed"; exit 1; }
  290. for i in b k kv kvl o v
  291. do
  292.     rm -f a.c &&
  293.     cp a.$i a.c &&
  294.     rcsdiff -k$i -rOz $q a.c || { echo "#rcsdiff -k$i failed"; exit 1; }
  295. done
  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; }
  299.  
  300. rm -f a.c &&
  301. rcsclean $q a.c &&
  302. rcsclean -u $q a.c || { echo "#rcsclean botched a nonexistent file"; exit 1; }
  303.  
  304. rm -f a.c &&
  305. co $q a.c &&
  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; }
  309.  
  310. rm -f a.c &&
  311. co $q a.c &&
  312. rcsclean $q a.c &&
  313. test ! -f a.c || { echo "#rcsclean missed an unlocked file"; exit 1; }
  314.  
  315. rm -f a.c &&
  316. co -l $q a.c &&
  317. rcsclean $q a.c &&
  318. test -f a.c || { echo "#rcsclean removed a locked file"; exit 1; }
  319. rcsclean -u $q a.c &&
  320. test ! -f a.c || {
  321.     echo "#rcsclean -u missed an unchanged locked file"; exit 1;
  322. }
  323.  
  324. rm -f a.c &&
  325. co -l $q a.c &&
  326. echo change >>a.c &&
  327. rcsclean $q a.c &&
  328. rcsclean $q -u a.c &&
  329. test -f a.c || { echo "#rcsclean removed a changed file"; exit 1; }
  330.  
  331. rm -f a.c &&
  332. co -l $q a.c &&
  333. cat >a.c <<'EOF'
  334. 2.2
  335. a
  336. b
  337. c
  338. d
  339. EOF
  340. test $? = 0 &&
  341. ci -l -mm $q a.c &&
  342. co -p2.2 $q a.c | sed -e s/2.2/2.3/ -e s/b/b1/ >a.c &&
  343. ci -l -mm $q a.c &&
  344. co -p2.2 $q a.c | sed -e s/2.2/new/ -e s/d/d1/ >a.c || exit 2
  345. cat >a.0 <<'EOF'
  346. 2.3
  347. a
  348. b1
  349. c
  350. d1
  351. EOF
  352. cat >a.1 <<'EOF'
  353. <<<<<<< a.c
  354. new
  355. =======
  356. 2.3
  357. >>>>>>> 2.3
  358. a
  359. b1
  360. c
  361. d1
  362. EOF
  363. rcsmerge -E -r2.2 -r2.3 $q a.c
  364. case $? in
  365. 0)
  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."
  369.     else
  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."
  373.     fi
  374.     ;;
  375. 1)
  376.     $diff a.1 a.c || { echo "#rcsmerge failed (status 1)"; exit 1; }
  377.     ;;
  378. *)
  379.     echo "#rcsmerge bad status"; exit 1
  380. esac
  381.  
  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.
  386. cat >a.c <<'EOF'
  387. #include <stdio.h>
  388. int main() {
  389.     int c;
  390.     while ((c=getchar()) != EOF)
  391.         putchar(c ^ '\n');
  392.     return 0;
  393. }
  394. EOF
  395. tr=tr
  396. if (rm -f a.exe a.out && $CL a.c $L >&2) >/dev/null 2>&1
  397. then
  398.     if test -s a.out
  399.     then tr=./a.out
  400.     elif test -s a.exe
  401.     then tr=./a.exe
  402.     fi
  403. fi
  404. {
  405.     co -p $q a.c | $tr '\012' '\200' >a.24 &&
  406.     cp a.24 a.c &&
  407.     ciOut=`(ci -l -mm $q a.c 2>&1)` &&
  408.     case $ciOut in
  409.     ?*) echo >&2 "$ciOut"
  410.     esac &&
  411.     co -p $q a.c | $tr '\200' '\012' >a.c &&
  412.     rcsdiff -r2.3 $q a.c >/dev/null &&
  413.  
  414.     echo 2.5 >a.c &&
  415.     ci -l -mm $q a.c &&
  416.     cp a.24 a.c &&
  417.     rcsdiff -r2.4 $q a.c >/dev/null
  418. } || echo "#warning: Traditional diff is used, so RCS is limited to text files."
  419.  
  420. rcs -u -o2.4: $q a.c || { echo "#rcs -u -o failed"; exit 1; }
  421.  
  422. rcs -i -Aa.c -t- $q a.d || { echo "#rcs -i -A failed"; exit 1; }
  423.  
  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 &&
  427. $diff - a.u <<EOF
  428.  
  429. RCS file: $RCSfile
  430. Working file: a.c
  431. head: 2.3
  432. branch:
  433. locks: strict
  434. access list:
  435. symbolic names:
  436.     N: 2.1
  437.     Oz: 2.1
  438.     n: 1.8
  439. keyword substitution: kv
  440. total revisions: 13;    selected revisions: 1
  441. description:
  442. 1.1
  443. ----------------------------
  444. revision 2.1
  445. date: $date;  author: w;  state: s;  lines: +14 -1
  446. =============================================================================
  447. EOF
  448. test $? = 0 || { echo "#rlog failed"; exit 1; }
  449.  
  450.  
  451. test ! -f $lockfile || { echo "#lock file not removed"; exit 1; }
  452.  
  453. rm -f a.* $RCSfile $RCS_alt
  454. $rmdir RCS
  455.