(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git archive attribute tests">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:SUBSTFORMAT)
          op: Equal
          rhs: {(SQ <"%H (%h)%n">)}
          spids: [15]
        )
      ]
      spids: [15]
    )
    (FuncDef
      name: test_expect_exists
      body: 
        (BraceGroup
          children: [
            (C {(test_expect_success)} {(DQ (" ") ($ VSub_Number "$1") (" exists"))} 
              {(DQ ("test -e ") ($ VSub_Number "$1"))}
            )
          ]
          spids: [25]
        )
      spids: [21 24]
    )
    (FuncDef
      name: test_expect_missing
      body: 
        (BraceGroup
          children: [
            (C {(test_expect_success)} {(DQ (" ") ($ VSub_Number "$1") (" does not exist"))} 
              {(DQ ("test ! -e ") ($ VSub_Number "$1"))}
            )
          ]
          spids: [48]
        )
      spids: [44 47]
    )
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <"\n"> <"\techo ignored >ignored &&\n"> 
          <"\techo ignored export-ignore >>.git/info/attributes &&\n"> <"\tgit add ignored &&\n"> <"\n"> <"\techo ignored by tree >ignored-by-tree &&\n"> 
          <"\techo ignored-by-tree export-ignore >.gitattributes &&\n"> <"\tgit add ignored-by-tree .gitattributes &&\n"> <"\n"> 
          <"\techo ignored by worktree >ignored-by-worktree &&\n"> <"\techo ignored-by-worktree export-ignore >.gitattributes &&\n"> 
          <"\tgit add ignored-by-worktree &&\n"> <"\n"> <"\tprintf \"A\\$Format:%s\\$O\" \"$SUBSTFORMAT\" >nosubstfile &&\n"> 
          <"\tprintf \"A\\$Format:%s\\$O\" \"$SUBSTFORMAT\" >substfile1 &&\n"> <"\tprintf \"A not substituted O\" >substfile2 &&\n"> 
          <"\techo \"substfile?\" export-subst >>.git/info/attributes &&\n"> <"\tgit add nosubstfile substfile1 substfile2 &&\n"> <"\n"> <"\tgit commit -m. &&\n"> <"\n"> 
          <"\tgit clone --bare . bare &&\n"> <"\tcp .git/info/attributes bare/info/attributes\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git archive">)} 
      {
        (SQ <"\n"> <"\tgit archive HEAD >archive.tar &&\n"> 
          <"\t(mkdir archive && cd archive && \"$TAR\" xf -) <archive.tar\n">
        )
      }
    )
    (C {(test_expect_missing)} {(archive/ignored)})
    (C {(test_expect_missing)} {(archive/ignored-by-tree)})
    (C {(test_expect_exists)} {(archive/ignored-by-worktree)})
    (C {(test_expect_success)} {(SQ <"git archive with worktree attributes">)} 
      {
        (SQ <"\n"> <"\tgit archive --worktree-attributes HEAD >worktree.tar &&\n"> 
          <"\t(mkdir worktree && cd worktree && \"$TAR\" xf -) <worktree.tar\n">
        )
      }
    )
    (C {(test_expect_missing)} {(worktree/ignored)})
    (C {(test_expect_exists)} {(worktree/ignored-by-tree)})
    (C {(test_expect_missing)} {(worktree/ignored-by-worktree)})
    (C {(test_expect_success)} {(SQ <"git archive --worktree-attributes option">)} 
      {
        (SQ <"\n"> 
          <"\tgit archive --worktree-attributes --worktree-attributes HEAD >worktree.tar &&\n"> <"\t(mkdir worktree2 && cd worktree2 && \"$TAR\" xf -) <worktree.tar\n">
        )
      }
    )
    (C {(test_expect_missing)} {(worktree2/ignored)})
    (C {(test_expect_exists)} {(worktree2/ignored-by-tree)})
    (C {(test_expect_missing)} {(worktree2/ignored-by-worktree)})
    (C {(test_expect_success)} {(SQ <"git archive vs. bare">)} 
      {
        (SQ <"\n"> <"\t(cd bare && git archive HEAD) >bare-archive.tar &&\n"> 
          <"\ttest_cmp_bin archive.tar bare-archive.tar\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git archive with worktree attributes, bare">)} 
      {
        (SQ <"\n"> <"\t(cd bare && git archive --worktree-attributes HEAD) >bare-worktree.tar &&\n"> 
          <"\t(mkdir bare-worktree && cd bare-worktree && \"$TAR\" xf -) <bare-worktree.tar\n">
        )
      }
    )
    (C {(test_expect_missing)} {(bare-worktree/ignored)})
    (C {(test_expect_exists)} {(bare-worktree/ignored-by-tree)})
    (C {(test_expect_exists)} {(bare-worktree/ignored-by-worktree)})
    (C {(test_expect_success)} {(SQ <export-subst>)} 
      {
        (SQ <"\n"> <"\tgit log \"--pretty=format:A${SUBSTFORMAT}O\" HEAD >substfile1.expected &&\n"> 
          <"\ttest_cmp nosubstfile archive/nosubstfile &&\n"> <"\ttest_cmp substfile1.expected archive/substfile1 &&\n"> 
          <"\ttest_cmp substfile2 archive/substfile2\n">
        )
      }
    )
    (C {(test_done)})
  ]
)