#!/bin/sh

global test_description := ''test quickfetch from local''

source ./test-lib.sh

test_expect_success setup '

	test_tick &&
	echo ichi >file &&
	git add file &&
	git commit -m initial &&

	cnt=$( (
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 3
'

test_expect_success 'clone without alternate' '

	(
		mkdir cloned &&
		cd cloned &&
		git init-db &&
		git remote add -f origin ..
	) &&
	cnt=$( (
		cd cloned &&
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 3
'

test_expect_success 'further commits in the original' '

	test_tick &&
	echo ni >file &&
	git commit -a -m second &&

	cnt=$( (
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 6
'

test_expect_success 'copy commit and tree but not blob by hand' '

	git rev-list --objects HEAD |
	git pack-objects --stdout |
	(
		cd cloned &&
		git unpack-objects
	) &&

	cnt=$( (
		cd cloned &&
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 6 &&

	blob=$(git rev-parse HEAD:file | sed -e "s|..|&/|") &&
	test -f "cloned/.git/objects/$blob" &&
	rm -f "cloned/.git/objects/$blob" &&

	cnt=$( (
		cd cloned &&
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 5

'

test_expect_success 'quickfetch should not leave a corrupted repository' '

	(
		cd cloned &&
		git fetch
	) &&

	cnt=$( (
		cd cloned &&
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	test $cnt -eq 6

'

test_expect_success 'quickfetch should not copy from alternate' '

	(
		mkdir quickclone &&
		cd quickclone &&
		git init-db &&
		(cd ../.git/objects && pwd) >.git/objects/info/alternates &&
		git remote add origin .. &&
		git fetch -k -k
	) &&
	obj_cnt=$( (
		cd quickclone &&
		git count-objects | sed -e "s/ *objects,.*//"
	) ) &&
	pck_cnt=$( (
		cd quickclone &&
		git count-objects -v | sed -n -e "/packs:/{
				s/packs://
				p
				q
			}"
	) ) &&
	origin_master=$( (
		cd quickclone &&
		git rev-parse origin/master
	) ) &&
	echo "loose objects: $obj_cnt, packfiles: $pck_cnt" &&
	test $obj_cnt -eq 0 &&
	test $pck_cnt -eq 0 &&
	test z$origin_master = z$(git rev-parse master)

'

test_expect_success 'quickfetch should handle ~1000 refs (on Windows)' '

	git gc &&
	head=$(git rev-parse HEAD) &&
	branchprefix="$head refs/heads/branch" &&
	for i in 0 1 2 3 4 5 6 7 8 9; do
		for j in 0 1 2 3 4 5 6 7 8 9; do
			for k in 0 1 2 3 4 5 6 7 8 9; do
				echo "$branchprefix$i$j$k" >> .git/packed-refs
			done
		done
	done &&
	(
		cd cloned &&
		git fetch &&
		git fetch
	)

'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"test quickfetch from local">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(setup)} 
      {
        (SQ <"\n"> <"\n"> <"\ttest_tick &&\n"> <"\techo ichi >file &&\n"> <"\tgit add file &&\n"> 
          <"\tgit commit -m initial &&\n"> <"\n"> <"\tcnt=$( (\n"> <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> 
          <"\ttest $cnt -eq 3\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone without alternate">)} 
      {
        (SQ <"\n"> <"\n"> <"\t(\n"> <"\t\tmkdir cloned &&\n"> <"\t\tcd cloned &&\n"> 
          <"\t\tgit init-db &&\n"> <"\t\tgit remote add -f origin ..\n"> <"\t) &&\n"> <"\tcnt=$( (\n"> <"\t\tcd cloned &&\n"> 
          <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> <"\ttest $cnt -eq 3\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"further commits in the original">)} 
      {
        (SQ <"\n"> <"\n"> <"\ttest_tick &&\n"> <"\techo ni >file &&\n"> 
          <"\tgit commit -a -m second &&\n"> <"\n"> <"\tcnt=$( (\n"> <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> 
          <"\ttest $cnt -eq 6\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"copy commit and tree but not blob by hand">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit rev-list --objects HEAD |\n"> <"\tgit pack-objects --stdout |\n"> 
          <"\t(\n"> <"\t\tcd cloned &&\n"> <"\t\tgit unpack-objects\n"> <"\t) &&\n"> <"\n"> <"\tcnt=$( (\n"> 
          <"\t\tcd cloned &&\n"> <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> <"\ttest $cnt -eq 6 &&\n"> 
          <"\n"> <"\tblob=$(git rev-parse HEAD:file | sed -e \"s|..|&/|\") &&\n"> 
          <"\ttest -f \"cloned/.git/objects/$blob\" &&\n"> <"\trm -f \"cloned/.git/objects/$blob\" &&\n"> <"\n"> <"\tcnt=$( (\n"> <"\t\tcd cloned &&\n"> 
          <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> <"\ttest $cnt -eq 5\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"quickfetch should not leave a corrupted repository">)} 
      {
        (SQ <"\n"> <"\n"> <"\t(\n"> <"\t\tcd cloned &&\n"> <"\t\tgit fetch\n"> <"\t) &&\n"> <"\n"> 
          <"\tcnt=$( (\n"> <"\t\tcd cloned &&\n"> <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> 
          <"\ttest $cnt -eq 6\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"quickfetch should not copy from alternate">)} 
      {
        (SQ <"\n"> <"\n"> <"\t(\n"> <"\t\tmkdir quickclone &&\n"> <"\t\tcd quickclone &&\n"> 
          <"\t\tgit init-db &&\n"> <"\t\t(cd ../.git/objects && pwd) >.git/objects/info/alternates &&\n"> 
          <"\t\tgit remote add origin .. &&\n"> <"\t\tgit fetch -k -k\n"> <"\t) &&\n"> <"\tobj_cnt=$( (\n"> <"\t\tcd quickclone &&\n"> 
          <"\t\tgit count-objects | sed -e \"s/ *objects,.*//\"\n"> <"\t) ) &&\n"> <"\tpck_cnt=$( (\n"> <"\t\tcd quickclone &&\n"> 
          <"\t\tgit count-objects -v | sed -n -e \"/packs:/{\n"> <"\t\t\t\ts/packs://\n"> <"\t\t\t\tp\n"> <"\t\t\t\tq\n"> <"\t\t\t}\"\n"> <"\t) ) &&\n"> 
          <"\torigin_master=$( (\n"> <"\t\tcd quickclone &&\n"> <"\t\tgit rev-parse origin/master\n"> <"\t) ) &&\n"> 
          <"\techo \"loose objects: $obj_cnt, packfiles: $pck_cnt\" &&\n"> <"\ttest $obj_cnt -eq 0 &&\n"> <"\ttest $pck_cnt -eq 0 &&\n"> 
          <"\ttest z$origin_master = z$(git rev-parse master)\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"quickfetch should handle ~1000 refs (on Windows)">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit gc &&\n"> <"\thead=$(git rev-parse HEAD) &&\n"> 
          <"\tbranchprefix=\"$head refs/heads/branch\" &&\n"> <"\tfor i in 0 1 2 3 4 5 6 7 8 9; do\n"> <"\t\tfor j in 0 1 2 3 4 5 6 7 8 9; do\n"> 
          <"\t\t\tfor k in 0 1 2 3 4 5 6 7 8 9; do\n"> <"\t\t\t\techo \"$branchprefix$i$j$k\" >> .git/packed-refs\n"> <"\t\t\tdone\n"> <"\t\tdone\n"> 
          <"\tdone &&\n"> <"\t(\n"> <"\t\tcd cloned &&\n"> <"\t\tgit fetch &&\n"> <"\t\tgit fetch\n"> <"\t)\n"> <"\n">
        )
      }
    )
    (C {(test_done)})
  ]
)