#!/bin/sh
#
# Copyright (c) 2005 Amos Waterland
# Copyright (c) 2006 Christian Couder
#

global test_description := ''git pack-refs should not change the branch semantic

This test runs git pack-refs and git show-ref and checks that the branch
semantic is still the same.
''
source ./test-lib.sh

test_expect_success 'enable reflogs' '
	git config core.logallrefupdates true
'

test_expect_success \
    'prepare a trivial repository' \
    'echo Hello > A &&
     git update-index --add A &&
     git commit -m "Initial commit." &&
     HEAD=$(git rev-parse --verify HEAD)'

global SHA1 := ''

test_expect_success \
    'see if git show-ref works as expected' \
    'git branch a &&
     SHA1=$(cat .git/refs/heads/a) &&
     echo "$SHA1 refs/heads/a" >expect &&
     git show-ref a >result &&
     test_cmp expect result'

test_expect_success \
    'see if a branch still exists when packed' \
    'git branch b &&
     git pack-refs --all &&
     rm -f .git/refs/heads/b &&
     echo "$SHA1 refs/heads/b" >expect &&
     git show-ref b >result &&
     test_cmp expect result'

test_expect_success 'git branch c/d should barf if branch c exists' '
     git branch c &&
     git pack-refs --all &&
     rm -f .git/refs/heads/c &&
     test_must_fail git branch c/d
'

test_expect_success \
    'see if a branch still exists after git pack-refs --prune' \
    'git branch e &&
     git pack-refs --all --prune &&
     echo "$SHA1 refs/heads/e" >expect &&
     git show-ref e >result &&
     test_cmp expect result'

test_expect_success 'see if git pack-refs --prune remove ref files' '
     git branch f &&
     git pack-refs --all --prune &&
     ! test -f .git/refs/heads/f
'

test_expect_success 'see if git pack-refs --prune removes empty dirs' '
     git branch r/s/t &&
     git pack-refs --all --prune &&
     ! test -e .git/refs/heads/r
'

test_expect_success \
    'git branch g should work when git branch g/h has been deleted' \
    'git branch g/h &&
     git pack-refs --all --prune &&
     git branch -d g/h &&
     git branch g &&
     git pack-refs --all &&
     git branch -d g'

test_expect_success 'git branch i/j/k should barf if branch i exists' '
     git branch i &&
     git pack-refs --all --prune &&
     test_must_fail git branch i/j/k
'

test_expect_success \
    'test git branch k after branch k/l/m and k/lm have been deleted' \
    'git branch k/l &&
     git branch k/lm &&
     git branch -d k/l &&
     git branch k/l/m &&
     git branch -d k/l/m &&
     git branch -d k/lm &&
     git branch k'

test_expect_success \
    'test git branch n after some branch deletion and pruning' \
    'git branch n/o &&
     git branch n/op &&
     git branch -d n/o &&
     git branch n/o/p &&
     git branch -d n/op &&
     git pack-refs --all --prune &&
     git branch -d n/o/p &&
     git branch n'

test_expect_success \
	'see if up-to-date packed refs are preserved' \
	'git branch q &&
	 git pack-refs --all --prune &&
	 git update-ref refs/heads/q refs/heads/q &&
	 ! test -f .git/refs/heads/q'

test_expect_success 'pack, prune and repack' '
	git tag foo &&
	git pack-refs --all --prune &&
	git show-ref >all-of-them &&
	git pack-refs &&
	git show-ref >again &&
	test_cmp all-of-them again
'

test_expect_success 'explicit pack-refs with dangling packed reference' '
	git commit --allow-empty -m "soon to be garbage-collected" &&
	git pack-refs --all &&
	git reset --hard HEAD^ &&
	git reflog expire --expire=all --all &&
	git prune --expire=all &&
	git pack-refs --all 2>result &&
	test_cmp /dev/null result
'

test_expect_success 'delete ref with dangling packed version' '
	git checkout -b lamb &&
	git commit --allow-empty -m "future garbage" &&
	git pack-refs --all &&
	git reset --hard HEAD^ &&
	git checkout master &&
	git reflog expire --expire=all --all &&
	git prune --expire=all &&
	git branch -d lamb 2>result &&
	test_cmp /dev/null result
'

test_expect_success 'delete ref while another dangling packed ref' '
	git branch lamb &&
	git commit --allow-empty -m "future garbage" &&
	git pack-refs --all &&
	git reset --hard HEAD^ &&
	git reflog expire --expire=all --all &&
	git prune --expire=all &&
	git branch -d lamb 2>result &&
	test_cmp /dev/null result
'

test_expect_success 'pack ref directly below refs/' '
	git update-ref refs/top HEAD &&
	git pack-refs --all --prune &&
	grep refs/top .git/packed-refs &&
	test_path_is_missing .git/refs/top
'

test_expect_success 'do not pack ref in refs/bisect' '
	git update-ref refs/bisect/local HEAD &&
	git pack-refs --all --prune &&
	! grep refs/bisect/local .git/packed-refs >/dev/null &&
	test_path_is_file .git/refs/bisect/local
'

test_expect_success 'disable reflogs' '
	git config core.logallrefupdates false &&
	rm -rf .git/logs
