1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
     | 
    
      # 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
}
 
     |