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