(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"tagopt variable affects \"git fetch\" and is overridden by commandline.">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: setup_clone
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(git)} {(clone)} {(--mirror)} {(.)} {($ VSub_Number "$1")})
                (AndOr
                  children: [
                    (C {(git)} {(remote)} {(add)} {(remote_) ($ VSub_Number "$1")} {($ VSub_Number "$1")})
                    (Subshell
                      child: 
                        (AndOr
                          children: [
                            (C {(cd)} {($ VSub_Number "$1")})
                            (AndOr
                              children: [
                                (C {(git)} {(tag)} {(tag_) ($ VSub_Number "$1")})
                                (C {(git)} {(branch)} {(branch_) ($ VSub_Number "$1")})
                              ]
                              op_id: Op_DAmp
                            )
                          ]
                          op_id: Op_DAmp
                        )
                      spids: [50 74]
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [20]
        )
      spids: [15 19]
    )
    (C {(test_expect_success)} {(setup)} 
      {
        (SQ <"\n"> <"\ttest_commit test &&\n"> <"\tsetup_clone one &&\n"> 
          <"\tgit config remote.remote_one.tagopt --no-tags &&\n"> <"\tsetup_clone two &&\n"> <"\tgit config remote.remote_two.tagopt --tags\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(DQ ("fetch with tagopt=--no-tags does not get tag"))} 
      {
        (SQ <"\n"> <"\tgit fetch remote_one &&\n"> <"\ttest_must_fail git show-ref tag_one &&\n"> 
          <"\tgit show-ref remote_one/branch_one\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(DQ ("fetch --tags with tagopt=--no-tags gets tag"))} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd one &&\n"> <"\t\tgit branch second_branch_one\n"> <"\t) &&\n"> 
          <"\tgit fetch --tags remote_one &&\n"> <"\tgit show-ref tag_one &&\n"> <"\tgit show-ref remote_one/second_branch_one\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(DQ ("fetch --no-tags with tagopt=--tags does not get tag"))} 
      {
        (SQ <"\n"> <"\tgit fetch --no-tags remote_two &&\n"> 
          <"\ttest_must_fail git show-ref tag_two &&\n"> <"\tgit show-ref remote_two/branch_two\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(DQ ("fetch with tagopt=--tags gets tag"))} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd two &&\n"> <"\t\tgit branch second_branch_two\n"> <"\t) &&\n"> 
          <"\tgit fetch remote_two &&\n"> <"\tgit show-ref tag_two &&\n"> <"\tgit show-ref remote_two/second_branch_two\n"> <"\t">
        )
      }
    )
    (C {(test_done)})
  ]
)