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