(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn globbing refspecs with prefixed globs">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test refspec prefixed globbing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect.end <<EOF\n"> <LIT_CHARS "the end\n"> <LIT_CHARS "hi\n"> <LIT_CHARS "start a new branch\n"> <LIT_CHARS "initial\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test refspec prefixed globbing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p trunk/src/a trunk/src/b trunk/doc &&\n"> <LIT_CHARS "\techo \"hello world\" >trunk/src/a/readme &&\n"> <LIT_CHARS "\techo \"goodbye world\" >trunk/src/b/readme &&\n"> <LIT_CHARS "\tsvn_cmd import -m \"initial\" trunk \"$svnrepo\"/trunk &&\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\" tmp &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\tmkdir branches tags &&\n"> <LIT_CHARS "\t\tsvn_cmd add branches tags &&\n"> <LIT_CHARS "\t\tsvn_cmd cp trunk branches/b_start &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"start a new branch\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\techo \"hi\" >>branches/b_start/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke branches/b_start/src/b/readme &&\n"> <LIT_CHARS "\t\techo \"hey\" >>branches/b_start/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke branches/b_start/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"hi\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\tsvn_cmd cp branches/b_start tags/t_end &&\n"> <LIT_CHARS "\t\techo \"bye\" >>tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\techo \"aye\" >>tags/t_end/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_end/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"the end\" &&\n"> <LIT_CHARS "\t\techo \"byebye\" >>tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"nothing to see here\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit config --add svn-remote.svn.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.svn.fetch \\\n"> <LIT_CHARS "\t\t\t \"trunk/src/a:refs/remotes/trunk\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.svn.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/b_*/src/a:refs/remotes/branches/b_*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.svn.tags\\\n"> <LIT_CHARS "\t\t\t \"tags/t_*/src/a:refs/remotes/tags/t_*\" &&\n"> <LIT_CHARS "\tgit svn multi-fetch &&\n"> <LIT_CHARS "\tgit log --pretty=oneline refs/remotes/tags/t_end | \\\n"> <LIT_CHARS "\t    sed -e \"s/^.\\{41\\}//\" >output.end &&\n"> <LIT_CHARS "\ttest_cmp expect.end output.end &&\n"> <LIT_CHARS "\ttest \"$(git rev-parse refs/remotes/tags/t_end~1)\" = \\\n"> <LIT_CHARS "\t\t\"$(git rev-parse refs/remotes/branches/b_start)\" &&\n"> <LIT_CHARS "\ttest \"$(git rev-parse refs/remotes/branches/b_start~2)\" = \\\n"> <LIT_CHARS "\t\t\"$(git rev-parse refs/remotes/trunk)\" &&\n"> <LIT_CHARS "\ttest_must_fail git rev-parse refs/remotes/tags/t_end@3\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test left-hand-side only prefixed globbing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo try to try >expect.two &&\n"> <LIT_CHARS "\techo nothing to see here >>expect.two &&\n"> <LIT_CHARS "\tcat expect.end >>expect.two\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test left-hand-side only prefixed globbing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --add svn-remote.two.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.two.fetch trunk:refs/remotes/two/trunk &&\n"> <LIT_CHARS "\tgit config --add svn-remote.two.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/b_*:refs/remotes/two/branches/*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.two.tags \\\n"> <LIT_CHARS "\t\t\t \"tags/t_*:refs/remotes/two/tags/*\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\techo \"try try\" >>tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"try to try\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit svn fetch two &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/two/tags/t_end | wc -l) -eq 6 &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/two/branches/b_start | wc -l) -eq 3 &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/two/branches/b_start~2) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/two/trunk) &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/two/tags/t_end~3) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/two/branches/b_start) &&\n"> <LIT_CHARS "\tgit log --pretty=oneline refs/remotes/two/tags/t_end | \\\n"> <LIT_CHARS "\t    sed -e \"s/^.\\{41\\}//\" >output.two &&\n"> <LIT_CHARS "\ttest_cmp expect.two output.two\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test prefixed globs match just prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect.three <<EOF\n"> <LIT_CHARS "Tag commit to t_\n"> <LIT_CHARS "Branch commit to b_\n"> <LIT_CHARS "initial\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test prefixed globs match just prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --add svn-remote.three.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.three.fetch \\\n"> <LIT_CHARS "\t\t\t trunk:refs/remotes/three/trunk &&\n"> <LIT_CHARS "\tgit config --add svn-remote.three.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/b_*:refs/remotes/three/branches/*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.three.tags \\\n"> <LIT_CHARS "\t\t\t \"tags/t_*:refs/remotes/three/tags/*\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\tsvn_cmd cp trunk branches/b_ &&\n"> <LIT_CHARS "\t\techo \"Branch commit to b_\" >>branches/b_/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke branches/b_/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"Branch commit to b_\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up && svn_cmd cp branches/b_ tags/t_ &&\n"> <LIT_CHARS "\t\techo \"Tag commit to t_\" >>tags/t_/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"Tag commit to t_\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit svn fetch three &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/three/branches/b_ | wc -l) -eq 2 &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/three/tags/t_ | wc -l) -eq 3 &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/three/branches/b_~1) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/three/trunk) &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/three/tags/t_~1) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/three/branches/b_) &&\n"> <LIT_CHARS "\tgit log --pretty=oneline refs/remotes/three/tags/t_ | \\\n"> <LIT_CHARS "\t    sed -e \"s/^.\\{41\\}//\" >output.three &&\n"> <LIT_CHARS "\ttest_cmp expect.three output.three\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test disallow prefixed multi-globs">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expect.four <<EOF\n"][LIT_CHARS "Only one set of wildcards (e.g. '*' or '*/*/*') is supported: branches/b_*/t/*\n"][LIT_CHARS "\n"][LIT_CHARS "EOF\n"][LIT_CHARS "\t"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test disallow prefixed multi-globs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --add svn-remote.four.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.four.fetch \\\n"> <LIT_CHARS "\t\t\t trunk:refs/remotes/four/trunk &&\n"> <LIT_CHARS "\tgit config --add svn-remote.four.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/b_*/t/*:refs/remotes/four/branches/*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.four.tags \\\n"> <LIT_CHARS "\t\t\t \"tags/t_*/*:refs/remotes/four/tags/*\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\techo \"try try\" >>tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke tags/t_end/src/b/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"try to try\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git svn fetch four 2>stderr.four &&\n"> <LIT_CHARS "\ttest_cmp expect.four stderr.four &&\n"> <LIT_CHARS "\tgit config --unset svn-remote.four.branches &&\n"> <LIT_CHARS "\tgit config --unset svn-remote.four.tags\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test globbing in the middle of the word">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect.five <<EOF\n"> <LIT_CHARS "Tag commit to fghij\n"> <LIT_CHARS "Branch commit to abcde\n"> <LIT_CHARS "initial\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test globbing in the middle of the word">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --add svn-remote.five.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.five.fetch \\\n"> <LIT_CHARS "\t\t\t trunk:refs/remotes/five/trunk &&\n"> <LIT_CHARS "\tgit config --add svn-remote.five.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/a*e:refs/remotes/five/branches/*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.five.tags \\\n"> <LIT_CHARS "\t\t\t \"tags/f*j:refs/remotes/five/tags/*\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\tsvn_cmd cp trunk branches/abcde &&\n"> <LIT_CHARS "\t\techo \"Branch commit to abcde\" >>branches/abcde/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke branches/b_/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"Branch commit to abcde\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\tsvn_cmd cp branches/abcde tags/fghij &&\n"> <LIT_CHARS "\t\techo \"Tag commit to fghij\" >>tags/fghij/src/a/readme &&\n"> <LIT_CHARS "\t\tpoke tags/fghij/src/a/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"Tag commit to fghij\" &&\n"> <LIT_CHARS "\t\tsvn_cmd up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit svn fetch five &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/five/branches/abcde | wc -l) -eq 2 &&\n"> <LIT_CHARS "\ttest $(git rev-list refs/remotes/five/tags/fghij | wc -l) -eq 3 &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/five/branches/abcde~1) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/five/trunk) &&\n"> <LIT_CHARS "\ttest $(git rev-parse refs/remotes/five/tags/fghij~1) = \\\n"> <LIT_CHARS "\t     $(git rev-parse refs/remotes/five/branches/abcde) &&\n"> <LIT_CHARS "\tgit log --pretty=oneline refs/remotes/five/tags/fghij | \\\n"> <LIT_CHARS "\t    sed -e \"s/^.\\{41\\}//\" >output.five &&\n"> <LIT_CHARS "\ttest_cmp expect.five output.five\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare test disallow multiple asterisks in one word">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\techo "][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "Only one '*' is allowed in a pattern: 'a*c*e'"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS " >expect.six &&\n"][LIT_CHARS "\techo "][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS " >>expect.six\n"][LIT_CHARS "\t"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test disallow multiple asterisks in one word">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --add svn-remote.six.url \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.six.fetch \\\n"> <LIT_CHARS "\t\t\t trunk:refs/remotes/six/trunk &&\n"> <LIT_CHARS "\tgit config --add svn-remote.six.branches \\\n"> <LIT_CHARS "\t\t\t \"branches/a*c*e:refs/remotes/six/branches/*\" &&\n"> <LIT_CHARS "\tgit config --add svn-remote.six.tags \\\n"> <LIT_CHARS "\t\t\t \"tags/f*h*j:refs/remotes/six/tags/*\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd tmp &&\n"> <LIT_CHARS "\t\techo \"try try\" >>tags/fghij/src/b/readme &&\n"> <LIT_CHARS "\t\tpoke tags/fghij/src/b/readme &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"try to try\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git svn fetch six 2>stderr.six &&\n"> <LIT_CHARS "\ttest_cmp expect.six stderr.six\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_done]})
)