#!/bin/sh

global test_description := ''.git file

Verify that plumbing commands work when .git is a file
''
source ./test-lib.sh

proc objpath {
	echo $1 | sed -e 's|\(..\)|\1/|'
}

proc objck {
	global p := $[objpath $1]
	if test ! -f "$REAL/objects/$p"
	{
		echo "Object not found: $REAL/objects/$p"
		false
	}
}

test_expect_success 'initial setup' '
	REAL="$(pwd)/.real" &&
	mv .git "$REAL"
'

test_expect_success 'bad setup: invalid .git file format' '
	echo "gitdir $REAL" >.git &&
	if git rev-parse 2>.err
	then
		echo "git rev-parse accepted an invalid .git file"
		false
	fi &&
	if ! grep "Invalid gitfile format" .err
	then
		echo "git rev-parse returned wrong error"
		false
	fi
'

test_expect_success 'bad setup: invalid .git file path' '
	echo "gitdir: $REAL.not" >.git &&
	if git rev-parse 2>.err
	then
		echo "git rev-parse accepted an invalid .git file path"
		false
	fi &&
	if ! grep "Not a git repository" .err
	then
		echo "git rev-parse returned wrong error"
		false
	fi
'

test_expect_success 'final setup + check rev-parse --git-dir' '
	echo "gitdir: $REAL" >.git &&
	test "$REAL" = "$(git rev-parse --git-dir)"
'

test_expect_success 'check hash-object' '
	echo "foo" >bar &&
	SHA=$(cat bar | git hash-object -w --stdin) &&
	objck $SHA
'

test_expect_success 'check cat-file' '
	git cat-file blob $SHA >actual &&
	test_cmp bar actual
'

test_expect_success 'check update-index' '
	if test -f "$REAL/index"
	then
		echo "Hmm, $REAL/index exists?"
		false
	fi &&
	rm -f "$REAL/objects/$(objpath $SHA)" &&
	git update-index --add bar &&
	if ! test -f "$REAL/index"
	then
		echo "$REAL/index not found"
		false
	fi &&
	objck $SHA
'

test_expect_success 'check write-tree' '
	SHA=$(git write-tree) &&
	objck $SHA
'

test_expect_success 'check commit-tree' '
	SHA=$(echo "commit bar" | git commit-tree $SHA) &&
	objck $SHA
'

test_expect_success 'check rev-list' '
	echo $SHA >"$REAL/HEAD" &&
	test "$SHA" = "$(git rev-list HEAD)"
'

test_expect_success 'setup_git_dir twice in subdir' '
	git init sgd &&
	(
		cd sgd &&
		git config alias.lsfi ls-files &&
		mv .git .realgit &&
		echo "gitdir: .realgit" >.git &&
		mkdir subdir &&
		cd subdir &&
		>foo &&
		git add foo &&
		git lsfi >actual &&
		echo foo >expected &&
		test_cmp expected actual
	)
'

test_expect_success 'enter_repo non-strict mode' '
	test_create_repo enter_repo &&
	(
		cd enter_repo &&
		test_tick &&
		test_commit foo &&
		mv .git .realgit &&
		echo "gitdir: .realgit" >.git
	) &&
	git ls-remote enter_repo >actual &&
	cat >expected <<-\EOF &&
	946e985ab20de757ca5b872b16d64e92ff3803a9	HEAD
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/heads/master
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/tags/foo
	EOF
	test_cmp expected actual
'

test_expect_success 'enter_repo linked checkout' '
	(
		cd enter_repo &&
		git worktree add  ../foo refs/tags/foo
	) &&
	git ls-remote foo >actual &&
	cat >expected <<-\EOF &&
	946e985ab20de757ca5b872b16d64e92ff3803a9	HEAD
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/heads/master
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/tags/foo
	EOF
	test_cmp expected actual
'

