clone_submodule: avoid using `access()` on directories
[git.git] / t / t9600-cvsimport.sh
blob568084921896cfc59c04d68814467d6f7443a75e
1 #!/bin/sh
3 test_description='git cvsimport basic tests'
4 GIT_TEST_DEFAULT_INITIAL_BRANCH_NAME=main
5 export GIT_TEST_DEFAULT_INITIAL_BRANCH_NAME
7 . ./lib-cvs.sh
9 if ! test_have_prereq NOT_ROOT; then
10 skip_all='When cvs is compiled with CVS_BADROOT commits as root fail'
11 test_done
14 test_expect_success PERL 'setup cvsroot environment' '
15 CVSROOT=$(pwd)/cvsroot &&
16 export CVSROOT
19 test_expect_success PERL 'setup cvsroot' '$CVS init'
21 test_expect_success PERL 'setup a cvs module' '
23 mkdir "$CVSROOT/module" &&
24 $CVS co -d module-cvs module &&
25 (cd module-cvs &&
26 cat <<EOF >o_fortuna &&
27 O Fortuna
28 velut luna
29 statu variabilis,
31 semper crescis
32 aut decrescis;
33 vita detestabilis
35 nunc obdurat
36 et tunc curat
37 ludo mentis aciem,
39 egestatem,
40 potestatem
41 dissolvit ut glaciem.
42 EOF
43 $CVS add o_fortuna &&
44 cat <<EOF >message &&
45 add "O Fortuna" lyrics
47 These public domain lyrics make an excellent sample text.
48 EOF
49 $CVS commit -F message
53 test_expect_success PERL 'import a trivial module' '
55 git cvsimport -a -R -z 0 -C module-git module &&
56 test_cmp module-cvs/o_fortuna module-git/o_fortuna
60 test_expect_success PERL 'pack refs' '(cd module-git && git gc)'
62 test_expect_success PERL 'initial import has correct .git/cvs-revisions' '
64 (cd module-git &&
65 git log --format="o_fortuna 1.1 %H" -1) > expected &&
66 test_cmp expected module-git/.git/cvs-revisions
69 test_expect_success PERL 'update cvs module' '
70 (cd module-cvs &&
71 cat <<EOF >o_fortuna &&
72 O Fortune,
73 like the moon
74 you are changeable,
76 ever waxing
77 and waning;
78 hateful life
80 first oppresses
81 and then soothes
82 as fancy takes it;
84 poverty
85 and power
86 it melts them like ice.
87 EOF
88 cat <<EOF >message &&
89 translate to English
91 My Latin is terrible.
92 EOF
93 $CVS commit -F message
97 test_expect_success PERL 'update git module' '
99 (cd module-git &&
100 git config cvsimport.trackRevisions true &&
101 git cvsimport -a -z 0 module &&
102 git merge origin
103 ) &&
104 test_cmp module-cvs/o_fortuna module-git/o_fortuna
108 test_expect_success PERL 'update has correct .git/cvs-revisions' '
110 (cd module-git &&
111 git log --format="o_fortuna 1.1 %H" -1 HEAD^ &&
112 git log --format="o_fortuna 1.2 %H" -1 HEAD) > expected &&
113 test_cmp expected module-git/.git/cvs-revisions
116 test_expect_success PERL 'update cvs module' '
118 (cd module-cvs &&
119 echo 1 >tick &&
120 $CVS add tick &&
121 $CVS commit -m 1
125 test_expect_success PERL 'cvsimport.module config works' '
127 (cd module-git &&
128 git config cvsimport.module module &&
129 git config cvsimport.trackRevisions true &&
130 git cvsimport -a -z0 &&
131 git merge origin
132 ) &&
133 test_cmp module-cvs/tick module-git/tick
137 test_expect_success PERL 'second update has correct .git/cvs-revisions' '
139 (cd module-git &&
140 git log --format="o_fortuna 1.1 %H" -1 HEAD^^ &&
141 git log --format="o_fortuna 1.2 %H" -1 HEAD^ &&
142 git log --format="tick 1.1 %H" -1 HEAD) > expected &&
143 test_cmp expected module-git/.git/cvs-revisions
146 test_expect_success PERL 'import from a CVS working tree' '
148 $CVS co -d import-from-wt module &&
149 (cd import-from-wt &&
150 git config cvsimport.trackRevisions false &&
151 git cvsimport -a -z0 &&
152 echo 1 >expect &&
153 git log -1 --pretty=format:%s%n >actual &&
154 test_cmp expect actual
159 test_expect_success PERL 'no .git/cvs-revisions created by default' '
161 ! test -e import-from-wt/.git/cvs-revisions
165 test_expect_success PERL 'test entire HEAD' 'test_cmp_branch_tree main'
167 test_done