1 2 3 4 5 6 7 8 9
# -*- perl -*- use strict; use warnings; use tests::tests; use tests::random; my ($fs); $fs->{'x'}{"file$_"} = [random_bytes (512)] foreach 0...49; check_archive ($fs); pass;