(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git-cvsserver access\n"> <LIT_CHARS "\n"> <LIT_CHARS "tests read access to a git repository with the\n"> <LIT_CHARS "cvs CLI client via git-cvsserver server">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (If
    (Pipeline!
      (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS PERL]})
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping git cvsserver tests, perl not available">]})])
      (Com {[LIT_CHARS test_done]})
    )
  )
  (Com {[LIT_CHARS cvs]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
    (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
    >
  )
  (If
    (Com {[LIT_CHARS test]} {[VarSub ?]} {[LIT_CHARS -ne]} {[LIT_CHARS 1]})
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping git-cvsserver tests, cvs not found">]})])
      (Com {[LIT_CHARS test_done]})
    )
  )
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "use DBI; use DBD::SQLite">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping git-cvsserver tests, Perl SQLite interface unavailable">]})])
      (Com {[LIT_CHARS test_done]})
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('WORKDIR', {[VarSub PWD]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SERVERDIR', {[VarSub PWD] [LIT_CHARS /gitcvs.git]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('git_config', {[DQ [VarSub SERVERDIR][LIT_CHARS /config]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('CVSROOT', {[DQ [LIT_CHARS ":fork:"][VarSub SERVERDIR]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('CVSWORK', {[DQ [VarSub PWD][LIT_CHARS /cvswork]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('CVS_SERVER', {[LIT_CHARS git-cvsserver]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=1 words=[{[LIT_CHARS CVSROOT]}, {[LIT_CHARS CVS_SERVER]}] bindings=[])
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[DQ [VarSub CVSWORK]]} {[DQ [VarSub SERVERDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "  git config push.default matching &&\n"> <LIT_CHARS "  echo >empty &&\n"> <LIT_CHARS "  git add empty &&\n"> <LIT_CHARS "  git commit -q -m \"First Commit\" &&\n"> <LIT_CHARS "  mkdir secondroot &&\n"> <LIT_CHARS "  ( cd secondroot &&\n"> <LIT_CHARS "  git init &&\n"> <LIT_CHARS "  touch secondrootfile &&\n"> <LIT_CHARS "  git add secondrootfile &&\n"> <LIT_CHARS "  git commit -m \"second root\") &&\n"> <LIT_CHARS "  git fetch secondroot master &&\n"> <LIT_CHARS "  git merge --allow-unrelated-histories FETCH_HEAD &&\n"> <LIT_CHARS "  git clone -q --bare \"$WORKDIR/.git\" \"$SERVERDIR\" >/dev/null 2>&1 &&\n"> <LIT_CHARS "  GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.enabled true &&\n"> <LIT_CHARS "  GIT_DIR=\"$SERVERDIR\" git config gitcvs.logfile \"$SERVERDIR/gitcvs.log\" &&\n"> <LIT_CHARS "  GIT_DIR=\"$SERVERDIR\" git config gitcvs.authdb \"$SERVERDIR/auth.db\" &&\n"> <LIT_CHARS "  echo cvsuser:cvGVEarMLnhlA > \"$SERVERDIR/auth.db\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "basic checkout">]} {[SQ <LIT_CHARS "GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork master &&\n"> <LIT_CHARS "   test \"$(echo $(grep -v ^D cvswork/CVS/Entries|cut -d/ -f2,3,5 | head -n 1))\" = \"empty/1.1/\" &&\n"> <LIT_CHARS "   test \"$(echo $(grep -v ^D cvswork/CVS/Entries|cut -d/ -f2,3,5 | sed -ne \\$p))\" = \"secondrootfile/1.1/\"">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS request-anonymous]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN AUTH REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "anonymous\n"][LIT_CHARS "\n"][LIT_CHARS "END AUTH REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS request-git]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN AUTH REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "git\n"][LIT_CHARS "\n"][LIT_CHARS "END AUTH REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS login-anonymous]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN VERIFICATION REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "anonymous\n"][LIT_CHARS "\n"][LIT_CHARS "END VERIFICATION REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS login-git]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN VERIFICATION REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "git\n"][LIT_CHARS "\n"][LIT_CHARS "END VERIFICATION REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS login-git-ok]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN VERIFICATION REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "cvsuser\n"][LIT_CHARS "Ah<Z:yZZ30 e\n"][LIT_CHARS "END VERIFICATION REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pserver authentication">]} {[SQ <LIT_CHARS "cat request-anonymous | git-cvsserver pserver >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pserver authentication failure (non-anonymous user)">]} {[SQ <LIT_CHARS "if cat request-git | git-cvsserver pserver >log 2>&1\n"> <LIT_CHARS "   then\n"> <LIT_CHARS "       false\n"> <LIT_CHARS "   else\n"> <LIT_CHARS "       true\n"> <LIT_CHARS "   fi &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I HATE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pserver authentication success (non-anonymous user with password)">]} {[SQ <LIT_CHARS "cat login-git-ok | git-cvsserver pserver >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pserver authentication (login)">]} {[SQ <LIT_CHARS "cat login-anonymous | git-cvsserver pserver >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pserver authentication failure (login/non-anonymous user)">]} {[SQ <LIT_CHARS "if cat login-git | git-cvsserver pserver >log 2>&1\n"> <LIT_CHARS "   then\n"> <LIT_CHARS "       false\n"> <LIT_CHARS "   else\n"> <LIT_CHARS "       true\n"> <LIT_CHARS "   fi &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I HATE YOU\\$\"">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS request-relative]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN AUTH REQUEST\n"][LIT_CHARS "gitcvs.git\n"][LIT_CHARS "anonymous\n"][LIT_CHARS "\n"][LIT_CHARS "END AUTH REQUEST\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS request-conflict]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN AUTH REQUEST\n"][VarSub SERVERDIR][LIT_CHARS "\n"][LIT_CHARS "anonymous\n"][LIT_CHARS "\n"][LIT_CHARS "END AUTH REQUEST\n"][LIT_CHARS "Root "][VarSub WORKDIR][LIT_CHARS "\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (relative pathname)">]} {[SQ <LIT_CHARS "if cat request-relative | git-cvsserver pserver >log 2>&1\n"> <LIT_CHARS "   then\n"> <LIT_CHARS "       echo unexpected success\n"> <LIT_CHARS "       false\n"> <LIT_CHARS "   else\n"> <LIT_CHARS "       true\n"> <LIT_CHARS "   fi &&\n"> <LIT_CHARS "   tail log | grep \"^error 1 Root must be an absolute pathname$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (conflicting roots)">]} {[SQ <LIT_CHARS "cat request-conflict | git-cvsserver pserver >log 2>&1 &&\n"> <LIT_CHARS "   tail log | grep \"^error 1 Conflicting roots specified$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root (strict paths)">]} {[SQ <LIT_CHARS "cat request-anonymous | git-cvsserver --strict-paths pserver \"$SERVERDIR\" >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (strict-paths)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    ! cat request-anonymous |\n"> <LIT_CHARS "    git-cvsserver --strict-paths pserver \"$WORKDIR\" >log 2>&1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root (w/o strict-paths)">]} {[SQ <LIT_CHARS "cat request-anonymous | git-cvsserver pserver \"$WORKDIR/\" >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (w/o strict-paths)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    ! cat request-anonymous |\n"> <LIT_CHARS "    git-cvsserver pserver \"$WORKDIR/gitcvs\" >log 2>&1\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS request-base]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "BEGIN AUTH REQUEST\n"][LIT_CHARS "/gitcvs.git\n"][LIT_CHARS "anonymous\n"][LIT_CHARS "\n"][LIT_CHARS "END AUTH REQUEST\n"][LIT_CHARS "Root /gitcvs.git\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root (base-path)">]} {[SQ <LIT_CHARS "cat request-base | git-cvsserver --strict-paths --base-path \"$WORKDIR/\" pserver \"$SERVERDIR\" >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (base-path)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    ! cat request-anonymous |\n"> <LIT_CHARS "    git-cvsserver --strict-paths --base-path \"$WORKDIR\" pserver \"$SERVERDIR\" >log 2>&1\n">]})
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS --bool]} {[LIT_CHARS gitcvs.enabled]} {[LIT_CHARS false]}
        more_env=[('GIT_DIR', {[DQ [VarSub SERVERDIR]]})]
    )
    (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root (export-all)">]} {[SQ <LIT_CHARS "cat request-anonymous | git-cvsserver --export-all pserver \"$WORKDIR\" >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root failure (export-all w/o whitelist)">]} {[SQ <LIT_CHARS "! (cat request-anonymous | git-cvsserver --export-all pserver >log 2>&1 || false)">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "req_Root (everything together)">]} {[SQ <LIT_CHARS "cat request-base | git-cvsserver --export-all --strict-paths --base-path \"$WORKDIR/\" pserver \"$SERVERDIR\" >log 2>&1 &&\n"> <LIT_CHARS "   sed -ne \\$p log | grep \"^I LOVE YOU\\$\"">]})
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS --bool]} {[LIT_CHARS gitcvs.enabled]} {[LIT_CHARS true]}
        more_env=[('GIT_DIR', {[DQ [VarSub SERVERDIR]]})]
    )
    (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitcvs.enabled = false">]} {[SQ <LIT_CHARS "GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.enabled false &&\n"> <LIT_CHARS "   if GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork2 master >cvs.log 2>&1\n"> <LIT_CHARS "   then\n"> <LIT_CHARS "     echo unexpected cvs success\n"> <LIT_CHARS "     false\n"> <LIT_CHARS "   else\n"> <LIT_CHARS "     true\n"> <LIT_CHARS "   fi &&\n"> <LIT_CHARS "   grep \"GITCVS emulation disabled\" cvs.log &&\n"> <LIT_CHARS "   test ! -d cvswork2">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS cvswork2]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitcvs.ext.enabled = true">]} {[SQ <LIT_CHARS "GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.ext.enabled true &&\n"> <LIT_CHARS "   GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.enabled false &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork2 master >cvs.log 2>&1 &&\n"> <LIT_CHARS "   test_cmp cvswork cvswork2">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS cvswork2]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitcvs.ext.enabled = false">]} {[SQ <LIT_CHARS "GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.ext.enabled false &&\n"> <LIT_CHARS "   GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.enabled true &&\n"> <LIT_CHARS "   if GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork2 master >cvs.log 2>&1\n"> <LIT_CHARS "   then\n"> <LIT_CHARS "     echo unexpected cvs success\n"> <LIT_CHARS "     false\n"> <LIT_CHARS "   else\n"> <LIT_CHARS "     true\n"> <LIT_CHARS "   fi &&\n"> <LIT_CHARS "   grep \"GITCVS emulation disabled\" cvs.log &&\n"> <LIT_CHARS "   test ! -d cvswork2">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS cvswork2]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS gitcvs.dbname>]} {[SQ <LIT_CHARS "GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.ext.enabled true &&\n"> <LIT_CHARS "   GIT_DIR=\"$SERVERDIR\" git config gitcvs.dbname %Ggitcvs.%a.%m.sqlite &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork2 master >cvs.log 2>&1 &&\n"> <LIT_CHARS "   test_cmp cvswork cvswork2 &&\n"> <LIT_CHARS "   test -f \"$SERVERDIR/gitcvs.ext.master.sqlite\" &&\n"> <LIT_CHARS "   cmp \"$SERVERDIR/gitcvs.master.sqlite\" \"$SERVERDIR/gitcvs.ext.master.sqlite\"">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS cvswork2]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS gitcvs.ext.dbname>]} {[SQ <LIT_CHARS "GIT_DIR=\"$SERVERDIR\" git config --bool gitcvs.ext.enabled true &&\n"> <LIT_CHARS "   GIT_DIR=\"$SERVERDIR\" git config gitcvs.ext.dbname %Ggitcvs1.%a.%m.sqlite &&\n"> <LIT_CHARS "   GIT_DIR=\"$SERVERDIR\" git config gitcvs.dbname %Ggitcvs2.%a.%m.sqlite &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q co -d cvswork2 master >cvs.log 2>&1 &&\n"> <LIT_CHARS "   test_cmp cvswork cvswork2 &&\n"> <LIT_CHARS "   test -f \"$SERVERDIR/gitcvs1.ext.master.sqlite\" &&\n"> <LIT_CHARS "   test ! -f \"$SERVERDIR/gitcvs2.ext.master.sqlite\" &&\n"> <LIT_CHARS "   cmp \"$SERVERDIR/gitcvs.master.sqlite\" \"$SERVERDIR/gitcvs1.ext.master.sqlite\"">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[DQ [VarSub SERVERDIR]]})
  (AndOr OP_AND_IF
    (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS clone]} {[LIT_CHARS -q]} {[LIT_CHARS --bare]} {[DQ [VarSub WORKDIR][LIT_CHARS /.git]]} {[DQ [VarSub SERVERDIR]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
        (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS --bool]} {[LIT_CHARS gitcvs.enabled]} {[LIT_CHARS true]}
                more_env=[('GIT_DIR', {[DQ [VarSub SERVERDIR]]})]
        )
        (AndOr OP_OR_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS gitcvs.logfile]} {[DQ [VarSub SERVERDIR][LIT_CHARS /gitcvs.log]]}
                    more_env=[('GIT_DIR', {[DQ [VarSub SERVERDIR]]})]
          )
          (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (create new file)">]} {[SQ <LIT_CHARS "echo testfile1 >testfile1 &&\n"> <LIT_CHARS "   git add testfile1 &&\n"> <LIT_CHARS "   git commit -q -m \"Add testfile1\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test \"$(echo $(grep testfile1 CVS/Entries|cut -d/ -f2,3,5))\" = \"testfile1/1.1/\" &&\n"> <LIT_CHARS "   test_cmp testfile1 ../testfile1">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (update existing file)">]} {[SQ <LIT_CHARS "echo line 2 >>testfile1 &&\n"> <LIT_CHARS "   git add testfile1 &&\n"> <LIT_CHARS "   git commit -q -m \"Append to testfile1\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test \"$(echo $(grep testfile1 CVS/Entries|cut -d/ -f2,3,5))\" = \"testfile1/1.2/\" &&\n"> <LIT_CHARS "   test_cmp testfile1 ../testfile1">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_failure]} {[DQ [LIT_CHARS "cvs update w/o -d doesn't create subdir (TODO)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "   mkdir test &&\n"> <LIT_CHARS "   echo >test/empty &&\n"> <LIT_CHARS "   git add test &&\n"> <LIT_CHARS "   git commit -q -m \"Single Subdirectory\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test ! -d test\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (subdirectories)">]} {[SQ <LIT_CHARS "(for dir in A A/B A/B/C A/D E; do\n"> <LIT_CHARS "      mkdir $dir &&\n"> <LIT_CHARS "      echo \"test file in $dir\" >\"$dir/file_in_$(echo $dir|sed -e \"s#/# #g\")\"  &&\n"> <LIT_CHARS "      git add $dir;\n"> <LIT_CHARS "   done) &&\n"> <LIT_CHARS "   git commit -q -m \"deep sub directory structure\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update -d &&\n"> <LIT_CHARS "   (for dir in A A/B A/B/C A/D E; do\n"> <LIT_CHARS "      filename=\"file_in_$(echo $dir|sed -e \"s#/# #g\")\" &&\n"> <LIT_CHARS "      if test \"$(echo $(grep -v ^D $dir/CVS/Entries|cut -d/ -f2,3,5))\" = \"$filename/1.1/\" &&\n"> <LIT_CHARS "\ttest_cmp \"$dir/$filename\" \"../$dir/$filename\"; then\n"> <LIT_CHARS "        :\n"> <LIT_CHARS "      else\n"> <LIT_CHARS "        echo >failure\n"> <LIT_CHARS "      fi\n"> <LIT_CHARS "    done) &&\n"> <LIT_CHARS "   test ! -f failure">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (delete file)">]} {[SQ <LIT_CHARS "git rm testfile1 &&\n"> <LIT_CHARS "   git commit -q -m \"Remove testfile1\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test -z \"$(grep testfile1 CVS/Entries)\" &&\n"> <LIT_CHARS "   test ! -f testfile1">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (re-add deleted file)">]} {[SQ <LIT_CHARS "echo readded testfile >testfile1 &&\n"> <LIT_CHARS "   git add testfile1 &&\n"> <LIT_CHARS "   git commit -q -m \"Re-Add testfile1\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test \"$(echo $(grep testfile1 CVS/Entries|cut -d/ -f2,3,5))\" = \"testfile1/1.4/\" &&\n"> <LIT_CHARS "   test_cmp testfile1 ../testfile1">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (merge)">]} {[SQ <LIT_CHARS "echo Line 0 >expected &&\n"> <LIT_CHARS "   for i in 1 2 3 4 5 6 7\n"> <LIT_CHARS "   do\n"> <LIT_CHARS "     echo Line $i >>merge\n"> <LIT_CHARS "     echo Line $i >>expected\n"> <LIT_CHARS "   done &&\n"> <LIT_CHARS "   echo Line 8 >>expected &&\n"> <LIT_CHARS "   git add merge &&\n"> <LIT_CHARS "   git commit -q -m \"Merge test (pre-merge)\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test \"$(echo $(grep merge CVS/Entries|cut -d/ -f2,3,5))\" = \"merge/1.1/\" &&\n"> <LIT_CHARS "   test_cmp merge ../merge &&\n"> <LIT_CHARS "   ( echo Line 0; cat merge ) >merge.tmp &&\n"> <LIT_CHARS "   mv merge.tmp merge &&\n"> <LIT_CHARS "   cd \"$WORKDIR\" &&\n"> <LIT_CHARS "   echo Line 8 >>merge &&\n"> <LIT_CHARS "   git add merge &&\n"> <LIT_CHARS "   git commit -q -m \"Merge test (merge)\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   sleep 1 && touch merge &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test_cmp merge ../expected">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected.C]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "<<<<<<< merge.mine\n"][LIT_CHARS "Line 0\n"][LIT_CHARS "=======\n"][LIT_CHARS "LINE 0\n"][LIT_CHARS ">>>>>>> merge.1.3\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (For i [{[LIT_CHARS 1]}, {[LIT_CHARS 2]}, {[LIT_CHARS 3]}, {[LIT_CHARS 4]}, {[LIT_CHARS 5]}, {[LIT_CHARS 6]}, {[LIT_CHARS 7]}, {[LIT_CHARS 8]}])
    (Com {[LIT_CHARS echo]} {[LIT_CHARS Line]} {[VarSub i]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS expected.C]} <REDIR_DGREAT ">>"> 1),
      >
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (conflict merge)">]} {[SQ <LIT_CHARS "( echo LINE 0; cat merge ) >merge.tmp &&\n"> <LIT_CHARS "   mv merge.tmp merge &&\n"> <LIT_CHARS "   git add merge &&\n"> <LIT_CHARS "   git commit -q -m \"Merge test (conflict)\" &&\n"> <LIT_CHARS "   git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "   cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "   test_cmp merge ../expected.C">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (-C)">]} {[SQ <LIT_CHARS "cd cvswork &&\n"> <LIT_CHARS "   GIT_CONFIG=\"$git_config\" cvs -Q update -C &&\n"> <LIT_CHARS "   test_cmp merge ../merge">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (merge no-op)">]} {[SQ <LIT_CHARS "echo Line 9 >>merge &&\n"> <LIT_CHARS "    cp merge cvswork/merge &&\n"> <LIT_CHARS "    git add merge &&\n"> <LIT_CHARS "    git commit -q -m \"Merge test (no-op)\" &&\n"> <LIT_CHARS "    git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    sleep 1 && touch merge &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs -Q update &&\n"> <LIT_CHARS "    test_cmp merge ../merge">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (-p)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    touch really-empty &&\n"> <LIT_CHARS "    echo Line 1 > no-lf &&\n"> <LIT_CHARS "    printf \"Line 2\" >> no-lf &&\n"> <LIT_CHARS "    git add really-empty no-lf &&\n"> <LIT_CHARS "    git commit -q -m \"Update -p test\" &&\n"> <LIT_CHARS "    git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs update &&\n"> <LIT_CHARS "    rm -f failures &&\n"> <LIT_CHARS "    for i in merge no-lf empty really-empty; do\n"> <LIT_CHARS "        GIT_CONFIG=\"$git_config\" cvs update -p \"$i\" >$i.out\n"> <LIT_CHARS "\ttest_cmp $i.out ../$i >>failures 2>&1\n"> <LIT_CHARS "    done &&\n"> <LIT_CHARS "    test -z \"$(cat failures)\"\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs update (module list supports packed refs)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    GIT_DIR=\"$SERVERDIR\" git pack-refs --all &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs -n up -d 2> out &&\n"> <LIT_CHARS "    grep \"cvs update: New directory \\`master">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "\" < out\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs status">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    mkdir status.dir &&\n"> <LIT_CHARS "    echo Line > status.dir/status.file &&\n"> <LIT_CHARS "    echo Line > status.file &&\n"> <LIT_CHARS "    git add status.dir status.file &&\n"> <LIT_CHARS "    git commit -q -m \"Status test\" &&\n"> <LIT_CHARS "    git push gitcvs.git >/dev/null &&\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs update &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs status | grep \"^File: status.file\" >../out &&\n"> <LIT_CHARS "    test_line_count = 2 ../out\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs status (nonrecursive)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs status -l | grep \"^File: status.file\" >../out &&\n"> <LIT_CHARS "    test_line_count = 1 ../out\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs status (no subdirs in header)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs status | grep ^File: >../out &&\n"> <LIT_CHARS "    ! grep / <../out\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs co -c (shows module database)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs co -c > out &&\n"> <LIT_CHARS "    grep \"^master[\t ][ \t]*master$\" <out &&\n"> <LIT_CHARS "    ! grep -v \"^master[\t ][ \t]*master$\" <out\n">]})
  (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "s/^x//">]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "s/SP$/ /">]}
    <
    (FilenameRedirectNode filename={[DQ [VarSub WORKDIR][LIT_CHARS /expect]]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "x\n"][LIT_CHARS "xRCS file: "][VarSub WORKDIR][LIT_CHARS "/gitcvs.git/master/merge,v\n"][LIT_CHARS "xWorking file: merge\n"][LIT_CHARS "xhead: 1.4\n"][LIT_CHARS "xbranch:\n"][LIT_CHARS "xlocks: strict\n"][LIT_CHARS "xaccess list:\n"][LIT_CHARS "xsymbolic names:\n"][LIT_CHARS "xkeyword substitution: kv\n"][LIT_CHARS "xtotal revisions: 4;\tselected revisions: 4\n"][LIT_CHARS "xdescription:\n"][LIT_CHARS "x----------------------------\n"][LIT_CHARS "xrevision 1.4\n"][LIT_CHARS "xdate: __DATE__;  author: author;  state: Exp;  lines: +2 -3\n"][LIT_CHARS "x\n"][LIT_CHARS "xMerge test (no-op)\n"][LIT_CHARS "xSP\n"][LIT_CHARS "x----------------------------\n"][LIT_CHARS "xrevision 1.3\n"][LIT_CHARS "xdate: __DATE__;  author: author;  state: Exp;  lines: +2 -3\n"][LIT_CHARS "x\n"][LIT_CHARS "xMerge test (conflict)\n"][LIT_CHARS "xSP\n"][LIT_CHARS "x----------------------------\n"][LIT_CHARS "xrevision 1.2\n"][LIT_CHARS "xdate: __DATE__;  author: author;  state: Exp;  lines: +2 -3\n"][LIT_CHARS "x\n"][LIT_CHARS "xMerge test (merge)\n"][LIT_CHARS "xSP\n"][LIT_CHARS "x----------------------------\n"][LIT_CHARS "xrevision 1.1\n"][LIT_CHARS "xdate: __DATE__;  author: author;  state: Exp;  lines: +2 -3\n"][LIT_CHARS "x\n"][LIT_CHARS "xMerge test (pre-merge)\n"][LIT_CHARS "xSP\n"][LIT_CHARS "x=============================================================================\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectStat', {[DQ [VarSub ?]]})])
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs log">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    test x\"$expectStat\" = x\"0\" &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs log merge >../out &&\n"> <LIT_CHARS "    sed -e \"s%2[0-9][0-9][0-9]/[01][0-9]/[0-3][0-9] [0-2][0-9]:[0-5][0-9]:[0-5][0-9]%__DATE__%\" ../out > ../actual &&\n"> <LIT_CHARS "    test_cmp ../expect ../actual\n">]})
  (Com {[LIT_CHARS cd]} {[DQ [VarSub WORKDIR]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cvs annotate">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    cd cvswork &&\n"> <LIT_CHARS "    GIT_CONFIG=\"$git_config\" cvs annotate merge >../out &&\n"> <LIT_CHARS "    sed -e \"s/ .*//\" ../out >../actual &&\n"> <LIT_CHARS "    for i in 3 1 1 1 1 1 1 1 2 4; do echo 1.$i; done >../expect &&\n"> <LIT_CHARS "    test_cmp ../expect ../actual\n">]})
  (Com {[LIT_CHARS test_done]})
)