(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)}) ] )