(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn fetching">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initialize repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir import &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd import &&\n"> <LIT_CHARS "\t\tmkdir -p trunk &&\n"> <LIT_CHARS "\t\techo hello >trunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd import -m \"initial\" . \"$svnrepo\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\" wc &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd wc &&\n"> <LIT_CHARS "\t\techo world >>trunk/readme &&\n"> <LIT_CHARS "\t\tpoke trunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"another commit\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\tsvn_cmd mv trunk thunk &&\n"> <LIT_CHARS "\t\techo goodbye >>thunk/readme &&\n"> <LIT_CHARS "\t\tpoke thunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"bye now\"\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "init and fetch a moved directory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit svn init --minimize-url -i thunk \"$svnrepo\"/thunk &&\n"> <LIT_CHARS "\tgit svn fetch -i thunk &&\n"> <LIT_CHARS "\ttest \"`git rev-parse --verify refs/remotes/thunk@2`\" \\\n"> <LIT_CHARS "           = \"`git rev-parse --verify refs/remotes/thunk~1`\" &&\n"> <LIT_CHARS "        test \"`git cat-file blob refs/remotes/thunk:readme |\\\n"> <LIT_CHARS "                 sed -n -e \"3p\"`\" = goodbye &&\n"> <LIT_CHARS "\ttest -z \"`git config --get svn-remote.svn.fetch \\\n"> <LIT_CHARS "\t         \"^trunk:refs/remotes/thunk@2$\"`\"\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "init and fetch from one svn-remote">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "        git config svn-remote.svn.url \"$svnrepo\" &&\n"> <LIT_CHARS "        git config --add svn-remote.svn.fetch \\\n"> <LIT_CHARS "          trunk:refs/remotes/svn/trunk &&\n"> <LIT_CHARS "        git config --add svn-remote.svn.fetch \\\n"> <LIT_CHARS "          thunk:refs/remotes/svn/thunk &&\n"> <LIT_CHARS "        git svn fetch -i svn/thunk &&\n"> <LIT_CHARS "\ttest \"`git rev-parse --verify refs/remotes/svn/trunk`\" \\\n"> <LIT_CHARS "           = \"`git rev-parse --verify refs/remotes/svn/thunk~1`\" &&\n"> <LIT_CHARS "        test \"`git cat-file blob refs/remotes/svn/thunk:readme |\\\n"> <LIT_CHARS "                 sed -n -e \"3p\"`\" = goodbye\n"> <LIT_CHARS "        ">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow deleted parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "        (svn_cmd cp -m \"resurrecting trunk as junk\" \\\n"> <LIT_CHARS "               \"$svnrepo\"/trunk@2 \"$svnrepo\"/junk ||\n"> <LIT_CHARS "         svn cp -m \"resurrecting trunk as junk\" \\\n"> <LIT_CHARS "               -r2 \"$svnrepo\"/trunk \"$svnrepo\"/junk) &&\n"> <LIT_CHARS "        git config --add svn-remote.svn.fetch \\\n"> <LIT_CHARS "          junk:refs/remotes/svn/junk &&\n"> <LIT_CHARS "        git svn fetch -i svn/thunk &&\n"> <LIT_CHARS "        git svn fetch -i svn/junk &&\n"> <LIT_CHARS "        test -z \"`git diff svn/junk svn/trunk`\" &&\n"> <LIT_CHARS "        test \"`git merge-base svn/junk svn/trunk`\" \\\n"> <LIT_CHARS "           = \"`git rev-parse svn/trunk`\"\n"> <LIT_CHARS "        ">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow larger parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "        mkdir -p import/trunk/thunk/bump/thud &&\n"> <LIT_CHARS "        echo hi > import/trunk/thunk/bump/thud/file &&\n"> <LIT_CHARS "        svn import -m \"import a larger parent\" import \"$svnrepo\"/larger-parent &&\n"> <LIT_CHARS "        svn cp -m \"hi\" \"$svnrepo\"/larger-parent \"$svnrepo\"/another-larger &&\n"> <LIT_CHARS "        git svn init --minimize-url -i larger \\\n"> <LIT_CHARS "          \"$svnrepo\"/another-larger/trunk/thunk/bump/thud &&\n"> <LIT_CHARS "        git svn fetch -i larger &&\n"> <LIT_CHARS "        git rev-parse --verify refs/remotes/larger &&\n"> <LIT_CHARS "        git rev-parse --verify \\\n"> <LIT_CHARS "           refs/remotes/larger-parent/trunk/thunk/bump/thud &&\n"> <LIT_CHARS "        test \"`git merge-base \\\n"> <LIT_CHARS "                 refs/remotes/larger-parent/trunk/thunk/bump/thud \\\n"> <LIT_CHARS "                 refs/remotes/larger`\" = \\\n"> <LIT_CHARS "             \"`git rev-parse refs/remotes/larger`\"\n"> <LIT_CHARS "        true\n"> <LIT_CHARS "        ">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow higher-level parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn mkdir -m \"follow higher-level parent\" \"$svnrepo\"/blob &&\n"> <LIT_CHARS "\tsvn co \"$svnrepo\"/blob blob &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd blob &&\n"> <LIT_CHARS "\t\techo hi > hi &&\n"> <LIT_CHARS "\t\tsvn add hi &&\n"> <LIT_CHARS "\t\tsvn commit -m \"hihi\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsvn mkdir -m \"new glob at top level\" \"$svnrepo\"/glob &&\n"> <LIT_CHARS "\tsvn mv -m \"move blob down a level\" \"$svnrepo\"/blob \"$svnrepo\"/glob/blob &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i blob \"$svnrepo\"/glob/blob &&\n"> <LIT_CHARS "        git svn fetch -i blob\n"> <LIT_CHARS "        ">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow deleted directory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd mv -m \"bye!\" \"$svnrepo\"/glob/blob/hi \"$svnrepo\"/glob/blob/bye &&\n"> <LIT_CHARS "\tsvn_cmd rm -m \"remove glob\" \"$svnrepo\"/glob &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i glob \"$svnrepo\"/glob &&\n"> <LIT_CHARS "\tgit svn fetch -i glob &&\n"> <LIT_CHARS "\ttest \"`git cat-file blob refs/remotes/glob:blob/bye`\" = hi &&\n"> <LIT_CHARS "\ttest \"`git ls-tree refs/remotes/glob | wc -l `\" -eq 1\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow-parent avoids deleting relevant info">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p import/trunk/subversion/bindings/swig/perl/t &&\n"> <LIT_CHARS "\tfor i in a b c ; do \\\n"> <LIT_CHARS "\t  echo $i > import/trunk/subversion/bindings/swig/perl/$i.pm &&\n"> <LIT_CHARS "\t  echo _$i > import/trunk/subversion/bindings/swig/perl/t/$i.t; \\\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\t  echo \"bad delete test\" > \\\n"> <LIT_CHARS "\t   import/trunk/subversion/bindings/swig/perl/t/larger-parent &&\n"> <LIT_CHARS "\t  echo \"bad delete test 2\" > \\\n"> <LIT_CHARS "\t   import/trunk/subversion/bindings/swig/perl/another-larger &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd import &&\n"> <LIT_CHARS "\t\tsvn import -m \"r9270 test\" . \"$svnrepo\"/r9270\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\"/r9270/trunk/subversion/bindings/swig/perl r9270 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd r9270 &&\n"> <LIT_CHARS "\t\tsvn mkdir native &&\n"> <LIT_CHARS "\t\tsvn mv t native/t &&\n"> <LIT_CHARS "\t\tfor i in a b c\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tsvn mv $i.pm native/$i.pm\n"> <LIT_CHARS "\t\tdone &&\n"> <LIT_CHARS "\t\techo z >>native/t/c.t &&\n"> <LIT_CHARS "\t\tpoke native/t/c.t &&\n"> <LIT_CHARS "\t\tsvn commit -m \"reorg test\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i r9270-t \\\n"> <LIT_CHARS "\t  \"$svnrepo\"/r9270/trunk/subversion/bindings/swig/perl/native/t &&\n"> <LIT_CHARS "\tgit svn fetch -i r9270-t &&\n"> <LIT_CHARS "\ttest `git rev-list r9270-t | wc -l` -eq 2 &&\n"> <LIT_CHARS "\ttest \"`git ls-tree --name-only r9270-t~1`\" = \\\n"> <LIT_CHARS "\t     \"`git ls-tree --name-only r9270-t`\"\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "track initial change if it was only made to parent"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd cp -m \"wheee!\" \"$svnrepo\"/r9270/trunk \"$svnrepo\"/r9270/drunk &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i r9270-d \\\n"> <LIT_CHARS "\t  \"$svnrepo\"/r9270/drunk/subversion/bindings/swig/perl/native/t &&\n"> <LIT_CHARS "\tgit svn fetch -i r9270-d &&\n"> <LIT_CHARS "\ttest `git rev-list r9270-d | wc -l` -eq 3 &&\n"> <LIT_CHARS "\ttest \"`git ls-tree --name-only r9270-t`\" = \\\n"> <LIT_CHARS "\t     \"`git ls-tree --name-only r9270-d`\" &&\n"> <LIT_CHARS "\ttest \"`git rev-parse r9270-t`\" = \\\n"> <LIT_CHARS "\t     \"`git rev-parse r9270-d~1`\"\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "follow-parent is atomic"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd wc &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\tsvn_cmd mkdir stunk &&\n"> <LIT_CHARS "\t\techo \"trunk stunk\" > stunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd add stunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd ci -m \"trunk stunk\" &&\n"> <LIT_CHARS "\t\techo \"stunk like junk\" >> stunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd ci -m \"really stunk\" &&\n"> <LIT_CHARS "\t\techo \"stink stank stunk\" >> stunk/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd ci -m \"even the grinch agrees\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsvn_cmd copy -m \"stunk flunked\" \"$svnrepo\"/stunk \"$svnrepo\"/flunk &&\n"> <LIT_CHARS "\t{ svn cp -m \"early stunk flunked too\" \\\n"> <LIT_CHARS "\t\t\"$svnrepo\"/stunk@17 \"$svnrepo\"/flunked ||\n"> <LIT_CHARS "\tsvn_cmd cp -m \"early stunk flunked too\" \\\n"> <LIT_CHARS "\t\t-r17 \"$svnrepo\"/stunk \"$svnrepo\"/flunked; } &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i stunk \"$svnrepo\"/stunk &&\n"> <LIT_CHARS "\tgit svn fetch -i stunk &&\n"> <LIT_CHARS "\tgit update-ref refs/remotes/flunk@18 refs/remotes/stunk~2 &&\n"> <LIT_CHARS "\tgit update-ref -d refs/remotes/stunk &&\n"> <LIT_CHARS "\tgit config --unset svn-remote.svn.fetch stunk &&\n"> <LIT_CHARS "\tmkdir -p \"$GIT_DIR\"/svn/refs/remotes/flunk@18 &&\n"> <LIT_CHARS "\trev_map=$(cd \"$GIT_DIR\"/svn/refs/remotes/stunk && ls .rev_map*) &&\n"> <LIT_CHARS "\tdd if=\"$GIT_DIR\"/svn/refs/remotes/stunk/$rev_map \\\n"> <LIT_CHARS "\t   of=\"$GIT_DIR\"/svn/refs/remotes/flunk@18/$rev_map bs=24 count=1 &&\n"> <LIT_CHARS "\trm -rf \"$GIT_DIR\"/svn/refs/remotes/stunk &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i flunk \"$svnrepo\"/flunk &&\n"> <LIT_CHARS "\tgit svn fetch -i flunk &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i stunk \"$svnrepo\"/stunk &&\n"> <LIT_CHARS "\tgit svn fetch -i stunk &&\n"> <LIT_CHARS "\tgit svn init --minimize-url -i flunked \"$svnrepo\"/flunked &&\n"> <LIT_CHARS "\tgit svn fetch -i flunked &&\n"> <LIT_CHARS "\ttest \"`git rev-parse --verify refs/remotes/flunk@18`\" \\\n"> <LIT_CHARS "\t   = \"`git rev-parse --verify refs/remotes/stunk`\" &&\n"> <LIT_CHARS "\ttest \"`git rev-parse --verify refs/remotes/flunk~1`\" \\\n"> <LIT_CHARS "\t   = \"`git rev-parse --verify refs/remotes/stunk`\" &&\n"> <LIT_CHARS "\ttest \"`git rev-parse --verify refs/remotes/flunked~1`\" \\\n"> <LIT_CHARS "\t   = \"`git rev-parse --verify refs/remotes/stunk~1`\"\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "track multi-parent paths"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd cp -m \"resurrect /glob\" \"$svnrepo\"/r9270 \"$svnrepo\"/glob &&\n"> <LIT_CHARS "\tgit svn multi-fetch &&\n"> <LIT_CHARS "\ttest `git cat-file commit refs/remotes/glob | \\\n"> <LIT_CHARS "\t       grep \"^parent \" | wc -l` -eq 2\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "multi-fetch continues to work"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit svn multi-fetch\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "multi-fetch works off a 'clean' repository"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -r \"$GIT_DIR/svn\" \"$GIT_DIR/refs/remotes\" \"$GIT_DIR/logs\" &&\n"> <LIT_CHARS "\tmkdir \"$GIT_DIR/svn\" &&\n"> <LIT_CHARS "\tgit svn multi-fetch\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "gitk --all &">]}  )
  (Com {[LIT_CHARS test_done]}  )
)