1#!/usr/bin/perl -w 2# ----------------------------------------------------------------------------- 3 4use strict; 5use lib ($0 =~ m|^(.*/)| ? $1 : "."); 6use LibGsfTest; 7 8my $NEWS = 'NEWS'; 9&LibGsfTest::junkfile ($NEWS); 10system ("cp", "$topsrc/NEWS", $NEWS); 11 12&test_zip ('files' => ['Makefile', $NEWS], 13 'zip-member-tests' => ['!zip64']); 14