(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test automatic tag following">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo ichi >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m L &&\n"> <LIT_CHARS "\tL=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tmkdir cloned &&\n"> <LIT_CHARS "\t\tcd cloned &&\n"> <LIT_CHARS "\t\tgit init-db &&\n"> <LIT_CHARS "\t\tgit remote add -f origin ..\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo A >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m A &&\n"> <LIT_CHARS "\tA=$(git rev-parse --verify HEAD)\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('U', {[LIT_CHARS UPLOAD_LOG]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('UPATH', {[DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /][VarSub U]]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat - <<EOF >expect\n"> <LIT_CHARS "want $A\n"> <LIT_CHARS "EOF\n">]})
  (FunctionDef get_needs []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS test]} {[LIT_CHARS -s]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS perl]} {[LIT_CHARS -alne]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tnext unless $F[1] eq \"upload-pack<\";\n"> <LIT_CHARS "\t\tlast if $F[2] eq \"0000\";\n"> <LIT_CHARS "\t\tprint $F[2], \" \", $F[3];\n"> <LIT_CHARS "\t">]} {[DQ [VarSub 1]]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch A (new commit : 1 connection)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f $U &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd cloned &&\n"> <LIT_CHARS "\t\tGIT_TRACE_PACKET=$UPATH git fetch &&\n"> <LIT_CHARS "\t\ttest $A = $(git rev-parse --verify origin/master)\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tget_needs $U >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "create tag T on A, create C on branch cat"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag -a -m tag1 tag1 $A &&\n"> <LIT_CHARS "\tT=$(git rev-parse --verify tag1) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b cat &&\n"> <LIT_CHARS "\techo C >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m C &&\n"> <LIT_CHARS "\tC=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tgit checkout master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat - <<EOF >expect\n"> <LIT_CHARS "want $C\n"> <LIT_CHARS "want $T\n"> <LIT_CHARS "EOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch C, T (new branch, tag : 1 connection)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f $U &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd cloned &&\n"> <LIT_CHARS "\t\tGIT_TRACE_PACKET=$UPATH git fetch &&\n"> <LIT_CHARS "\t\ttest $C = $(git rev-parse --verify origin/cat) &&\n"> <LIT_CHARS "\t\ttest $T = $(git rev-parse --verify tag1) &&\n"> <LIT_CHARS "\t\ttest $A = $(git rev-parse --verify tag1^0)\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tget_needs $U >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "create commits O, B, tag S on B"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo O >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m O &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo B >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m B &&\n"> <LIT_CHARS "\tB=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag -a -m tag2 tag2 $B &&\n"> <LIT_CHARS "\tS=$(git rev-parse --verify tag2)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat - <<EOF >expect\n"> <LIT_CHARS "want $B\n"> <LIT_CHARS "want $S\n"> <LIT_CHARS "EOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch B, S (commit and tag : 1 connection)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f $U &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd cloned &&\n"> <LIT_CHARS "\t\tGIT_TRACE_PACKET=$UPATH git fetch &&\n"> <LIT_CHARS "\t\ttest $B = $(git rev-parse --verify origin/master) &&\n"> <LIT_CHARS "\t\ttest $B = $(git rev-parse --verify tag2^0) &&\n"> <LIT_CHARS "\t\ttest $S = $(git rev-parse --verify tag2)\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tget_needs $U >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat - <<EOF >expect\n"> <LIT_CHARS "want $B\n"> <LIT_CHARS "want $S\n"> <LIT_CHARS "EOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "new clone fetch master and tags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git branch -D cat &&\n"> <LIT_CHARS "\trm -f $U &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tmkdir clone2 &&\n"> <LIT_CHARS "\t\tcd clone2 &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\tgit remote add origin .. &&\n"> <LIT_CHARS "\t\tGIT_TRACE_PACKET=$UPATH git fetch &&\n"> <LIT_CHARS "\t\ttest $B = $(git rev-parse --verify origin/master) &&\n"> <LIT_CHARS "\t\ttest $S = $(git rev-parse --verify tag2) &&\n"> <LIT_CHARS "\t\ttest $B = $(git rev-parse --verify tag2^0) &&\n"> <LIT_CHARS "\t\ttest $T = $(git rev-parse --verify tag1) &&\n"> <LIT_CHARS "\t\ttest $A = $(git rev-parse --verify tag1^0)\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tget_needs $U >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)