#!/bin/sh
#
# Copyright (C) 2006 Martin Waitz <tali@admingilde.org>
#

global test_description := ''test transitive info/alternate entries''
source ./test-lib.sh

test_expect_success 'preparing first repository' '
	test_create_repo A && (
		cd A &&
		echo "Hello World" > file1 &&
		git add file1 &&
		git commit -m "Initial commit" file1 &&
		git repack -a -d &&
		git prune
	)
'

test_expect_success 'preparing second repository' '
	git clone -l -s A B && (
		cd B &&
		echo "foo bar" > file2 &&
		git add file2 &&
		git commit -m "next commit" file2 &&
		git repack -a -d -l &&
		git prune
	)
'

test_expect_success 'preparing third repository' '
	git clone -l -s B C && (
		cd C &&
		echo "Goodbye, cruel world" > file3 &&
		git add file3 &&
		git commit -m "one more" file3 &&
		git repack -a -d -l &&
		git prune
	)
'

test_expect_success 'count-objects shows the alternates' '
	cat >expect <<-EOF &&
	alternate: $(pwd)/B/.git/objects
	alternate: $(pwd)/A/.git/objects
	EOF
	git -C C count-objects -v >actual &&
	grep ^alternate: actual >actual.alternates &&
	test_cmp expect actual.alternates
'

# Note: These tests depend on the hard-coded value of 5 as the maximum depth
# we will follow recursion. We start the depth at 0 and count links, not
# repositories. This means that in a chain like:
#
#   A --> B --> C --> D --> E --> F --> G --> H
#      0     1     2     3     4     5     6
#
# we are OK at "G", but break at "H", even though "H" is actually the 8th
# repository, not the 6th, which you might expect. Counting the links allows
# N+1 repositories, and counting from 0 to 5 inclusive allows 6 links.
#
# Note also that we must use "--bare -l" to make the link to H. The "-l"
# ensures we do not do a connectivity check, and the "--bare" makes sure
# we do not try to checkout the result (which needs objects), either of
# which would cause the clone to fail.
test_expect_success 'creating too deep nesting' '
	git clone -l -s C D &&
	git clone -l -s D E &&
	git clone -l -s E F &&
	git clone -l -s F G &&
	git clone --bare -l -s G H
'

test_expect_success 'validity of seventh repository' '
	git -C G fsck
'

test_expect_success 'invalidity of eighth repository' '
	test_must_fail git -C H fsck
'

test_expect_success 'breaking of loops' '
	echo "$(pwd)"/B/.git/objects >>A/.git/objects/info/alternates &&
	git -C C fsck
'

test_expect_success 'that info/alternates is necessary' '
	rm -f C/.git/objects/info/alternates &&
	test_must_fail git -C C fsck
'

test_expect_success 'that relative alternate is possible for current dir' '
	echo "../../../B/.git/objects" >C/.git/objects/info/alternates &&
	git fsck
'

test_expect_success 'that relative alternate is recursive' '
	git -C D fsck
'

# we can reach "A" from our new repo both directly, and via "C".
# The deep/subdir is there to make sure we are not doing a stupid
# pure-text comparison of the alternate names.
test_expect_success 'relative duplicates are eliminated' '
	mkdir -p deep/subdir &&
	git init --bare deep/subdir/duplicate.git &&
	cat >deep/subdir/duplicate.git/objects/info/alternates <<-\EOF &&
	../../../../C/.git/objects
	../../../../A/.git/objects
	EOF
	cat >expect <<-EOF &&
	alternate: $(pwd)/C/.git/objects
	alternate: $(pwd)/B/.git/objects
	alternate: $(pwd)/A/.git/objects
	EOF
	git -C deep/subdir/duplicate.git count-objects -v >actual &&
	grep ^alternate: actual >actual.alternates &&
	test_cmp expect actual.alternates
'

