add tests for vc-list-files
[gnulib.git] / tests / test-vc-list-files-cvs.sh
1 #!/bin/sh
2 # Unit tests for vc-list-files
3 # Copyright (C) 2008 Free Software Foundation, Inc.
4 # This file is part of the GNUlib Library.
5 #
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
10 #
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 # GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License
17 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
18
19 PATH="$abs_top_srcdir/build-aux":$PATH
20 export PATH
21
22 tmpdir=vc-cvs-$$
23 trap 'st=$?; cd '"`pwd`"' && rm -rf $tmpdir; exit $st' 0
24 trap '(exit $?); exit $?' 1 2 13 15
25
26 if ( diff --version < /dev/null 2>&1 | grep GNU ) 2>&1 > /dev/null; then
27   compare() { diff -u "$@"; }
28 elif ( cmp --version < /dev/null 2>&1 | grep GNU ) 2>&1 > /dev/null; then
29   compare() { cmp -s "$@"; }
30 else
31   compare() { cmp "$@"; }
32 fi
33
34 repo=`pwd`/$tmpdir/repo
35
36 fail=0
37 for i in with-cvsu without; do
38   # On the first iteration, test using cvsu, if it's in your path.
39   # On the second iteration, ensure that cvsu fails, so we'll
40   # exercise the awk-using code.
41   if test $i = without; then
42     printf '%s\n' '#!/bin/sh' 'exit 1' > cvsu
43     chmod a+x cvsu
44     PATH=`pwd`:$PATH
45     export PATH
46   fi
47   ok=0
48   mkdir $tmpdir && cd $tmpdir &&
49     # without cvs, skip the test
50     { cvs -Q -d "$repo" init || exit 77; } &&
51     mkdir w && cd w &&
52     mkdir d &&
53     touch d/a b c &&
54     cvs -Q -d "$repo" import -m imp m M M0 &&
55     cvs -Q -d "$repo" co m && cd m &&
56     printf '%s\n' b c d/a > expected &&
57     vc-list-files | sort > actual &&
58     compare expected actual &&
59     ok=1
60   test $ok = 0 && fail=1
61 done
62
63 (exit $fail); exit $fail