(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git svn init/clone tests'>)}
        )
      ]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(set)} {(-e)})
    (C {(rm)} {(-r)} {(.git)})
    (C {(mkdir)} {(tmp)})
    (C {(cd)} {(tmp)})
    (C {(test_expect_success)} {(SQ <'setup svnrepo'>)} 
      {
        (SQ <'\n'> <'\tmkdir project project/trunk project/branches project/tags &&\n'> 
          <'\techo foo > project/trunk/foo &&\n'> <'\tsvn_cmd import -m "$test_description" project "$svnrepo"/project &&\n'> <'\trm -rf project\n'> 
          <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'basic clone'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d trunk &&\n'> <'\tgit svn clone "$svnrepo"/project/trunk &&\n'> 
          <'\ttest -d trunk/.git/svn &&\n'> <'\ttest -e trunk/foo &&\n'> <'\trm -rf trunk\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone to target directory'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d target &&\n'> <'\tgit svn clone "$svnrepo"/project/trunk target &&\n'> 
          <'\ttest -d target/.git/svn &&\n'> <'\ttest -e target/foo &&\n'> <'\trm -rf target\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone with --stdlayout'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> <'\tgit svn clone -s "$svnrepo"/project &&\n'> 
          <'\ttest -d project/.git/svn &&\n'> <'\ttest -e project/foo &&\n'> <'\trm -rf project\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone to target directory with --stdlayout'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d target &&\n'> <'\tgit svn clone -s "$svnrepo"/project target &&\n'> 
          <'\ttest -d target/.git/svn &&\n'> <'\ttest -e target/foo &&\n'> <'\trm -rf target\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'init without -s/-T/-b/-t does not warn'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d trunk &&\n'> 
          <'\tgit svn init "$svnrepo"/project/trunk trunk 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\trm -rf trunk &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone without -s/-T/-b/-t does not warn'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d trunk &&\n'> 
          <'\tgit svn clone "$svnrepo"/project/trunk 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\trm -rf trunk &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (command.FuncDef
      name: test_svn_configured_prefix
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp]
              children: [
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:prefix)
                      op: Equal
                      rhs: {($ VSub_Number '$1')}
                    )
                  ]
                )
                (command.SimpleCommand
                  words: [{(cat)}]
                  redirects: [
                    (redir.Redir
                      op: <Redir_Great '>'>
                      fd: 16777215
                      arg_word: {(expect)}
                    )
                    (redir.HereDoc
                      op: <Redir_DLess '<<'>
                      fd: 16777215
                      here_begin: {(EOF)}
                      here_end_span_id: 204
                      stdin_parts: [
                        ('project/trunk:refs/remotes/')
                        (${ VSub_Name prefix)
                        ('trunk\n')
                        ('project/branches/*:refs/remotes/')
                        (${ VSub_Name prefix)
                        ('*\n')
                        ('project/tags/*:refs/remotes/')
                        (${ VSub_Name prefix)
                        ('tags/*\n')
                      ]
                    )
                  ]
                )
                (C {(test)} {(KW_Bang '!')} {(-f)} {(actual)})
                (command.SimpleCommand
                  words: [
                    {(git)}
                    {(--git-dir) (Lit_Other '=') (project/.git)}
                    {(config)}
                    {(svn-remote.svn.fetch)}
                  ]
                  redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(actual)})]
                )
                (command.SimpleCommand
                  words: [
                    {(git)}
                    {(--git-dir) (Lit_Other '=') (project/.git)}
                    {(config)}
                    {(svn-remote.svn.branches)}
                  ]
                  redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(actual)})]
                )
                (command.SimpleCommand
                  words: [
                    {(git)}
                    {(--git-dir) (Lit_Other '=') (project/.git)}
                    {(config)}
                    {(svn-remote.svn.tags)}
                  ]
                  redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(actual)})]
                )
                (C {(test_cmp)} {(expect)} {(actual)})
                (C {(rm)} {(-f)} {(expect)} {(actual)})
              ]
            )
          ]
        )
    )
    (C {(test_expect_success)} {(SQ <'init with -s/-T/-b/-t assumes --prefix=origin/'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> 
          <'\tgit svn init -s "$svnrepo"/project project 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\ttest_svn_configured_prefix "origin/" &&\n'> 
          <'\trm -rf project &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone with -s/-T/-b/-t assumes --prefix=origin/'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> 
          <'\tgit svn clone -s "$svnrepo"/project 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\ttest_svn_configured_prefix "origin/" &&\n'> 
          <'\trm -rf project &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'init with -s/-T/-b/-t and --prefix "" still works'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> 
          <'\tgit svn init -s "$svnrepo"/project project --prefix "" 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\ttest_svn_configured_prefix "" &&\n'> 
          <'\trm -rf project &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone with -s/-T/-b/-t and --prefix "" still works'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> 
          <'\tgit svn clone -s "$svnrepo"/project --prefix "" 2>warning &&\n'> <'\ttest_must_fail grep -q prefix warning &&\n'> <'\ttest_svn_configured_prefix "" &&\n'> 
          <'\trm -rf project &&\n'> <'\trm -f warning\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'init with -T as a full url works'>)} 
      {
        (SQ <'\n'> <'\ttest ! -d project &&\n'> 
          <'\tgit svn init -T "$svnrepo"/project/trunk project &&\n'> <'\trm -rf project\n'> <'\t'>
        )
      }
    )
    (C {(test_done)})
  ]
)