pivot table procedure conceptually works
[pspp] / tests / libpspp / zip.at
1 AT_BANNER([zip])
2
3 AT_SETUP([Basic zip - unzip test])
4 AT_KEYWORDS([compression])
5
6 AT_CHECK([dnl
7 here=`pwd`
8 dir1=$here/original
9 dir2=$here/recovered
10
11 mkdir -p $dir1
12
13 # Generate files of differing sizes with random data in them
14 names=""
15 s=1;
16 while test $s -le 8192 ; do
17         name=$dir1/$s
18         dd if=/dev/urandom of=$name count=1 bs=$s 2> /dev/null
19         s=$(($s * 2));
20         bn=`basename $name`;
21         names="$names $bn";
22 done
23
24 (cd $dir1 && $abs_top_builddir/tests/libpspp/zip-test w foo.zip $names)
25
26
27 mkdir -p $dir2
28 cp $dir1/foo.zip $dir2
29 cd $dir2 
30 $abs_top_builddir/tests/libpspp/zip-test r foo.zip $names
31
32 # Compare the files to their originals
33 for f in $names; do
34  diff $dir1/$f $dir2/$f;
35  if test $? -ne 0 ; then exit 1; fi;
36 done
37
38 exit 0
39 ])
40
41
42 AT_CLEANUP
43