test_expect_success 'enter_repo strict mode' '
	git ls-remote --upload-pack="git upload-pack --strict" foo/.git >actual &&
	cat >expected <<-\EOF &&
	946e985ab20de757ca5b872b16d64e92ff3803a9	HEAD
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/heads/master
	946e985ab20de757ca5b872b16d64e92ff3803a9	refs/tags/foo
	EOF
	test_cmp expected actual
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <".git file\n"> <"\n"> <"Verify that plumbing commands work when .git is a file\n">)
            }
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: objpath
      body: 
        (BraceGroup
          children: [
            (Pipeline
              children: [
                (C {(echo)} {(DQ ($ VSub_Number "$1"))})
                (C {(sed)} {(-e)} {(SQ <"s|\\(..\\)|\\1/|">)})
              ]
              negated: False
            )
          ]
          spids: [20]
        )
      spids: [16 19]
    )
    (FuncDef
      name: objck
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:p)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(objpath)} {(DQ ($ VSub_Number "$1"))})]
                          )
                        left_token: <Left_CommandSub "$(">
                        spids: [50 56]
                      )
                    }
                  spids: [49]
                )
              ]
              spids: [49]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (C {(test)} {(KW_Bang "!")} {(-f)} 
                      {(DQ ($ VSub_Name "$REAL") (/objects/) ($ VSub_Name "$p"))}
                    )
                  ]
                  action: [
                    (C {(echo)} 
                      {
                        (DQ ("Object not found: ") ($ VSub_Name "$REAL") (/objects/) ($ VSub_Name "$p"))
                      }
                    )
                    (C {(false)})
                  ]
                  spids: [-1 74]
                )
              ]
              spids: [-1 90]
            )
          ]
          spids: [46]
        )
      spids: [42 45]
    )
    (C {(test_expect_success)} {(SQ <"initial setup">)} 
      {(SQ <"\n"> <"\tREAL=\"$(pwd)/.real\" &&\n"> <"\tmv .git \"$REAL\"\n">)}
    )
    (C {(test_expect_success)} {(SQ <"bad setup: invalid .git file format">)} 
      {
        (SQ <"\n"> <"\techo \"gitdir $REAL\" >.git &&\n"> <"\tif git rev-parse 2>.err\n"> <"\tthen\n"> 
          <"\t\techo \"git rev-parse accepted an invalid .git file\"\n"> <"\t\tfalse\n"> <"\tfi &&\n"> <"\tif ! grep \"Invalid gitfile format\" .err\n"> <"\tthen\n"> 
          <"\t\techo \"git rev-parse returned wrong error\"\n"> <"\t\tfalse\n"> <"\tfi\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"bad setup: invalid .git file path">)} 
      {
        (SQ <"\n"> <"\techo \"gitdir: $REAL.not\" >.git &&\n"> <"\tif git rev-parse 2>.err\n"> 
          <"\tthen\n"> <"\t\techo \"git rev-parse accepted an invalid .git file path\"\n"> <"\t\tfalse\n"> <"\tfi &&\n"> 
          <"\tif ! grep \"Not a git repository\" .err\n"> <"\tthen\n"> <"\t\techo \"git rev-parse returned wrong error\"\n"> <"\t\tfalse\n"> <"\tfi\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"final setup + check rev-parse --git-dir">)} 
      {
        (SQ <"\n"> <"\techo \"gitdir: $REAL\" >.git &&\n"> 
          <"\ttest \"$REAL\" = \"$(git rev-parse --git-dir)\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"check hash-object">)} 
      {
        (SQ <"\n"> <"\techo \"foo\" >bar &&\n"> <"\tSHA=$(cat bar | git hash-object -w --stdin) &&\n"> 
          <"\tobjck $SHA\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"check cat-file">)} 
      {(SQ <"\n"> <"\tgit cat-file blob $SHA >actual &&\n"> <"\ttest_cmp bar actual\n">)}
    )
    (C {(test_expect_success)} {(SQ <"check update-index">)} 
      {
        (SQ <"\n"> <"\tif test -f \"$REAL/index\"\n"> <"\tthen\n"> 
          <"\t\techo \"Hmm, $REAL/index exists?\"\n"> <"\t\tfalse\n"> <"\tfi &&\n"> <"\trm -f \"$REAL/objects/$(objpath $SHA)\" &&\n"> 
          <"\tgit update-index --add bar &&\n"> <"\tif ! test -f \"$REAL/index\"\n"> <"\tthen\n"> <"\t\techo \"$REAL/index not found\"\n"> 
          <"\t\tfalse\n"> <"\tfi &&\n"> <"\tobjck $SHA\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"check write-tree">)} 
      {(SQ <"\n"> <"\tSHA=$(git write-tree) &&\n"> <"\tobjck $SHA\n">)}
    )
    (C {(test_expect_success)} {(SQ <"check commit-tree">)} 
      {(SQ <"\n"> <"\tSHA=$(echo \"commit bar\" | git commit-tree $SHA) &&\n"> <"\tobjck $SHA\n">)}
    )
    (C {(test_expect_success)} {(SQ <"check rev-list">)} 
      {
        (SQ <"\n"> <"\techo $SHA >\"$REAL/HEAD\" &&\n"> 
          <"\ttest \"$SHA\" = \"$(git rev-list HEAD)\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"setup_git_dir twice in subdir">)} 
      {
        (SQ <"\n"> <"\tgit init sgd &&\n"> <"\t(\n"> <"\t\tcd sgd &&\n"> 
          <"\t\tgit config alias.lsfi ls-files &&\n"> <"\t\tmv .git .realgit &&\n"> <"\t\techo \"gitdir: .realgit\" >.git &&\n"> <"\t\tmkdir subdir &&\n"> 
          <"\t\tcd subdir &&\n"> <"\t\t>foo &&\n"> <"\t\tgit add foo &&\n"> <"\t\tgit lsfi >actual &&\n"> <"\t\techo foo >expected &&\n"> 
          <"\t\ttest_cmp expected actual\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"enter_repo non-strict mode">)} 
      {
        (SQ <"\n"> <"\ttest_create_repo enter_repo &&\n"> <"\t(\n"> <"\t\tcd enter_repo &&\n"> 
          <"\t\ttest_tick &&\n"> <"\t\ttest_commit foo &&\n"> <"\t\tmv .git .realgit &&\n"> <"\t\techo \"gitdir: .realgit\" >.git\n"> 
          <"\t) &&\n"> <"\tgit ls-remote enter_repo >actual &&\n"> <"\tcat >expected <<-\\EOF &&\n"> 
          <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> 
          <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <"\tEOF\n"> <"\ttest_cmp expected actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"enter_repo linked checkout">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd enter_repo &&\n"> <"\t\tgit worktree add  ../foo refs/tags/foo\n"> 
          <"\t) &&\n"> <"\tgit ls-remote foo >actual &&\n"> <"\tcat >expected <<-\\EOF &&\n"> 
          <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> 
          <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <"\tEOF\n"> <"\ttest_cmp expected actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"enter_repo strict mode">)} 
      {
        (SQ <"\n"> 
          <"\tgit ls-remote --upload-pack=\"git upload-pack --strict\" foo/.git >actual &&\n"> <"\tcat >expected <<-\\EOF &&\n"> <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\tHEAD\n"> 
          <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/heads/master\n"> <"\t946e985ab20de757ca5b872b16d64e92ff3803a9\trefs/tags/foo\n"> <"\tEOF\n"> 
          <"\ttest_cmp expected actual\n">
        )
      }
    )
    (C {(test_done)})
  ]
)