(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'git svn shallow clone'>)}
          spids: [13]
        )
      ]
    )
    (C {<.>} {<'./lib-git-svn.sh'>})
    (C {<test_expect_success>} {(SQ <'setup test repository'>)} 
      {
        (SQ <'\n'> <'\tsvn_cmd mkdir -m "create standard layout" \\\n'> 
          <'\t  "$svnrepo"/trunk "$svnrepo"/branches "$svnrepo"/tags &&\n'> <'\tsvn_cmd cp -m "branch off trunk" \\\n'> <'\t  "$svnrepo"/trunk "$svnrepo"/branches/a &&\n'> 
          <'\tsvn_cmd co "$svnrepo"/branches/a &&\n'> <'\t(\n'> <'\t\tcd a &&\n'> <'\t\t> foo &&\n'> <'\t\tsvn_cmd add foo &&\n'> 
          <'\t\tsvn_cmd commit -m "add foo"\n'> <'\t) &&\n'> <'\tmaybe_start_httpd\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'clone trunk with "-r HEAD"'>)} 
      {
        (SQ <'\n'> <'\tgit svn clone -r HEAD "$svnrepo/trunk" g &&\n'> 
          <'\t( cd g && git rev-parse --symbolic --verify HEAD )\n'>
        )
      }
    )
    (C {<stop_httpd>})
    (C {<test_done>})
  ]
)