test_expect_success CASE_INSENSITIVE_FS 'dup finding can be case-insensitive' '
	git init --bare insensitive.git &&
	# the previous entry for "A" will have used uppercase
	cat >insensitive.git/objects/info/alternates <<-\EOF &&
	../../C/.git/objects
	../../a/.git/objects
	EOF
	cat >expect <<-EOF &&
	alternate: $(pwd)/C/.git/objects
	alternate: $(pwd)/B/.git/objects
	alternate: $(pwd)/A/.git/objects
	EOF
	git -C insensitive.git count-objects -v >actual &&
	grep ^alternate: actual >actual.alternates &&
	test_cmp expect actual.alternates
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"test transitive info/alternate entries">)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"preparing first repository">)} 
      {
        (SQ <"\n"> <"\ttest_create_repo A && (\n"> <"\t\tcd A &&\n"> 
          <"\t\techo \"Hello World\" > file1 &&\n"> <"\t\tgit add file1 &&\n"> <"\t\tgit commit -m \"Initial commit\" file1 &&\n"> 
          <"\t\tgit repack -a -d &&\n"> <"\t\tgit prune\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"preparing second repository">)} 
      {
        (SQ <"\n"> <"\tgit clone -l -s A B && (\n"> <"\t\tcd B &&\n"> 
          <"\t\techo \"foo bar\" > file2 &&\n"> <"\t\tgit add file2 &&\n"> <"\t\tgit commit -m \"next commit\" file2 &&\n"> 
          <"\t\tgit repack -a -d -l &&\n"> <"\t\tgit prune\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"preparing third repository">)} 
      {
        (SQ <"\n"> <"\tgit clone -l -s B C && (\n"> <"\t\tcd C &&\n"> 
          <"\t\techo \"Goodbye, cruel world\" > file3 &&\n"> <"\t\tgit add file3 &&\n"> <"\t\tgit commit -m \"one more\" file3 &&\n"> 
          <"\t\tgit repack -a -d -l &&\n"> <"\t\tgit prune\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"count-objects shows the alternates">)} 
      {
        (SQ <"\n"> <"\tcat >expect <<-EOF &&\n"> <"\talternate: $(pwd)/B/.git/objects\n"> 
          <"\talternate: $(pwd)/A/.git/objects\n"> <"\tEOF\n"> <"\tgit -C C count-objects -v >actual &&\n"> 
          <"\tgrep ^alternate: actual >actual.alternates &&\n"> <"\ttest_cmp expect actual.alternates\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"creating too deep nesting">)} 
      {
        (SQ <"\n"> <"\tgit clone -l -s C D &&\n"> <"\tgit clone -l -s D E &&\n"> 
          <"\tgit clone -l -s E F &&\n"> <"\tgit clone -l -s F G &&\n"> <"\tgit clone --bare -l -s G H\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"validity of seventh repository">)} 
      {(SQ <"\n"> <"\tgit -C G fsck\n">)}
    )
    (C {(test_expect_success)} {(SQ <"invalidity of eighth repository">)} 
      {(SQ <"\n"> <"\ttest_must_fail git -C H fsck\n">)}
    )
    (C {(test_expect_success)} {(SQ <"breaking of loops">)} 
      {
        (SQ <"\n"> <"\techo \"$(pwd)\"/B/.git/objects >>A/.git/objects/info/alternates &&\n"> 
          <"\tgit -C C fsck\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"that info/alternates is necessary">)} 
      {
        (SQ <"\n"> <"\trm -f C/.git/objects/info/alternates &&\n"> <"\ttest_must_fail git -C C fsck\n">)
      }
    )
    (C {(test_expect_success)} {(SQ <"that relative alternate is possible for current dir">)} 
      {
        (SQ <"\n"> <"\techo \"../../../B/.git/objects\" >C/.git/objects/info/alternates &&\n"> 
          <"\tgit fsck\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"that relative alternate is recursive">)} 
      {(SQ <"\n"> <"\tgit -C D fsck\n">)}
    )
    (C {(test_expect_success)} {(SQ <"relative duplicates are eliminated">)} 
      {
        (SQ <"\n"> <"\tmkdir -p deep/subdir &&\n"> <"\tgit init --bare deep/subdir/duplicate.git &&\n"> 
          <"\tcat >deep/subdir/duplicate.git/objects/info/alternates <<-\\EOF &&\n"> <"\t../../../../C/.git/objects\n"> <"\t../../../../A/.git/objects\n"> <"\tEOF\n"> 
          <"\tcat >expect <<-EOF &&\n"> <"\talternate: $(pwd)/C/.git/objects\n"> <"\talternate: $(pwd)/B/.git/objects\n"> 
          <"\talternate: $(pwd)/A/.git/objects\n"> <"\tEOF\n"> <"\tgit -C deep/subdir/duplicate.git count-objects -v >actual &&\n"> 
          <"\tgrep ^alternate: actual >actual.alternates &&\n"> <"\ttest_cmp expect actual.alternates\n">
        )
      }
    )
    (C {(test_expect_success)} {(CASE_INSENSITIVE_FS)} {(SQ <"dup finding can be case-insensitive">)} 
      {
        (SQ <"\n"> <"\tgit init --bare insensitive.git &&\n"> 
          <"\t# the previous entry for \"A\" will have used uppercase\n"> <"\tcat >insensitive.git/objects/info/alternates <<-\\EOF &&\n"> <"\t../../C/.git/objects\n"> 
          <"\t../../a/.git/objects\n"> <"\tEOF\n"> <"\tcat >expect <<-EOF &&\n"> <"\talternate: $(pwd)/C/.git/objects\n"> 
          <"\talternate: $(pwd)/B/.git/objects\n"> <"\talternate: $(pwd)/A/.git/objects\n"> <"\tEOF\n"> 
          <"\tgit -C insensitive.git count-objects -v >actual &&\n"> <"\tgrep ^alternate: actual >actual.alternates &&\n"> <"\ttest_cmp expect actual.alternates\n">
        )
      }
    )
    (C {(test_done)})
  ]
)