(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description) op: Equal rhs: {(SQ <"git svn useSvmProps test">)} spids: [13] ) ] spids: [13] ) (C {(.)} {(./lib-git-svn.sh)}) (C {(test_expect_success)} {(SQ <"load svm repo">)} { (SQ <"\n"> <"\tsvnadmin load -q \"$rawsvnrepo\" < \"$TEST_DIRECTORY\"/t9110/svm.dump &&\n"> <"\tgit svn init --minimize-url -R arr -i bar \"$svnrepo\"/mirror/arr &&\n"> <"\tgit svn init --minimize-url -R argh -i dir \"$svnrepo\"/mirror/argh &&\n"> <"\tgit svn init --minimize-url -R argh -i e \\\n"> <"\t \"$svnrepo\"/mirror/argh/a/b/c/d/e &&\n"> <"\tgit config svn.useSvmProps true &&\n"> <"\tgit svn fetch --all\n"> <"\t"> ) } ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:uuid) op: Equal rhs: {(161ce429-a9dd-4828-af4a-52023f968c89)} spids: [43] ) ] spids: [43] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:bar_url) op: Equal rhs: {(http) (Lit_Other ":") (//mayonaise/svnrepo/bar)} spids: [47] ) ] spids: [47] ) (C {(test_expect_success)} {(SQ <"verify metadata for /bar">)} { (DQ ("\n") ("\tgit cat-file commit refs/remotes/bar | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@12 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/bar~1 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@11 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/bar~2 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@10 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/bar~3 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@9 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/bar~4 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@6 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/bar~5 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$bar_url") ("@1 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("'\n") ("\t") ) } ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:e_url) op: Equal rhs: {(http) (Lit_Other ":") (//mayonaise/svnrepo/dir/a/b/c/d/e)} spids: [112] ) ] spids: [112] ) (C {(test_expect_success)} {(SQ <"verify metadata for /dir/a/b/c/d/e">)} { (DQ ("\n") ("\tgit cat-file commit refs/remotes/e | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$e_url") ("@1 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("'\n") ("\t") ) } ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:dir_url) op: Equal rhs: {(http) (Lit_Other ":") (//mayonaise/svnrepo/dir)} spids: [137] ) ] spids: [137] ) (C {(test_expect_success)} {(SQ <"verify metadata for /dir">)} { (DQ ("\n") ("\tgit cat-file commit refs/remotes/dir | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$dir_url") ("@2 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("' &&\n") ("\tgit cat-file commit refs/remotes/dir~1 | ") ("\t grep '^git-svn-id: ") ($ VSub_Name "$dir_url") ("@1 ") ($ VSub_Name "$uuid") (Lit_Other "$") ("'\n") ("\t") ) } ) (C {(test_expect_success)} {(SQ <"find commit based on SVN revision number">)} { (DQ ("\n") (" git svn find-rev r12 |\n") ("\t grep ") (CommandSubPart command_list: (CommandList children:[(C {(git)} {(rev-parse)} {(HEAD)})]) left_token: <Left_CommandSub "$("> spids: [180 186] ) ("\n") (" ") ) } ) (C {(test_expect_success)} {(SQ <"empty rebase">)} {(DQ ("\n") ("\tgit svn rebase\n") ("\t"))}) (C {(test_done)}) ] )