(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test corner cases of git-archive">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create commit with empty tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit --allow-empty -m foo\n">]})
  (FunctionDef make_dir []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS mkdir]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS test_when_finished]} {[DQ [LIT_CHARS "rm -rf '"][VarSub 1][LIT_CHARS "'"]]})
    )
  )
  (FunctionDef check_dir []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dir', {[VarSub 1]})])
      (Com {[LIT_CHARS shift]})
      (AndOr OP_AND_IF
        (Pipeline
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS echo]} {[DQ [VarSub dir]]})
            (For i [{[DQ [VarSub @]]}])
              (Com {[LIT_CHARS echo]} {[DQ [VarSub dir][LIT_CHARS /][VarSub i]]})
            )
          )
          (Com {[LIT_CHARS sort]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
            >
          )
        )
        (AndOr OP_AND_IF
          (Pipeline
            (Com {[LIT_CHARS find]} {[DQ [VarSub dir]]} {[LIT_OTHER "!"]} {[LIT_CHARS -name]} {[LIT_CHARS pax_global_header]} {[LIT_CHARS -print]})
            (Com {[LIT_CHARS sort]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
              >
            )
          )
          (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
        )
      )
    )
  )
  (If
    (Com {[DQ [VarSub TAR]]} {[LIT_CHARS tf]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /t5004/empty-with-pax-header.tar]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS HEADER_ONLY_TAR_OK]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS HEADER_ONLY_TAR_OK]} {[SQ <LIT_CHARS "tar archive of commit with empty tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar HEAD >empty-with-pax-header.tar &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t\"$TAR\" xf empty-with-pax-header.tar -C extract &&\n"> <LIT_CHARS "\tcheck_dir extract\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tar archive of empty tree is empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar HEAD: >empty.tar &&\n"> <LIT_CHARS "\tperl -e \"print \\\"\\\\0\\\" x 10240\" >10knuls.tar &&\n"> <LIT_CHARS "\ttest_cmp_bin 10knuls.tar empty.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tar archive of empty tree with prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar --prefix=foo/ HEAD >prefix.tar &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t\"$TAR\" xf prefix.tar -C extract &&\n"> <LIT_CHARS "\tcheck_dir extract foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS UNZIP]} {[SQ <LIT_CHARS "zip archive of empty tree is empty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Detect the exit code produced when our particular flavor of unzip\n"> <LIT_CHARS "\t# sees an empty archive. Infozip will generate a warning and exit with\n"> <LIT_CHARS "\t# code 1. But in the name of sanity, we do not expect other unzip\n"> <LIT_CHARS "\t# implementations to do the same thing (it would be perfectly\n"> <LIT_CHARS "\t# reasonable to exit 0, for example).\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# This makes our test less rigorous on some platforms (unzip may not\n"> <LIT_CHARS "\t# handle the empty repo at all, making our later check of its exit code\n"> <LIT_CHARS "\t# a no-op). But we cannot do anything reasonable except skip the test\n"> <LIT_CHARS "\t# on such platforms anyway, and this is the moral equivalent.\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\t\"$GIT_UNZIP\" \"$TEST_DIRECTORY\"/t5004/empty.zip\n"> <LIT_CHARS "\t\texpect_code=$?\n"> <LIT_CHARS "\t} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=zip HEAD >empty.zip &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd extract &&\n"> <LIT_CHARS "\t\ttest_expect_code $expect_code \"$GIT_UNZIP\" ../empty.zip\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcheck_dir extract\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS UNZIP]} {[SQ <LIT_CHARS "zip archive of empty tree with prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# We do not have to play exit-code tricks here, because our\n"> <LIT_CHARS "\t# result should not be empty; it has a directory in it.\n"> <LIT_CHARS "\tgit archive --format=zip --prefix=foo/ HEAD >prefix.zip &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd extract &&\n"> <LIT_CHARS "\t\t\"$GIT_UNZIP\" ../prefix.zip\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcheck_dir extract foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive complains about pathspec on empty tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git archive --format=tar HEAD -- foo >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create a commit with an empty subtree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tempty_tree=$(git hash-object -t tree /dev/null) &&\n"> <LIT_CHARS "\troot_tree=$(printf \"040000 tree $empty_tree\\tsub\\n\" | git mktree)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive empty subtree with no pathspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar $root_tree >subtree-all.tar &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t\"$TAR\" xf subtree-all.tar -C extract &&\n"> <LIT_CHARS "\tcheck_dir extract sub\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive empty subtree by direct pathspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar $root_tree -- sub >subtree-path.tar &&\n"> <LIT_CHARS "\tmake_dir extract &&\n"> <LIT_CHARS "\t\"$TAR\" xf subtree-path.tar -C extract &&\n"> <LIT_CHARS "\tcheck_dir extract sub\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ZIPINFO', {[LIT_CHARS zipinfo]})])
  (Com {[LIT_CHARS test_lazy_prereq]} {[LIT_CHARS ZIPINFO]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tn=$(\"$ZIPINFO\" \"$TEST_DIRECTORY\"/t5004/empty.zip | sed -n \"2s/.* //p\")\n"> <LIT_CHARS "\ttest \"x$n\" = \"x0\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS ZIPINFO]} {[SQ <LIT_CHARS "zip archive with many entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# add a directory with 256 files\n"> <LIT_CHARS "\tmkdir 00 &&\n"> <LIT_CHARS "\tfor a in 0 1 2 3 4 5 6 7 8 9 a b c d e f\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tfor b in 0 1 2 3 4 5 6 7 8 9 a b c d e f\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\t: >00/$a$b\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit add 00 &&\n"> <LIT_CHARS "\tgit commit -m \"256 files in 1 directory\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# duplicate it to get 65536 files in 256 directories\n"> <LIT_CHARS "\tsubtree=$(git write-tree --prefix=00/) &&\n"> <LIT_CHARS "\tfor c in 0 1 2 3 4 5 6 7 8 9 a b c d e f\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tfor d in 0 1 2 3 4 5 6 7 8 9 a b c d e f\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\techo \"040000 tree $subtree\t$c$d\"\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\tdone >tree &&\n"> <LIT_CHARS "\ttree=$(git mktree <tree) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# zip them\n"> <LIT_CHARS "\tgit archive -o many.zip $tree &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# check the number of entries in the ZIP file directory\n"> <LIT_CHARS "\texpr 65536 + 256 >expect &&\n"> <LIT_CHARS "\t\"$ZIPINFO\" many.zip | head -2 | sed -n \"2s/.* //p\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)