(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "basic symbolic-ref tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef reset_to_sane []
    (Com {[LIT_CHARS echo]} {[LIT_CHARS ref] [LIT_OTHER ":"]} {[LIT_CHARS refs/heads/foo]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS .git/HEAD]} <REDIR_GREAT ">"> 1),
      >
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref writes HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit symbolic-ref HEAD refs/heads/foo &&\n"> <LIT_CHARS "\techo ref: refs/heads/foo >expect &&\n"> <LIT_CHARS "\ttest_cmp expect .git/HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref reads HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo refs/heads/foo >expect &&\n"> <LIT_CHARS "\tgit symbolic-ref HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref refuses non-ref for HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref HEAD foo\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref refuses bare sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >file && git add file && git commit -m one &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref HEAD $(git rev-parse HEAD)\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "HEAD cannot be removed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref -d HEAD\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref can be deleted">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit symbolic-ref NOTHEAD refs/heads/foo &&\n"> <LIT_CHARS "\tgit symbolic-ref -d NOTHEAD &&\n"> <LIT_CHARS "\ttest_path_is_file .git/refs/heads/foo &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/NOTHEAD\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref can delete dangling symref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit symbolic-ref NOTHEAD refs/heads/missing &&\n"> <LIT_CHARS "\tgit symbolic-ref -d NOTHEAD &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/refs/heads/missing &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/NOTHEAD\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref fails to delete missing FOO">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"fatal: Cannot delete FOO, not a symbolic ref\" >expect &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref -d FOO >actual 2>&1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref fails to delete real ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"fatal: Cannot delete refs/heads/foo, not a symbolic ref\" >expect &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref -d refs/heads/foo >actual 2>&1 &&\n"> <LIT_CHARS "\ttest_path_is_file .git/refs/heads/foo &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS reset_to_sane]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create large ref name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# make 256+ character ref; some systems may not handle that,\n"> <LIT_CHARS "\t# so be gentle\n"> <LIT_CHARS "\tlong=0123456789abcdef &&\n"> <LIT_CHARS "\tlong=$long/$long/$long/$long &&\n"> <LIT_CHARS "\tlong=$long/$long/$long/$long &&\n"> <LIT_CHARS "\tlong_ref=refs/heads/$long &&\n"> <LIT_CHARS "\ttree=$(git write-tree) &&\n"> <LIT_CHARS "\tcommit=$(echo foo | git commit-tree $tree) &&\n"> <LIT_CHARS "\tif git update-ref $long_ref $commit; then\n"> <LIT_CHARS "\t\ttest_set_prereq LONG_REF\n"> <LIT_CHARS "\telse\n"> <LIT_CHARS "\t\techo >&2 \"long refs not supported\"\n"> <LIT_CHARS "\tfi\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_REF]} {[SQ <LIT_CHARS "symbolic-ref can point to large ref name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit symbolic-ref HEAD $long_ref &&\n"> <LIT_CHARS "\techo $long_ref >expect &&\n"> <LIT_CHARS "\tgit symbolic-ref HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_REF]} {[SQ <LIT_CHARS "we can parse long symbolic ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo $commit >expect &&\n"> <LIT_CHARS "\tgit rev-parse --verify HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref reports failure in exit code">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"rm -f .git/HEAD.lock\" &&\n"> <LIT_CHARS "\t>.git/HEAD.lock &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref HEAD refs/heads/whatever\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref writes reflog entry">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b log1 &&\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\tgit checkout -b log2  &&\n"> <LIT_CHARS "\ttest_commit two &&\n"> <LIT_CHARS "\tgit checkout --orphan orphan &&\n"> <LIT_CHARS "\tgit symbolic-ref -m create HEAD refs/heads/log1 &&\n"> <LIT_CHARS "\tgit symbolic-ref -m update HEAD refs/heads/log2 &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tupdate\n"> <LIT_CHARS "\tcreate\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit log --format=%gs -g -2 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref does not create ref d/f conflicts">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b df &&\n"> <LIT_CHARS "\ttest_commit df &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref refs/heads/df/conflict refs/heads/df &&\n"> <LIT_CHARS "\tgit pack-refs --all --prune &&\n"> <LIT_CHARS "\ttest_must_fail git symbolic-ref refs/heads/df/conflict refs/heads/df\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symbolic-ref handles existing pointer to invalid name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\thead=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit symbolic-ref HEAD refs/heads/outer &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/outer/inner $head &&\n"> <LIT_CHARS "\tgit symbolic-ref HEAD refs/heads/unrelated\n">]})
  (Com {[LIT_CHARS test_done]})
)