1#!/usr/bin/perl -w
2# -----------------------------------------------------------------------------
3
4use strict;
5use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6use LibGsfTest;
7use FileHandle;
8
9my $aaaa = 'aaaa.txt';
10{
11    &LibGsfTest::junkfile ($aaaa);
12    my $f = new FileHandle ($aaaa, 'w') or
13	die "Failed to create $aaaa: $!\n";
14    print $f "a"x10000000;
15}
16
17&test_zip ('files' => [$aaaa],
18	   'zip-member-tests' => ['!zip64']);
19