(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test git clone to cleanup after failure\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test covers the fact that if git clone fails, it should remove\n"> <LIT_CHARS "the directory it created, to avoid the user having to manually\n"> <LIT_CHARS "remove the directory before attempting a clone again.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone of non-existent source should fail">]} {[SQ <LIT_CHARS "test_must_fail git clone foo bar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "failed clone should not leave a directory">]} {[SQ <LIT_CHARS "! test -d bar">]})
  (Com {[LIT_CHARS test_create_repo]} {[LIT_CHARS foo]})
  (Subshell
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS cd]} {[LIT_CHARS foo]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS touch]} {[LIT_CHARS file]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS add]} {[LIT_CHARS file]})
          (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[SQ <LIT_CHARS "add file">]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
            (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
            >
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone of non-existent (relative to $PWD) source should fail">]} {[SQ <LIT_CHARS "test_must_fail git clone ../foo baz">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone should work now that source exists">]} {[SQ <LIT_CHARS "git clone foo bar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "successful clone must leave the directory">]} {[SQ <LIT_CHARS "test -d bar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "failed clone --separate-git-dir should not leave any directories">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir foo/.git/objects.bak/ &&\n"> <LIT_CHARS "\tmv foo/.git/objects/* foo/.git/objects.bak/ &&\n"> <LIT_CHARS "\ttest_must_fail git clone --separate-git-dir gitdir foo worktree &&\n"> <LIT_CHARS "\ttest_must_fail test -e gitdir &&\n"> <LIT_CHARS "\ttest_must_fail test -e worktree &&\n"> <LIT_CHARS "\tmv foo/.git/objects.bak/* foo/.git/objects/ &&\n"> <LIT_CHARS "\trmdir foo/.git/objects.bak\n">]})
  (Com {[LIT_CHARS test_done]})
)