(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test transitive info/alternate entries">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (FunctionDef reachable_via []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('alternate', {[DQ [VarSub 1]]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[DQ [VarSub 2]]})])
      (If
        (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "HEAD:"][VarSub file]]}        )
        (Com {[LIT_CHARS return]} {[LIT_CHARS 1]}        )
      )
      (Com {[LIT_CHARS echo]} {[DQ [VarSub alternate]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS .git/objects/info/alternate]} <REDIR_DGREAT ">>"> 1),
        >
      )
      (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "HEAD:"][VarSub file]]}      )
    )
  )
  (FunctionDef test_valid_repo []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS fsck]} {[LIT_CHARS --full]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS fsck.log]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS test_line_count]} {[LIT_DBRACKET_LIKE "="]} {[LIT_CHARS 0]} {[LIT_CHARS fsck.log]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('base_dir', {[ComSub (Com {[LIT_CHARS pwd]})]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preparing first repository">]} {[SQ <LIT_CHARS "test_create_repo A && cd A &&\n"> <LIT_CHARS "echo \"Hello World\" > file1 &&\n"> <LIT_CHARS "git add file1 &&\n"> <LIT_CHARS "git commit -m \"Initial commit\" file1 &&\n"> <LIT_CHARS "git repack -a -d &&\n"> <LIT_CHARS "git prune">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preparing second repository">]} {[SQ <LIT_CHARS "git clone -l -s A B && cd B &&\n"> <LIT_CHARS "echo \"foo bar\" > file2 &&\n"> <LIT_CHARS "git add file2 &&\n"> <LIT_CHARS "git commit -m \"next commit\" file2 &&\n"> <LIT_CHARS "git repack -a -d -l &&\n"> <LIT_CHARS "git prune">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preparing third repository">]} {[SQ <LIT_CHARS "git clone -l -s B C && cd C &&\n"> <LIT_CHARS "echo \"Goodbye, cruel world\" > file3 &&\n"> <LIT_CHARS "git add file3 &&\n"> <LIT_CHARS "git commit -m \"one more\" file3 &&\n"> <LIT_CHARS "git repack -a -d -l &&\n"> <LIT_CHARS "git prune">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "creating too deep nesting">]} {[SQ <LIT_CHARS "git clone -l -s C D &&\n"> <LIT_CHARS "git clone -l -s D E &&\n"> <LIT_CHARS "git clone -l -s E F &&\n"> <LIT_CHARS "git clone -l -s F G &&\n"> <LIT_CHARS "git clone -l -s G H">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "invalidity of deepest repository">]} {[SQ <LIT_CHARS "cd H && {\n"> <LIT_CHARS "\ttest_valid_repo\n"> <LIT_CHARS "\ttest $? -ne 0\n"> <LIT_CHARS "}">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validity of third repository">]} {[SQ <LIT_CHARS "cd C &&\n"> <LIT_CHARS test_valid_repo>]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validity of fourth repository">]} {[SQ <LIT_CHARS "cd D &&\n"> <LIT_CHARS test_valid_repo>]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "breaking of loops">]} {[SQ <LIT_CHARS "echo \"$base_dir\"/B/.git/objects >> \"$base_dir\"/A/.git/objects/info/alternates&&\n"> <LIT_CHARS "cd C &&\n"> <LIT_CHARS test_valid_repo>]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "that info/alternates is necessary">]} {[SQ <LIT_CHARS "cd C &&\n"> <LIT_CHARS "rm -f .git/objects/info/alternates &&\n"> <LIT_CHARS "! (test_valid_repo)">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "that relative alternate is possible for current dir">]} {[SQ <LIT_CHARS "cd C &&\n"> <LIT_CHARS "echo \"../../../B/.git/objects\" > .git/objects/info/alternates &&\n"> <LIT_CHARS test_valid_repo>]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "that relative alternate is only possible for current dir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    cd D &&\n"> <LIT_CHARS "    ! (test_valid_repo)\n">]}  )
  (Com {[LIT_CHARS cd]} {[DQ [VarSub base_dir]]}  )
  (Com {[LIT_CHARS test_done]}  )
)