# Helpers for dealing with large numbers of packs.

# create $1 nonsense packs, each with a single blob
create_packs () {
        perl -le '
                my ($n) = @ARGV;
                for (1..$n) {
                        print "blob";
                        print "data <<EOF";
                        print "$_";
                        print "EOF";
                        print "checkpoint"
                }
        ' "$@" |
        git fast-import
}

# create a large number of packs, disabling any gc which might
# cause us to repack them
setup_many_packs () {
        git config gc.auto 0 &&
        git config gc.autopacklimit 0 &&
        git config fastimport.unpacklimit 0 &&
        create_packs 500
}