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 'create-options' => ["--zip64=1"], 14 'zip-member-tests' => ['zip64', '!ignore']); 15 16&test_zip ('files' => ['Makefile', $NEWS], 17 'create-options' => ["--zip64=0"], 18 'zip-member-tests' => ['!zip64', '!ignore']); 19