t/README: document more test helpers
[git] / t / t9119-git-svn-info.sh
1 #!/bin/sh
2 #
3 # Copyright (c) 2007 David D. Kilzer
4
5 test_description='git svn info'
6
7 . ./lib-git-svn.sh
8
9 # Tested with: svn, version 1.4.4 (r25188)
10 # Tested with: svn, version 1.6.[12345689]
11 v=`svn_cmd --version | sed -n -e 's/^svn, version \(1\.[0-9]*\.[0-9]*\).*$/\1/p'`
12 case $v in
13 1.[456].*)
14         ;;
15 *)
16         skip_all="skipping svn-info test (SVN version: $v not supported)"
17         test_done
18         ;;
19 esac
20
21 ptouch() {
22         perl -w -e '
23                 use strict;
24                 use POSIX qw(mktime);
25                 die "ptouch requires exactly 2 arguments" if @ARGV != 2;
26                 my $text_last_updated = shift @ARGV;
27                 my $git_file = shift @ARGV;
28                 die "\"$git_file\" does not exist" if ! -e $git_file;
29                 if ($text_last_updated
30                     =~ /(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})/) {
31                         my $mtime = mktime($6, $5, $4, $3, $2 - 1, $1 - 1900);
32                         my $atime = $mtime;
33                         utime $atime, $mtime, $git_file;
34                 }
35         ' "`svn_cmd info $2 | grep '^Text Last Updated:'`" "$1"
36 }
37
38 quoted_svnrepo="$(echo $svnrepo | sed 's/ /%20/')"
39
40 test_expect_success 'setup repository and import' '
41         mkdir info &&
42         cd info &&
43                 echo FIRST > A &&
44                 echo one > file &&
45                 ln -s file symlink-file &&
46                 mkdir directory &&
47                 touch directory/.placeholder &&
48                 ln -s directory symlink-directory &&
49                 svn_cmd import -m "initial" . "$svnrepo" &&
50         cd .. &&
51         svn_cmd co "$svnrepo" svnwc &&
52         cd svnwc &&
53                 echo foo > foo &&
54                 svn_cmd add foo &&
55                 svn_cmd commit -m "change outside directory" &&
56                 svn_cmd update &&
57         cd .. &&
58         mkdir gitwc &&
59         cd gitwc &&
60                 git svn init "$svnrepo" &&
61                 git svn fetch &&
62         cd .. &&
63         ptouch gitwc/file svnwc/file &&
64         ptouch gitwc/directory svnwc/directory &&
65         ptouch gitwc/symlink-file svnwc/symlink-file &&
66         ptouch gitwc/symlink-directory svnwc/symlink-directory
67         '
68
69 test_expect_success 'info' "
70         (cd svnwc; svn info) > expected.info &&
71         (cd gitwc; git svn info) > actual.info &&
72         test_cmp expected.info actual.info
73         "
74
75 test_expect_success 'info --url' '
76         test "$(cd gitwc; git svn info --url)" = "$quoted_svnrepo"
77         '
78
79 test_expect_success 'info .' "
80         (cd svnwc; svn info .) > expected.info-dot &&
81         (cd gitwc; git svn info .) > actual.info-dot &&
82         test_cmp expected.info-dot actual.info-dot
83         "
84
85 test_expect_success 'info --url .' '
86         test "$(cd gitwc; git svn info --url .)" = "$quoted_svnrepo"
87         '
88
89 test_expect_success 'info file' "
90         (cd svnwc; svn info file) > expected.info-file &&
91         (cd gitwc; git svn info file) > actual.info-file &&
92         test_cmp expected.info-file actual.info-file
93         "
94
95 test_expect_success 'info --url file' '
96         test "$(cd gitwc; git svn info --url file)" = "$quoted_svnrepo/file"
97         '
98
99 test_expect_success 'info directory' "
100         (cd svnwc; svn info directory) > expected.info-directory &&
101         (cd gitwc; git svn info directory) > actual.info-directory &&
102         test_cmp expected.info-directory actual.info-directory
103         "
104
105 test_expect_success 'info inside directory' "
106         (cd svnwc/directory; svn info) > expected.info-inside-directory &&
107         (cd gitwc/directory; git svn info) > actual.info-inside-directory &&
108         test_cmp expected.info-inside-directory actual.info-inside-directory
109         "
110
111 test_expect_success 'info --url directory' '
112         test "$(cd gitwc; git svn info --url directory)" = "$quoted_svnrepo/directory"
113         '
114
115 test_expect_success 'info symlink-file' "
116         (cd svnwc; svn info symlink-file) > expected.info-symlink-file &&
117         (cd gitwc; git svn info symlink-file) > actual.info-symlink-file &&
118         test_cmp expected.info-symlink-file actual.info-symlink-file
119         "
120
121 test_expect_success 'info --url symlink-file' '
122         test "$(cd gitwc; git svn info --url symlink-file)" \
123              = "$quoted_svnrepo/symlink-file"
124         '
125
126 test_expect_success 'info symlink-directory' "
127         (cd svnwc; svn info symlink-directory) \
128                 > expected.info-symlink-directory &&
129         (cd gitwc; git svn info symlink-directory) \
130                 > actual.info-symlink-directory &&
131         test_cmp expected.info-symlink-directory actual.info-symlink-directory
132         "
133
134 test_expect_success 'info --url symlink-directory' '
135         test "$(cd gitwc; git svn info --url symlink-directory)" \
136              = "$quoted_svnrepo/symlink-directory"
137         '
138
139 test_expect_success 'info added-file' "
140         echo two > gitwc/added-file &&
141         cd gitwc &&
142                 git add added-file &&
143         cd .. &&
144         cp gitwc/added-file svnwc/added-file &&
145         ptouch gitwc/added-file svnwc/added-file &&
146         cd svnwc &&
147                 svn_cmd add added-file > /dev/null &&
148         cd .. &&
149         (cd svnwc; svn info added-file) > expected.info-added-file &&
150         (cd gitwc; git svn info added-file) > actual.info-added-file &&
151         test_cmp expected.info-added-file actual.info-added-file
152         "
153
154 test_expect_success 'info --url added-file' '
155         test "$(cd gitwc; git svn info --url added-file)" \
156              = "$quoted_svnrepo/added-file"
157         '
158
159 test_expect_success 'info added-directory' "
160         mkdir gitwc/added-directory svnwc/added-directory &&
161         ptouch gitwc/added-directory svnwc/added-directory &&
162         touch gitwc/added-directory/.placeholder &&
163         cd svnwc &&
164                 svn_cmd add added-directory > /dev/null &&
165         cd .. &&
166         cd gitwc &&
167                 git add added-directory &&
168         cd .. &&
169         (cd svnwc; svn info added-directory) \
170                 > expected.info-added-directory &&
171         (cd gitwc; git svn info added-directory) \
172                 > actual.info-added-directory &&
173         test_cmp expected.info-added-directory actual.info-added-directory
174         "
175
176 test_expect_success 'info --url added-directory' '
177         test "$(cd gitwc; git svn info --url added-directory)" \
178              = "$quoted_svnrepo/added-directory"
179         '
180
181 test_expect_success 'info added-symlink-file' "
182         cd gitwc &&
183                 ln -s added-file added-symlink-file &&
184                 git add added-symlink-file &&
185         cd .. &&
186         cd svnwc &&
187                 ln -s added-file added-symlink-file &&
188                 svn_cmd add added-symlink-file > /dev/null &&
189         cd .. &&
190         ptouch gitwc/added-symlink-file svnwc/added-symlink-file &&
191         (cd svnwc; svn info added-symlink-file) \
192                 > expected.info-added-symlink-file &&
193         (cd gitwc; git svn info added-symlink-file) \
194                 > actual.info-added-symlink-file &&
195         test_cmp expected.info-added-symlink-file \
196                  actual.info-added-symlink-file
197         "
198
199 test_expect_success 'info --url added-symlink-file' '
200         test "$(cd gitwc; git svn info --url added-symlink-file)" \
201              = "$quoted_svnrepo/added-symlink-file"
202         '
203
204 test_expect_success 'info added-symlink-directory' "
205         cd gitwc &&
206                 ln -s added-directory added-symlink-directory &&
207                 git add added-symlink-directory &&
208         cd .. &&
209         cd svnwc &&
210                 ln -s added-directory added-symlink-directory &&
211                 svn_cmd add added-symlink-directory > /dev/null &&
212         cd .. &&
213         ptouch gitwc/added-symlink-directory svnwc/added-symlink-directory &&
214         (cd svnwc; svn info added-symlink-directory) \
215                 > expected.info-added-symlink-directory &&
216         (cd gitwc; git svn info added-symlink-directory) \
217                 > actual.info-added-symlink-directory &&
218         test_cmp expected.info-added-symlink-directory \
219                  actual.info-added-symlink-directory
220         "
221
222 test_expect_success 'info --url added-symlink-directory' '
223         test "$(cd gitwc; git svn info --url added-symlink-directory)" \
224              = "$quoted_svnrepo/added-symlink-directory"
225         '
226
227 # The next few tests replace the "Text Last Updated" value with a
228 # placeholder since git doesn't have a way to know the date that a
229 # now-deleted file was last checked out locally.  Internally it
230 # simply reuses the Last Changed Date.
231
232 test_expect_success 'info deleted-file' "
233         cd gitwc &&
234                 git rm -f file > /dev/null &&
235         cd .. &&
236         cd svnwc &&
237                 svn_cmd rm --force file > /dev/null &&
238         cd .. &&
239         (cd svnwc; svn info file) |
240         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
241                 > expected.info-deleted-file &&
242         (cd gitwc; git svn info file) |
243         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
244                 > actual.info-deleted-file &&
245         test_cmp expected.info-deleted-file actual.info-deleted-file
246         "
247
248 test_expect_success 'info --url file (deleted)' '
249         test "$(cd gitwc; git svn info --url file)" \
250              = "$quoted_svnrepo/file"
251         '
252
253 test_expect_success 'info deleted-directory' "
254         cd gitwc &&
255                 git rm -r -f directory > /dev/null &&
256         cd .. &&
257         cd svnwc &&
258                 svn_cmd rm --force directory > /dev/null &&
259         cd .. &&
260         (cd svnwc; svn info directory) |
261         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
262                 > expected.info-deleted-directory &&
263         (cd gitwc; git svn info directory) |
264         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
265                 > actual.info-deleted-directory &&
266         test_cmp expected.info-deleted-directory actual.info-deleted-directory
267         "
268
269 test_expect_success 'info --url directory (deleted)' '
270         test "$(cd gitwc; git svn info --url directory)" \
271              = "$quoted_svnrepo/directory"
272         '
273
274 test_expect_success 'info deleted-symlink-file' "
275         cd gitwc &&
276                 git rm -f symlink-file > /dev/null &&
277         cd .. &&
278         cd svnwc &&
279                 svn_cmd rm --force symlink-file > /dev/null &&
280         cd .. &&
281         (cd svnwc; svn info symlink-file) |
282         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
283                 > expected.info-deleted-symlink-file &&
284         (cd gitwc; git svn info symlink-file) |
285         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
286                 > actual.info-deleted-symlink-file &&
287         test_cmp expected.info-deleted-symlink-file \
288                  actual.info-deleted-symlink-file
289         "
290
291 test_expect_success 'info --url symlink-file (deleted)' '
292         test "$(cd gitwc; git svn info --url symlink-file)" \
293              = "$quoted_svnrepo/symlink-file"
294         '
295
296 test_expect_success 'info deleted-symlink-directory' "
297         cd gitwc &&
298                 git rm -f symlink-directory > /dev/null &&
299         cd .. &&
300         cd svnwc &&
301                 svn_cmd rm --force symlink-directory > /dev/null &&
302         cd .. &&
303         (cd svnwc; svn info symlink-directory) |
304         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
305                  > expected.info-deleted-symlink-directory &&
306         (cd gitwc; git svn info symlink-directory) |
307         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
308                  > actual.info-deleted-symlink-directory &&
309         test_cmp expected.info-deleted-symlink-directory \
310                  actual.info-deleted-symlink-directory
311         "
312
313 test_expect_success 'info --url symlink-directory (deleted)' '
314         test "$(cd gitwc; git svn info --url symlink-directory)" \
315              = "$quoted_svnrepo/symlink-directory"
316         '
317
318 # NOTE: git does not have the concept of replaced objects,
319 # so we can't test for files in that state.
320
321 test_expect_success 'info unknown-file' "
322         echo two > gitwc/unknown-file &&
323         (cd gitwc; test_must_fail git svn info unknown-file) \
324                  2> actual.info-unknown-file &&
325         grep unknown-file actual.info-unknown-file
326         "
327
328 test_expect_success 'info --url unknown-file' '
329         echo two > gitwc/unknown-file &&
330         (cd gitwc; test_must_fail git svn info --url unknown-file) \
331                  2> actual.info-url-unknown-file &&
332         grep unknown-file actual.info-url-unknown-file
333         '
334
335 test_expect_success 'info unknown-directory' "
336         mkdir gitwc/unknown-directory svnwc/unknown-directory &&
337         (cd gitwc; test_must_fail git svn info unknown-directory) \
338                  2> actual.info-unknown-directory &&
339         grep unknown-directory actual.info-unknown-directory
340         "
341
342 test_expect_success 'info --url unknown-directory' '
343         (cd gitwc; test_must_fail git svn info --url unknown-directory) \
344                  2> actual.info-url-unknown-directory &&
345         grep unknown-directory actual.info-url-unknown-directory
346         '
347
348 test_expect_success 'info unknown-symlink-file' "
349         cd gitwc &&
350                 ln -s unknown-file unknown-symlink-file &&
351         cd .. &&
352         (cd gitwc; test_must_fail git svn info unknown-symlink-file) \
353                  2> actual.info-unknown-symlink-file &&
354         grep unknown-symlink-file actual.info-unknown-symlink-file
355         "
356
357 test_expect_success 'info --url unknown-symlink-file' '
358         (cd gitwc; test_must_fail git svn info --url unknown-symlink-file) \
359                  2> actual.info-url-unknown-symlink-file &&
360         grep unknown-symlink-file actual.info-url-unknown-symlink-file
361         '
362
363 test_expect_success 'info unknown-symlink-directory' "
364         cd gitwc &&
365                 ln -s unknown-directory unknown-symlink-directory &&
366         cd .. &&
367         (cd gitwc; test_must_fail git svn info unknown-symlink-directory) \
368                  2> actual.info-unknown-symlink-directory &&
369         grep unknown-symlink-directory actual.info-unknown-symlink-directory
370         "
371
372 test_expect_success 'info --url unknown-symlink-directory' '
373         (cd gitwc; test_must_fail git svn info --url unknown-symlink-directory) \
374                  2> actual.info-url-unknown-symlink-directory &&
375         grep unknown-symlink-directory actual.info-url-unknown-symlink-directory
376         '
377
378 test_done