Hack git-add--interactive to make it work with ActiveState Perl
[git] / t / t5000-tar-tree.sh
1 #!/bin/sh
2 #
3 # Copyright (C) 2005 Rene Scharfe
4 #
5
6 test_description='git tar-tree and git get-tar-commit-id test
7
8 This test covers the topics of file contents, commit date handling and
9 commit id embedding:
10
11   The contents of the repository is compared to the extracted tar
12   archive.  The repository contains simple text files, symlinks and a
13   binary file (/bin/sh).  Only paths shorter than 99 characters are
14   used.
15
16   git tar-tree applies the commit date to every file in the archive it
17   creates.  The test sets the commit date to a specific value and checks
18   if the tar archive contains that value.
19
20   When giving git tar-tree a commit id (in contrast to a tree id) it
21   embeds this commit id into the tar archive as a comment.  The test
22   checks the ability of git get-tar-commit-id to figure it out from the
23   tar file.
24
25 '
26
27 . ./test-lib.sh
28 TAR=${TAR:-tar}
29 UNZIP=${UNZIP:-unzip}
30
31 test_expect_success \
32     'populate workdir' \
33     'mkdir a b c &&
34      echo simple textfile >a/a &&
35      mkdir a/bin &&
36      cp /bin/sh a/bin &&
37      ln -s a a/l1 &&
38      (p=long_path_to_a_file && cd a &&
39       for depth in 1 2 3 4 5; do mkdir $p && cd $p; done &&
40       echo text >file_with_long_path) &&
41      (cd a && find .) | sort >a.lst'
42
43 test_expect_success \
44     'add files to repository' \
45     'find a -type f | xargs git update-index --add &&
46      find a -type l | xargs git update-index --add &&
47      treeid=`git write-tree` &&
48      echo $treeid >treeid &&
49      git update-ref HEAD $(TZ=GMT GIT_COMMITTER_DATE="2005-05-27 22:00:00" \
50      git commit-tree $treeid </dev/null)'
51
52 test_expect_success \
53     'git archive' \
54     'git archive HEAD >b.tar'
55
56 test_expect_success \
57     'git tar-tree' \
58     'git tar-tree HEAD >b2.tar'
59
60 test_expect_success \
61     'git archive vs. git tar-tree' \
62     'diff b.tar b2.tar'
63
64 test_expect_success \
65     'validate file modification time' \
66     'TZ=GMT $TAR tvf b.tar a/a |
67      awk \{print\ \$4,\ \(length\(\$5\)\<7\)\ ?\ \$5\":00\"\ :\ \$5\} \
68      >b.mtime &&
69      echo "2005-05-27 22:00:00" >expected.mtime &&
70      diff expected.mtime b.mtime'
71
72 test_expect_success \
73     'git get-tar-commit-id' \
74     'git get-tar-commit-id <b.tar >b.commitid &&
75      diff .git/$(git symbolic-ref HEAD) b.commitid'
76
77 test_expect_success \
78     'extract tar archive' \
79     '(cd b && $TAR xf -) <b.tar'
80
81 test_expect_success \
82     'validate filenames' \
83     '(cd b/a && find .) | sort >b.lst &&
84      diff a.lst b.lst'
85
86 test_expect_success \
87     'validate file contents' \
88     'diff -r a b/a'
89
90 test_expect_success \
91     'git tar-tree with prefix' \
92     'git tar-tree HEAD prefix >c.tar'
93
94 test_expect_success \
95     'extract tar archive with prefix' \
96     '(cd c && $TAR xf -) <c.tar'
97
98 test_expect_success \
99     'validate filenames with prefix' \
100     '(cd c/prefix/a && find .) | sort >c.lst &&
101      diff a.lst c.lst'
102
103 test_expect_success \
104     'validate file contents with prefix' \
105     'diff -r a c/prefix/a'
106
107 test_expect_success \
108     'git archive --format=zip' \
109     'git archive --format=zip HEAD >d.zip'
110
111 $UNZIP -v >/dev/null 2>&1
112 if [ $? -eq 127 ]; then
113         echo "Skipping ZIP tests, because unzip was not found"
114         test_done
115         exit
116 fi
117
118 test_expect_success \
119     'extract ZIP archive' \
120     '(mkdir d && cd d && $UNZIP ../d.zip)'
121
122 test_expect_success \
123     'validate filenames' \
124     '(cd d/a && find .) | sort >d.lst &&
125      diff a.lst d.lst'
126
127 test_expect_success \
128     'validate file contents' \
129     'diff -r a d/a'
130
131 test_expect_success \
132     'git archive --format=zip with prefix' \
133     'git archive --format=zip --prefix=prefix/ HEAD >e.zip'
134
135 test_expect_success \
136     'extract ZIP archive with prefix' \
137     '(mkdir e && cd e && $UNZIP ../e.zip)'
138
139 test_expect_success \
140     'validate filenames with prefix' \
141     '(cd e/prefix/a && find .) | sort >e.lst &&
142      diff a.lst e.lst'
143
144 test_expect_success \
145     'validate file contents with prefix' \
146     'diff -r a e/prefix/a'
147
148 test_expect_success \
149     'git archive --list outside of a git repo' \
150     'GIT_DIR=some/non-existing/directory git archive --list'
151
152 test_done