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