(command.CommandList
  children: [
    (command.ShAssignment
      left: <Id.Lit_VarLike 'test_description='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'test_description='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'test_description='> name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'fetching via git:// using core.gitproxy'>)}
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [{<.>} {<'./test-lib.sh'>}]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'setup remote repo'>)}
        {
          (SQ <'\n'> <'\tgit init remote &&\n'> <'\t(cd remote &&\n'> <'\t echo content >file &&\n'> 
            <'\t git add file &&\n'> <'\t git commit -m one\n'> <'\t)\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'setup proxy script'>)}
        {
          (SQ <'\n'> <'\twrite_script proxy-get-cmd "$PERL_PATH" <<-\\EOF &&\n'> 
            <'\tread(STDIN, $buf, 4);\n'> <'\tmy $n = hex($buf) - 4;\n'> <'\tread(STDIN, $buf, $n);\n'> 
            <'\tmy ($cmd, $other) = split /\\0/, $buf;\n'> <'\t# drop absolute-path on repo name\n'> <'\t$cmd =~ s{ /}{ };\n'> <'\tprint $cmd;\n'> <'\tEOF\n'> 
            <'\n'> <'\twrite_script proxy <<-\\EOF\n'> <'\techo >&2 "proxying for $*"\n'> <'\tcmd=$(./proxy-get-cmd)\n'> 
            <'\techo >&2 "Running $cmd"\n'> <'\texec $cmd\n'> <'\tEOF\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'setup local repo'>)}
        {
          (SQ <'\n'> <'\tgit remote add fake git://example.com/remote &&\n'> 
            <'\tgit config core.gitproxy ./proxy\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'fetch through proxy works'>)}
        {
          (SQ <'\n'> <'\tgit fetch fake &&\n'> <'\techo one >expect &&\n'> 
            <'\tgit log -1 --format=%s FETCH_HEAD >actual &&\n'> <'\ttest_cmp expect actual\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_done>
      more_env: []
      words: [{<test_done>}]
      redirects: []
      do_fork: T
    )
  ]
)