1#!/usr/bin/perl -w 2# ----------------------------------------------------------------------------- 3 4use strict; 5use lib ($0 =~ m|^(.*/)| ? $1 : "."); 6use LibGsfTest; 7use FileHandle; 8 9my $noise = 'noise.bin'; 10&LibGsfTest::junkfile ($noise); 11system ("dd", "if=/dev/urandom", "of=$noise", "bs=1048576", "count=10"); 12&test_zip ('files' => [$noise], 13 'zip-member-tests' => ['!zip64']); 14