'

test_expect_success 'create packed foo/bar/baz branch' '
	git branch foo/bar/baz &&
	git pack-refs --all --prune &&
	test_path_is_missing .git/refs/heads/foo/bar/baz &&
	test_must_fail git reflog exists refs/heads/foo/bar/baz
'

test_expect_success 'notice d/f conflict with existing directory' '
	test_must_fail git branch foo &&
	test_must_fail git branch foo/bar
'

test_expect_success 'existing directory reports concrete ref' '
	test_must_fail git branch foo 2>stderr &&
	grep refs/heads/foo/bar/baz stderr
'

test_expect_success 'notice d/f conflict with existing ref' '
	test_must_fail git branch foo/bar/baz/extra &&
	test_must_fail git branch foo/bar/baz/lots/of/extra/components
'

test_expect_success 'timeout if packed-refs.lock exists' '
	LOCK=.git/packed-refs.lock &&
	>"$LOCK" &&
	test_when_finished "rm -f $LOCK" &&
	test_must_fail git pack-refs --all --prune
'

test_expect_success 'retry acquiring packed-refs.lock' '
	LOCK=.git/packed-refs.lock &&
	>"$LOCK" &&
	test_when_finished "wait; rm -f $LOCK" &&
	{
		( sleep 1 ; rm -f $LOCK ) &
	} &&
	git -c core.packedrefstimeout=3000 pack-refs --all --prune
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <"git pack-refs should not change the branch semantic\n"> <"\n"> 
                <"This test runs git pack-refs and git show-ref and checks that the branch\n"> <"semantic is still the same.\n">
              )
            }
          spids: [16]
        )
      ]
      spids: [16]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"enable reflogs">)} 
      {(SQ <"\n"> <"\tgit config core.logallrefupdates true\n">)}
    )
    (C {(test_expect_success)} {(SQ <"prepare a trivial repository">)} 
      {
        (SQ <"echo Hello > A &&\n"> <"     git update-index --add A &&\n"> 
          <"     git commit -m \"Initial commit.\" &&\n"> <"     HEAD=$(git rev-parse --verify HEAD)">
        )
      }
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:SHA1) op:Equal rhs:{(SQ )} spids:[59])]
      spids: [59]
    )
    (C {(test_expect_success)} {(SQ <"see if git show-ref works as expected">)} 
      {
        (SQ <"git branch a &&\n"> <"     SHA1=$(cat .git/refs/heads/a) &&\n"> 
          <"     echo \"$SHA1 refs/heads/a\" >expect &&\n"> <"     git show-ref a >result &&\n"> <"     test_cmp expect result">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"see if a branch still exists when packed">)} 
      {
        (SQ <"git branch b &&\n"> <"     git pack-refs --all &&\n"> 
          <"     rm -f .git/refs/heads/b &&\n"> <"     echo \"$SHA1 refs/heads/b\" >expect &&\n"> <"     git show-ref b >result &&\n"> 
          <"     test_cmp expect result">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git branch c/d should barf if branch c exists">)} 
      {
        (SQ <"\n"> <"     git branch c &&\n"> <"     git pack-refs --all &&\n"> 
          <"     rm -f .git/refs/heads/c &&\n"> <"     test_must_fail git branch c/d\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"see if a branch still exists after git pack-refs --prune">)} 
      {
        (SQ <"git branch e &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     echo \"$SHA1 refs/heads/e\" >expect &&\n"> <"     git show-ref e >result &&\n"> <"     test_cmp expect result">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"see if git pack-refs --prune remove ref files">)} 
      {
        (SQ <"\n"> <"     git branch f &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     ! test -f .git/refs/heads/f\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"see if git pack-refs --prune removes empty dirs">)} 
      {
        (SQ <"\n"> <"     git branch r/s/t &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     ! test -e .git/refs/heads/r\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git branch g should work when git branch g/h has been deleted">)} 
      {
        (SQ <"git branch g/h &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     git branch -d g/h &&\n"> <"     git branch g &&\n"> <"     git pack-refs --all &&\n"> <"     git branch -d g">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git branch i/j/k should barf if branch i exists">)} 
      {
        (SQ <"\n"> <"     git branch i &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     test_must_fail git branch i/j/k\n">
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <"test git branch k after branch k/l/m and k/lm have been deleted">)} 
      {
        (SQ <"git branch k/l &&\n"> <"     git branch k/lm &&\n"> <"     git branch -d k/l &&\n"> 
          <"     git branch k/l/m &&\n"> <"     git branch -d k/l/m &&\n"> <"     git branch -d k/lm &&\n"> <"     git branch k">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"test git branch n after some branch deletion and pruning">)} 
      {
        (SQ <"git branch n/o &&\n"> <"     git branch n/op &&\n"> <"     git branch -d n/o &&\n"> 
          <"     git branch n/o/p &&\n"> <"     git branch -d n/op &&\n"> <"     git pack-refs --all --prune &&\n"> 
          <"     git branch -d n/o/p &&\n"> <"     git branch n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"see if up-to-date packed refs are preserved">)} 
      {
        (SQ <"git branch q &&\n"> <"\t git pack-refs --all --prune &&\n"> 
          <"\t git update-ref refs/heads/q refs/heads/q &&\n"> <"\t ! test -f .git/refs/heads/q">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"pack, prune and repack">)} 
      {
        (SQ <"\n"> <"\tgit tag foo &&\n"> <"\tgit pack-refs --all --prune &&\n"> 
          <"\tgit show-ref >all-of-them &&\n"> <"\tgit pack-refs &&\n"> <"\tgit show-ref >again &&\n"> <"\ttest_cmp all-of-them again\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"explicit pack-refs with dangling packed reference">)} 
      {
        (SQ <"\n"> <"\tgit commit --allow-empty -m \"soon to be garbage-collected\" &&\n"> 
          <"\tgit pack-refs --all &&\n"> <"\tgit reset --hard HEAD^ &&\n"> <"\tgit reflog expire --expire=all --all &&\n"> 
          <"\tgit prune --expire=all &&\n"> <"\tgit pack-refs --all 2>result &&\n"> <"\ttest_cmp /dev/null result\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"delete ref with dangling packed version">)} 
      {
        (SQ <"\n"> <"\tgit checkout -b lamb &&\n"> 
          <"\tgit commit --allow-empty -m \"future garbage\" &&\n"> <"\tgit pack-refs --all &&\n"> <"\tgit reset --hard HEAD^ &&\n"> <"\tgit checkout master &&\n"> 
          <"\tgit reflog expire --expire=all --all &&\n"> <"\tgit prune --expire=all &&\n"> <"\tgit branch -d lamb 2>result &&\n"> 
          <"\ttest_cmp /dev/null result\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"delete ref while another dangling packed ref">)} 
      {
        (SQ <"\n"> <"\tgit branch lamb &&\n"> <"\tgit commit --allow-empty -m \"future garbage\" &&\n"> 
          <"\tgit pack-refs --all &&\n"> <"\tgit reset --hard HEAD^ &&\n"> <"\tgit reflog expire --expire=all --all &&\n"> 
          <"\tgit prune --expire=all &&\n"> <"\tgit branch -d lamb 2>result &&\n"> <"\ttest_cmp /dev/null result\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"pack ref directly below refs/">)} 
      {
        (SQ <"\n"> <"\tgit update-ref refs/top HEAD &&\n"> <"\tgit pack-refs --all --prune &&\n"> 
          <"\tgrep refs/top .git/packed-refs &&\n"> <"\ttest_path_is_missing .git/refs/top\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"do not pack ref in refs/bisect">)} 
      {
        (SQ <"\n"> <"\tgit update-ref refs/bisect/local HEAD &&\n"> 
          <"\tgit pack-refs --all --prune &&\n"> <"\t! grep refs/bisect/local .git/packed-refs >/dev/null &&\n"> 
          <"\ttest_path_is_file .git/refs/bisect/local\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"disable reflogs">)} 
      {(SQ <"\n"> <"\tgit config core.logallrefupdates false &&\n"> <"\trm -rf .git/logs\n">)}
    )
    (C {(test_expect_success)} {(SQ <"create packed foo/bar/baz branch">)} 
      {
        (SQ <"\n"> <"\tgit branch foo/bar/baz &&\n"> <"\tgit pack-refs --all --prune &&\n"> 
          <"\ttest_path_is_missing .git/refs/heads/foo/bar/baz &&\n"> <"\ttest_must_fail git reflog exists refs/heads/foo/bar/baz\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"notice d/f conflict with existing directory">)} 
      {
        (SQ <"\n"> <"\ttest_must_fail git branch foo &&\n"> <"\ttest_must_fail git branch foo/bar\n">)
      }
    )
    (C {(test_expect_success)} {(SQ <"existing directory reports concrete ref">)} 
      {
        (SQ <"\n"> <"\ttest_must_fail git branch foo 2>stderr &&\n"> 
          <"\tgrep refs/heads/foo/bar/baz stderr\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"notice d/f conflict with existing ref">)} 
      {
        (SQ <"\n"> <"\ttest_must_fail git branch foo/bar/baz/extra &&\n"> 
          <"\ttest_must_fail git branch foo/bar/baz/lots/of/extra/components\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"timeout if packed-refs.lock exists">)} 
      {
        (SQ <"\n"> <"\tLOCK=.git/packed-refs.lock &&\n"> <"\t>\"$LOCK\" &&\n"> 
          <"\ttest_when_finished \"rm -f $LOCK\" &&\n"> <"\ttest_must_fail git pack-refs --all --prune\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"retry acquiring packed-refs.lock">)} 
      {
        (SQ <"\n"> <"\tLOCK=.git/packed-refs.lock &&\n"> <"\t>\"$LOCK\" &&\n"> 
          <"\ttest_when_finished \"wait; rm -f $LOCK\" &&\n"> <"\t{\n"> <"\t\t( sleep 1 ; rm -f $LOCK ) &\n"> <"\t} &&\n"> 
          <"\tgit -c core.packedrefstimeout=3000 pack-refs --all --prune\n">
        )
      }
    )
    (C {(test_done)})
  ]
)