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