(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn log tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repository and import">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir import &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd import &&\n"> <LIT_CHARS "\t\tfor i in trunk branches/a branches/b tags/0.1 tags/0.2 tags/0.3\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tmkdir -p $i &&\n"> <LIT_CHARS "\t\t\techo hello >>$i/README ||\n"> <LIT_CHARS "\t\t\texit 1\n"> <LIT_CHARS "\t\tdone &&\n"> <LIT_CHARS "\t\tsvn_cmd import -m test . \"$svnrepo\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit svn init \"$svnrepo\" -T trunk -b branches -t tags &&\n"> <LIT_CHARS "\tgit svn fetch &&\n"> <LIT_CHARS "\tgit reset --hard trunk &&\n"> <LIT_CHARS "\techo bye >> README &&\n"> <LIT_CHARS "\tgit commit -a -m bye &&\n"> <LIT_CHARS "\tgit svn dcommit &&\n"> <LIT_CHARS "\tgit reset --hard a &&\n"> <LIT_CHARS "\techo why >> FEEDME &&\n"> <LIT_CHARS "\tgit update-index --add FEEDME &&\n"> <LIT_CHARS "\tgit commit -m feedme &&\n"> <LIT_CHARS "\tgit svn dcommit &&\n"> <LIT_CHARS "\tgit reset --hard trunk &&\n"> <LIT_CHARS "\techo aye >> README &&\n"> <LIT_CHARS "\tgit commit -a -m aye &&\n"> <LIT_CHARS "\tgit svn dcommit &&\n"> <LIT_CHARS "\tgit reset --hard b &&\n"> <LIT_CHARS "\techo spy >> README &&\n"> <LIT_CHARS "\tgit commit -a -m spy &&\n"> <LIT_CHARS "\techo try >> README &&\n"> <LIT_CHARS "\tgit commit -a -m try &&\n"> <LIT_CHARS "\tgit svn dcommit\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "run log">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard a &&\n"][LIT_CHARS "\tgit svn log -r2 trunk | grep ^r2 &&\n"][LIT_CHARS "\tgit svn log -r4 trunk | grep ^r4 &&\n"][LIT_CHARS "\tgit svn log -r3 | grep ^r3\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "run log against a from trunk">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r3 a | grep ^r3\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r1 \\nr2 \\nr4 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r1-r2-r4]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 1:4 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r1-r2-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with --show-commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log --show-commit -r 1:4 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r1-r2-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with --show-commit (sha1)">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit svn find-rev r1 >expected-range-r1-r2-r4-sha1 &&\n"][LIT_CHARS "\tgit svn find-rev r2 >>expected-range-r1-r2-r4-sha1 &&\n"][LIT_CHARS "\tgit svn find-rev r4 >>expected-range-r1-r2-r4-sha1 &&\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log --show-commit -r 1:4 | grep '^r[0-9]' | cut -d'|' -f2 >out &&\n"][LIT_CHARS "\tgit rev-parse "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "(cat out) >actual &&\n"][LIT_CHARS "\ttest_cmp expected-range-r1-r2-r4-sha1 actual\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r4 \\nr2 \\nr1 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r4-r2-r1]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 4:1 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r4-r2-r1 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r1 \\nr2 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r1-r2]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with unreachable revision">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 1:3 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r1-r2 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r2 \\nr1 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r2-r1]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range with unreachable revision">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 3:1 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r2-r1 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r2 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r2]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with unreachable upper boundary revision and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 2:3 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r2 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range with unreachable upper boundary revision and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 3:2 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r2 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "r4 \\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-range-r4]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with unreachable lower boundary revision and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 3:4 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range with unreachable lower boundary revision and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 4:3 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS printf]} {[LIT_CHARS --]} {[SQ <LIT_CHARS "------------------------------------------------------------------------\\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected-separator]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with unreachable boundary revisions and no commits">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 5:6 | test_cmp expected-separator -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range with unreachable boundary revisions and no commits">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 6:5 | test_cmp expected-separator -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test ascending revision range with unreachable boundary revisions and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 3:5 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test descending revision range with unreachable boundary revisions and 1 commit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard trunk &&\n"][LIT_CHARS "\tgit svn log -r 5:3 | grep '^r[0-9]' | cut -d'|' -f1 | test_cmp expected-range-r4 -\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_done]}  )
)