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