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