(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn gc basic tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup directories and test repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir import &&\n"> <LIT_CHARS "\tmkdir tmp &&\n"> <LIT_CHARS "\techo \"Sample text for Subversion repository.\" > import/test.txt &&\n"> <LIT_CHARS "\tsvn_cmd import -m \"import for git svn\" import \"$svnrepo\" > /dev/null\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "checkout working copy from svn">]} {[SQ <LIT_CHARS "svn_cmd co \"$svnrepo\" test_wc">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "set some properties to create an unhandled.log file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd test_wc &&\n"> <LIT_CHARS "\t\tsvn_cmd propset foo bar test.txt &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"property set\"\n"> <LIT_CHARS "\t)">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Setup repo">]} {[SQ <LIT_CHARS "git svn init \"$svnrepo\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Fetch repo">]} {[SQ <LIT_CHARS "git svn fetch">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "make backup copy of unhandled.log">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t cp .git/svn/refs/remotes/git-svn/unhandled.log tmp\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create leftover index">]} {[SQ <LIT_CHARS "> .git/svn/refs/remotes/git-svn/index">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git svn gc runs">]} {[SQ <LIT_CHARS "git svn gc">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git svn index removed">]} {[SQ <LIT_CHARS "! test -f .git/svn/refs/remotes/git-svn/index">]})
  (If
    (Com {[LIT_CHARS test]} {[LIT_CHARS -r]} {[LIT_CHARS .git/svn/refs/remotes/git-svn/unhandled.log.gz]})
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git svn gc produces a valid gzip file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t gunzip .git/svn/refs/remotes/git-svn/unhandled.log.gz\n"> <LIT_CHARS "\t\t">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git svn gc does not change unhandled.log files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t test_cmp .git/svn/refs/remotes/git-svn/unhandled.log tmp/unhandled.log\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_done]})
)