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