(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "fetching via git:// using core.gitproxy">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup remote repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init remote &&\n"> <LIT_CHARS "\t(cd remote &&\n"> <LIT_CHARS "\t echo content >file &&\n"> <LIT_CHARS "\t git add file &&\n"> <LIT_CHARS "\t git commit -m one\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS proxy]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "#!/bin/sh\n"] [LIT_CHARS "echo >&2 \"proxying for $*\"\n"] [LIT_CHARS "cmd=`\"$PERL_PATH\" -e '\n"] [LIT_CHARS "\tread(STDIN, $buf, 4);\n"] [LIT_CHARS "\tmy $n = hex($buf) - 4;\n"] [LIT_CHARS "\tread(STDIN, $buf, $n);\n"] [LIT_CHARS "\tmy ($cmd, $other) = split /\\0/, $buf;\n"] [LIT_CHARS "\t# drop absolute-path on repo name\n"] [LIT_CHARS "\t$cmd =~ s{ /}{ };\n"] [LIT_CHARS "\tprint $cmd;\n"] [LIT_CHARS "'`\n"] [LIT_CHARS "echo >&2 \"Running '$cmd'\"\n"] [LIT_CHARS "exec $cmd\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS chmod]} {[LIT_OTHER "+"] [LIT_CHARS x]} {[LIT_CHARS proxy]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup local repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit remote add fake git://example.com/remote &&\n"> <LIT_CHARS "\tgit config core.gitproxy ./proxy\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch through proxy works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit fetch fake &&\n"> <LIT_CHARS "\techo one >expect &&\n"> <LIT_CHARS "\tgit log -1 --format=%s FETCH_HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)