1#!/usr/bin/perl -w
2# -----------------------------------------------------------------------------
3
4use strict;
5use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6use LibGsfTest;
7
8my $archive = "test.zip";
9&LibGsfTest::junkfile ($archive);
10
11my $NEWS = 'NEWS';
12&LibGsfTest::junkfile ($NEWS);
13system ("cp", "$topsrc/NEWS", $NEWS);
14
15my @files = ('Makefile', $NEWS);
16
17print STDERR "Testing zip create\n";
18&test_valgrind ("$gsf createzip $archive @files", 1);
19print STDERR "\n";
20
21print STDERR "Testing zip list\n";
22&test_valgrind ("$gsf list $archive >/dev/null", 1);
23print STDERR "\n";
24
25print STDERR "Testing zip listprops\n";
26&test_valgrind ("$gsf listprops $archive >/dev/null", 1);
27print STDERR "\n";
28
29print STDERR "Testing zip cat\n";
30&test_valgrind ("$gsf cat $archive @files >/dev/null", 1);
31print STDERR "\n";
32