(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"basic clone options">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <"\n"> <"\n"> <"\tmkdir parent &&\n"> <"\t(cd parent && git init &&\n"> 
          <"\t echo one >file && git add file &&\n"> <"\t git commit -m one)\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone -o">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit clone -o foo parent clone-o &&\n"> 
          <"\t(cd clone-o && git rev-parse --verify refs/remotes/foo/master)\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"redirected clone does not show progress">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit clone \"file://$(pwd)/parent\" clone-redirected >out 2>err &&\n"> 
          <"\t! grep % err &&\n"> <"\ttest_i18ngrep ! \"Checking connectivity\" err\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"redirected clone -v does show progress">)} 
      {
        (SQ <"\n"> <"\n"> 
          <"\tgit clone --progress \"file://$(pwd)/parent\" clone-redirected-progress \\\n"> <"\t\t>out 2>err &&\n"> <"\tgrep % err\n"> <"\n">
        )
      }
    )
    (C {(test_done)})
  ]
)