(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git cvsimport basic tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-cvs.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup cvsroot environment">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tCVSROOT=$(pwd)/cvsroot &&\n"> <LIT_CHARS "\texport CVSROOT\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup cvsroot">]} {[SQ <LIT_CHARS "$CVS init">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "setup a cvs module">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir \"$CVSROOT/module\" &&\n"> <LIT_CHARS "\t$CVS co -d module-cvs module &&\n"> <LIT_CHARS "\t(cd module-cvs &&\n"> <LIT_CHARS "\tcat <<EOF >o_fortuna &&\n"> <LIT_CHARS "O Fortuna\n"> <LIT_CHARS "velut luna\n"> <LIT_CHARS "statu variabilis,\n"> <LIT_CHARS "\n"> <LIT_CHARS "semper crescis\n"> <LIT_CHARS "aut decrescis;\n"> <LIT_CHARS "vita detestabilis\n"> <LIT_CHARS "\n"> <LIT_CHARS "nunc obdurat\n"> <LIT_CHARS "et tunc curat\n"> <LIT_CHARS "ludo mentis aciem,\n"> <LIT_CHARS "\n"> <LIT_CHARS "egestatem,\n"> <LIT_CHARS "potestatem\n"> <LIT_CHARS "dissolvit ut glaciem.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t$CVS add o_fortuna &&\n"> <LIT_CHARS "\tcat <<EOF >message &&\n"> <LIT_CHARS "add \"O Fortuna\" lyrics\n"> <LIT_CHARS "\n"> <LIT_CHARS "These public domain lyrics make an excellent sample text.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t$CVS commit -F message\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "import a trivial module">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit cvsimport -a -R -z 0 -C module-git module &&\n"> <LIT_CHARS "\ttest_cmp module-cvs/o_fortuna module-git/o_fortuna\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "pack refs">]} {[SQ <LIT_CHARS "(cd module-git && git gc)">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "initial import has correct .git/cvs-revisions">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-git &&\n"> <LIT_CHARS "\t git log --format=\"o_fortuna 1.1 %H\" -1) > expected &&\n"> <LIT_CHARS "\ttest_cmp expected module-git/.git/cvs-revisions\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "update cvs module">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-cvs &&\n"> <LIT_CHARS "\tcat <<EOF >o_fortuna &&\n"> <LIT_CHARS "O Fortune,\n"> <LIT_CHARS "like the moon\n"> <LIT_CHARS "you are changeable,\n"> <LIT_CHARS "\n"> <LIT_CHARS "ever waxing\n"> <LIT_CHARS "and waning;\n"> <LIT_CHARS "hateful life\n"> <LIT_CHARS "\n"> <LIT_CHARS "first oppresses\n"> <LIT_CHARS "and then soothes\n"> <LIT_CHARS "as fancy takes it;\n"> <LIT_CHARS "\n"> <LIT_CHARS "poverty\n"> <LIT_CHARS "and power\n"> <LIT_CHARS "it melts them like ice.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat <<EOF >message &&\n"> <LIT_CHARS "translate to English\n"> <LIT_CHARS "\n"> <LIT_CHARS "My Latin is terrible.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\t$CVS commit -F message\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "update git module">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-git &&\n"> <LIT_CHARS "\tgit config cvsimport.trackRevisions true &&\n"> <LIT_CHARS "\tgit cvsimport -a -z 0 module &&\n"> <LIT_CHARS "\tgit merge origin\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp module-cvs/o_fortuna module-git/o_fortuna\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "update has correct .git/cvs-revisions">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-git &&\n"> <LIT_CHARS "\t git log --format=\"o_fortuna 1.1 %H\" -1 HEAD^ &&\n"> <LIT_CHARS "\t git log --format=\"o_fortuna 1.2 %H\" -1 HEAD) > expected &&\n"> <LIT_CHARS "\ttest_cmp expected module-git/.git/cvs-revisions\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "update cvs module">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-cvs &&\n"> <LIT_CHARS "\t\techo 1 >tick &&\n"> <LIT_CHARS "\t\t$CVS add tick &&\n"> <LIT_CHARS "\t\t$CVS commit -m 1\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "cvsimport.module config works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-git &&\n"> <LIT_CHARS "\t\tgit config cvsimport.module module &&\n"> <LIT_CHARS "\t\tgit config cvsimport.trackRevisions true &&\n"> <LIT_CHARS "\t\tgit cvsimport -a -z0 &&\n"> <LIT_CHARS "\t\tgit merge origin\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp module-cvs/tick module-git/tick\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "second update has correct .git/cvs-revisions">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd module-git &&\n"> <LIT_CHARS "\t git log --format=\"o_fortuna 1.1 %H\" -1 HEAD^^ &&\n"> <LIT_CHARS "\t git log --format=\"o_fortuna 1.2 %H\" -1 HEAD^\n"> <LIT_CHARS "\t git log --format=\"tick 1.1 %H\" -1 HEAD) > expected &&\n"> <LIT_CHARS "\ttest_cmp expected module-git/.git/cvs-revisions\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "import from a CVS working tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t$CVS co -d import-from-wt module &&\n"> <LIT_CHARS "\t(cd import-from-wt &&\n"> <LIT_CHARS "\t\tgit config cvsimport.trackRevisions false &&\n"> <LIT_CHARS "\t\tgit cvsimport -a -z0 &&\n"> <LIT_CHARS "\t\techo 1 >expect &&\n"> <LIT_CHARS "\t\tgit log -1 --pretty=format:%s%n >actual &&\n"> <LIT_CHARS "\t\ttest_cmp actual expect\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "no .git/cvs-revisions created by default">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t! test -e import-from-wt/.git/cvs-revisions\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "test entire HEAD">]} {[SQ <LIT_CHARS "test_cmp_branch_tree master">]}  )
  (Com {[LIT_CHARS test_done]}  )
)