(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git pack-object --include-tag">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TRASH', {[ComSub (Com {[LIT_CHARS pwd]})]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo c >d &&\n"> <LIT_CHARS "\tgit update-index --add d &&\n"> <LIT_CHARS "\ttree=`git write-tree` &&\n"> <LIT_CHARS "\tcommit=`git commit-tree $tree </dev/null` &&\n"> <LIT_CHARS "\techo \"object $commit\" >sig &&\n"> <LIT_CHARS "\techo \"type commit\" >>sig &&\n"> <LIT_CHARS "\techo \"tag mytag\" >>sig &&\n"> <LIT_CHARS "\techo \"tagger $(git var GIT_COMMITTER_IDENT)\" >>sig &&\n"> <LIT_CHARS "\techo >>sig &&\n"> <LIT_CHARS "\techo \"our test tag\" >>sig &&\n"> <LIT_CHARS "\ttag=`git mktag <sig` &&\n"> <LIT_CHARS "\trm d sig &&\n"> <LIT_CHARS "\tgit update-ref refs/tags/mytag $tag && {\n"> <LIT_CHARS "\t\techo $tree &&\n"> <LIT_CHARS "\t\techo $commit &&\n"> <LIT_CHARS "\t\tgit ls-tree $tree | sed -e \"s/.* \\\\([0-9a-f]*\\\\)\t.*/\\\\1/\"\n"> <LIT_CHARS "\t} >obj-list\n">]}  )
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS clone.git]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack without --include-tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpackname_1=$(git pack-objects \\\n"> <LIT_CHARS "\t\t--window=0 \\\n"> <LIT_CHARS "\t\ttest-1 <obj-list)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unpack objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_DIR=clone.git &&\n"> <LIT_CHARS "\t\texport GIT_DIR &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\tgit unpack-objects -n <test-1-${packname_1}.pack &&\n"> <LIT_CHARS "\t\tgit unpack-objects <test-1-${packname_1}.pack\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check unpacked result (have commit, no tag)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects $commit >list.expect &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_DIR=clone.git &&\n"> <LIT_CHARS "\t\texport GIT_DIR &&\n"> <LIT_CHARS "\t\ttest_must_fail git cat-file -e $tag &&\n"> <LIT_CHARS "\t\tgit rev-list --objects $commit\n"> <LIT_CHARS "\t) >list.actual &&\n"> <LIT_CHARS "\ttest_cmp list.expect list.actual\n">]}  )
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS clone.git]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack with --include-tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpackname_1=$(git pack-objects \\\n"> <LIT_CHARS "\t\t--window=0 \\\n"> <LIT_CHARS "\t\t--include-tag \\\n"> <LIT_CHARS "\t\ttest-2 <obj-list)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unpack objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_DIR=clone.git &&\n"> <LIT_CHARS "\t\texport GIT_DIR &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\tgit unpack-objects -n <test-2-${packname_1}.pack &&\n"> <LIT_CHARS "\t\tgit unpack-objects <test-2-${packname_1}.pack\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check unpacked result (have commit, have tag)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects mytag >list.expect &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_DIR=clone.git &&\n"> <LIT_CHARS "\t\texport GIT_DIR &&\n"> <LIT_CHARS "\t\tgit rev-list --objects $tag\n"> <LIT_CHARS "\t) >list.actual &&\n"> <LIT_CHARS "\ttest_cmp list.expect list.actual\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)