File: dir.test

package info (click to toggle)
cabextract 1.11-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,884 kB
  • sloc: ansic: 5,826; sh: 5,331; perl: 462; makefile: 88
file content (59 lines) | stat: -rwxr-xr-x 1,422 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/bin/sh
# test that cabextract creates directories as expected
. test/testcase

# extract to user-chosen absolute path
"$cabextract" -d $tmpdir/test cabs/dir.cab >$actual
compare_with <<EOF
Extracting cabinet: cabs/dir.cab
  extracting $tmpdir/test/plain.c
  extracting $tmpdir/test/1/2/3/4.c

All done, no errors.
EOF

# cd to $tmpdir
basedir=`pwd`
cd $tmpdir || exit 1

# extract to current path
"$cabextract" "$basedir/cabs/dir.cab" >$actual
compare_with <<EOF
Extracting cabinet: $basedir/cabs/dir.cab
  extracting plain.c
  extracting 1/2/3/4.c

All done, no errors.
EOF

# extract to user-chosen relative directory
"$cabextract" -d tdir "$basedir/cabs/dir.cab" >$actual
compare_with <<EOF
Extracting cabinet: $basedir/cabs/dir.cab
  extracting tdir/plain.c
  extracting tdir/1/2/3/4.c

All done, no errors.
EOF

# extract to user-chosen relative directory with two elements
"$cabextract" -d a/b "$basedir/cabs/dir.cab" >$actual
compare_with <<EOF
Extracting cabinet: $basedir/cabs/dir.cab
  extracting a/b/plain.c
  extracting a/b/1/2/3/4.c

All done, no errors.
EOF

# extract to user-chosen relative directory with two elements, one of which already exists
"$cabextract" -d tdir/a "$basedir/cabs/dir.cab" >$actual
compare_with <<EOF
Extracting cabinet: $basedir/cabs/dir.cab
  extracting tdir/a/plain.c
  extracting tdir/a/1/2/3/4.c

All done, no errors.
EOF

read status < $status && test "x$status" = xsuccess