2 . ./wvtest-bup.sh || exit $?
7 top="$(WVPASS pwd)" || exit $?
8 tmpdir="$(WVPASS wvmktempdir)" || exit $?
10 export BUP_DIR="$tmpdir/bup"
11 export GIT_DIR="$tmpdir/bup"
13 if test "$BUP_TEST_REMOTE_REPO"; then
19 bup() { "$top/bup" "$@"; }
22 if test "$BUP_TEST_REMOTE_REPO"; then
23 "$top/bup" ls -r "$BUP_DIR" "$@"
36 WVPASS touch src/.dotfile src/executable
37 WVPASS mkfifo src/fifo
38 WVPASS "$top"/t/mksock src/socket
39 WVPASS bup random 1k > src/file
40 WVPASS chmod u+x src/executable
41 WVPASS chmod -R u=rwX,g-rwx,o-rwx .
42 WVPASS touch -t 200910032348 src/.dotfile src/*
43 (WVPASS cd src; WVPASS ln -s file symlink) || exit $?
44 (WVPASS cd src; WVPASS ln -s not-there bad-symlink) || exit $?
45 WVPASS touch -t 200910032348 src
46 WVPASS touch -t 200910032348 .
48 # Include two saves to test multiple results per ref from rev_list.
49 WVPASS bup save -n src -d 242312159 --strip src
50 WVPASS bup save -n src -d 242312160 --strip src
51 WVPASS bup tag some-tag src
53 uid="$(WVPASS id -u)" || exit $?
54 gid="$(WVPASS bup-python -c 'import os; print(os.stat("src").st_gid)')" || exit $?
55 user="$(WVPASS id -un)" || exit $?
56 group="$(WVPASS bup-python -c 'import grp, os;
57 print(grp.getgrgid(os.stat("src").st_gid)[0])')" || exit $?
58 src_commit_hash=$(git log --format=%H -n1 src)
59 src_tree_hash=$(git log --format=%T -n1 src)
62 WVSTART "$ls_cmd_desc (short)"
64 (export BUP_FORCE_TTY=1; WVPASSEQ "$(WVPASS bup-ls | tr -d ' ')" src)
66 WVPASSEQ "$(WVPASS bup-ls /)" "src"
68 WVPASSEQ "$(WVPASS bup-ls -A /)" ".tag
71 WVPASSEQ "$(WVPASS bup-ls -AF /)" ".tag/
74 WVPASSEQ "$(WVPASS bup-ls -a /)" ".
79 WVPASSEQ "$(WVPASS bup-ls -aF /)" "./
84 WVPASSEQ "$(WVPASS bup-ls /.tag)" "some-tag"
86 WVPASSEQ "$(WVPASS bup-ls /src)" \
91 WVPASSEQ "$(WVPASS bup-ls src/latest)" "bad-symlink
98 WVPASSEQ "$(WVPASS bup-ls -A src/latest)" ".dotfile
106 WVPASSEQ "$(WVPASS bup-ls -a src/latest)" ".
116 WVPASSEQ "$(WVPASS bup-ls -F src/latest)" "bad-symlink@
123 WVPASSEQ "$(WVPASS bup-ls --file-type src/latest)" "bad-symlink@
130 WVPASSEQ "$(WVPASS bup-ls -d src/latest)" "src/latest"
133 WVSTART "$ls_cmd_desc (long)"
135 WVPASSEQ "$(WVPASS bup-ls -l / | tr -s ' ' ' ')" \
136 "drwx------ $user/$group 0 2009-10-03 23:48 src"
138 WVPASSEQ "$(WVPASS bup-ls -lA / | tr -s ' ' ' ')" \
139 "drwxr-xr-x 0/0 0 1970-01-01 00:00 .tag
140 drwx------ $user/$group 0 2009-10-03 23:48 src"
142 WVPASSEQ "$(WVPASS bup-ls -lAF / | tr -s ' ' ' ')" \
143 "drwxr-xr-x 0/0 0 1970-01-01 00:00 .tag/
144 drwx------ $user/$group 0 2009-10-03 23:48 src/"
146 WVPASSEQ "$(WVPASS bup-ls -la / | tr -s ' ' ' ')" \
147 "drwxr-xr-x 0/0 0 1970-01-01 00:00 .
148 drwxr-xr-x 0/0 0 1970-01-01 00:00 ..
149 drwxr-xr-x 0/0 0 1970-01-01 00:00 .tag
150 drwx------ $user/$group 0 2009-10-03 23:48 src"
152 WVPASSEQ "$(WVPASS bup-ls -laF / | tr -s ' ' ' ')" \
153 "drwxr-xr-x 0/0 0 1970-01-01 00:00 ./
154 drwxr-xr-x 0/0 0 1970-01-01 00:00 ../
155 drwxr-xr-x 0/0 0 1970-01-01 00:00 .tag/
156 drwx------ $user/$group 0 2009-10-03 23:48 src/"
158 socket_mode="$(WVPASS ls -l src/socket | cut -b -10)" || exit $?
161 bad_symlink_mode="$(WVPASS ls -l src/bad-symlink | cut -b -10)" || exit $?
163 bad_symlink_bup_info="$(WVPASS bup-ls -l src/latest | grep bad-symlink)" \
165 bad_symlink_date="$(WVPASS echo "$bad_symlink_bup_info" \
166 | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')" \
169 test "$bad_symlink_date" || exit 1
171 if test "$(uname -s)" != NetBSD; then
172 bad_symlink_size="$(WVPASS bup-python -c "import os
173 print(os.lstat('src/bad-symlink').st_size)")" || exit $?
175 # NetBSD appears to return varying sizes, so for now, just ignore it.
176 bad_symlink_size="$(WVPASS echo "$bad_symlink_bup_info" \
177 | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $1')" \
182 symlink_mode="$(WVPASS ls -l src/symlink | cut -b -10)" || exit $?
184 symlink_bup_info="$(WVPASS bup-ls -l src/latest | grep -E '[^-]symlink')" \
186 symlink_date="$(WVPASS echo "$symlink_bup_info" \
187 | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')" \
190 test "$symlink_date" || exit 1
192 if test "$(uname -s)" != NetBSD; then
193 symlink_size="$(WVPASS bup-python -c "import os
194 print(os.lstat('src/symlink').st_size)")" || exit $?
196 # NetBSD appears to return varying sizes, so for now, just ignore it.
197 symlink_size="$(WVPASS echo "$symlink_bup_info" \
198 | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $1')" \
202 WVPASSEQ "$(bup-ls -l src/latest | tr -s ' ' ' ')" \
203 "$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
204 -rwx------ $user/$group 0 2009-10-03 23:48 executable
205 prw------- $user/$group 0 2009-10-03 23:48 fifo
206 -rw------- $user/$group 1024 2009-10-03 23:48 file
207 $socket_mode $user/$group 0 2009-10-03 23:48 socket
208 $symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"
210 WVPASSEQ "$(bup-ls -la src/latest | tr -s ' ' ' ')" \
211 "drwx------ $user/$group 0 2009-10-03 23:48 .
212 drwx------ $user/$group 0 2009-10-03 23:48 ..
213 -rw------- $user/$group 0 2009-10-03 23:48 .dotfile
214 $bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
215 -rwx------ $user/$group 0 2009-10-03 23:48 executable
216 prw------- $user/$group 0 2009-10-03 23:48 fifo
217 -rw------- $user/$group 1024 2009-10-03 23:48 file
218 $socket_mode $user/$group 0 2009-10-03 23:48 socket
219 $symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"
221 WVPASSEQ "$(bup-ls -lA src/latest | tr -s ' ' ' ')" \
222 "-rw------- $user/$group 0 2009-10-03 23:48 .dotfile
223 $bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
224 -rwx------ $user/$group 0 2009-10-03 23:48 executable
225 prw------- $user/$group 0 2009-10-03 23:48 fifo
226 -rw------- $user/$group 1024 2009-10-03 23:48 file
227 $socket_mode $user/$group 0 2009-10-03 23:48 socket
228 $symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"
230 WVPASSEQ "$(bup-ls -lF src/latest | tr -s ' ' ' ')" \
231 "$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink@ -> not-there
232 -rwx------ $user/$group 0 2009-10-03 23:48 executable*
233 prw------- $user/$group 0 2009-10-03 23:48 fifo|
234 -rw------- $user/$group 1024 2009-10-03 23:48 file
235 $socket_mode $user/$group 0 2009-10-03 23:48 socket=
236 $symlink_mode $user/$group $symlink_size $symlink_date symlink@ -> file"
238 WVPASSEQ "$(bup-ls -l --file-type src/latest | tr -s ' ' ' ')" \
239 "$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink@ -> not-there
240 -rwx------ $user/$group 0 2009-10-03 23:48 executable
241 prw------- $user/$group 0 2009-10-03 23:48 fifo|
242 -rw------- $user/$group 1024 2009-10-03 23:48 file
243 $socket_mode $user/$group 0 2009-10-03 23:48 socket=
244 $symlink_mode $user/$group $symlink_size $symlink_date symlink@ -> file"
246 WVPASSEQ "$(bup-ls -ln src/latest | tr -s ' ' ' ')" \
247 "$bad_symlink_mode $uid/$gid $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
248 -rwx------ $uid/$gid 0 2009-10-03 23:48 executable
249 prw------- $uid/$gid 0 2009-10-03 23:48 fifo
250 -rw------- $uid/$gid 1024 2009-10-03 23:48 file
251 $socket_mode $uid/$gid 0 2009-10-03 23:48 socket
252 $symlink_mode $uid/$gid $symlink_size $symlink_date symlink -> file"
254 WVPASSEQ "$(bup-ls -ld "src/latest" | tr -s ' ' ' ')" \
255 "lrwxr-xr-x 0/0 17 1970-01-01 00:00 src/latest -> 1977-09-05-125600"
258 WVSTART "$ls_cmd_desc (backup set - long)"
259 WVPASSEQ "$(bup-ls -l --numeric-ids src | cut -d' ' -f 1-2)" \
260 "drwx------ $uid/$gid
264 WVPASSEQ "$(bup-ls -ds "src/1977-09-05-125600" | tr -s ' ' ' ')" \
265 "$src_tree_hash src/1977-09-05-125600"
267 WVPASSEQ "$(bup-ls -ds --commit-hash "src/1977-09-05-125600" | tr -s ' ' ' ')" \
268 "$src_commit_hash src/1977-09-05-125600"
271 WVSTART "$ls_cmd_desc (dates TZ != UTC)"
272 export TZ=America/Chicago
273 bad_symlink_date_central="$(bup-ls -l src/latest | grep bad-symlink)"
274 bad_symlink_date_central="$(echo "$bad_symlink_date_central" \
275 | perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')"
276 symlink_date_central="$(bup-ls -l src/latest | grep -E '[^-]symlink')"
277 symlink_date_central="$(echo "$symlink_date_central" \
278 | perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')"
279 WVPASSEQ "$(bup-ls -ln src/latest | tr -s ' ' ' ')" \
280 "$bad_symlink_mode $uid/$gid $bad_symlink_size $bad_symlink_date_central bad-symlink -> not-there
281 -rwx------ $uid/$gid 0 2009-10-03 18:48 executable
282 prw------- $uid/$gid 0 2009-10-03 18:48 fifo
283 -rw------- $uid/$gid 1024 2009-10-03 18:48 file
284 $socket_mode $uid/$gid 0 2009-10-03 18:48 socket
285 $symlink_mode $uid/$gid $symlink_size $symlink_date_central symlink -> file"
289 WVSTART "$ls_cmd_desc bad-symlink"
290 WVPASSEQ "$(bup-ls "src/latest/bad-symlink")" "src/latest/bad-symlink"
292 WVSTART "$ls_cmd_desc -l bad-symlink"
293 WVPASSEQ "$(bup-ls -l src/latest/bad-symlink | tr -s ' ' ' ')" \
294 "$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date src/latest/bad-symlink -> not-there"
297 WVPASS rm -rf "$tmpdir"