(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git p4 rcs keywords">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-p4.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "start p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tstart_p4d\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "init depot">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tcat <<-\\EOF >filek &&\n"> <LIT_CHARS "\t\t$Id$\n"> <LIT_CHARS "\t\t/* $Revision$ */\n"> <LIT_CHARS "\t\t# $Change$\n"> <LIT_CHARS "\t\tline4\n"> <LIT_CHARS "\t\tline5\n"> <LIT_CHARS "\t\tline6\n"> <LIT_CHARS "\t\tline7\n"> <LIT_CHARS "\t\tline8\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tcp filek fileko &&\n"> <LIT_CHARS "\t\tsed -i \"s/Revision/Revision: do not scrub me/\" fileko\n"> <LIT_CHARS "\t\tcp fileko file_text &&\n"> <LIT_CHARS "\t\tsed -i \"s/Id/Id: do not scrub me/\" file_text\n"> <LIT_CHARS "\t\tp4 add -t text+k filek &&\n"> <LIT_CHARS "\t\tp4 submit -d \"filek\" &&\n"> <LIT_CHARS "\t\tp4 add -t text+ko fileko &&\n"> <LIT_CHARS "\t\tp4 submit -d \"fileko\" &&\n"> <LIT_CHARS "\t\tp4 add -t text file_text &&\n"> <LIT_CHARS "\t\tp4 submit -d \"file_text\"\n"> <LIT_CHARS "\t)\n">]}  )
  (FunctionDef write_scrub_scripts []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /scrub_k.py]]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "import re, sys\n"] [LIT_CHARS "sys.stdout.write(re.sub(r'(?i)\\$(Id|Header|Author|Date|DateTime|Change|File|Revision):[^$]*\\$', r'$\\1$', sys.stdin.read()))\n"]} <REDIR_DLESSDASH "<<-"> 0),
        >
      )
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /scrub_ko.py]]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "import re, sys\n"] [LIT_CHARS "sys.stdout.write(re.sub(r'(?i)\\$(Id|Header):[^$]*\\$', r'$\\1$', sys.stdin.read()))\n"]} <REDIR_DLESSDASH "<<-"> 0),
        >
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "scrub scripts">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_scrub_scripts\n">]}  )
  (FunctionDef scrub_k_check []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('scrub', {[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /][VarSub file]]})])
        (AndOr OP_AND_IF
          (Com {[DQ [VarSub PYTHON_PATH]]} {[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /scrub_k.py]]}
            <
            (FilenameRedirectNode filename={[DQ [VarSub git][LIT_CHARS /][VarSub file]]} <REDIR_LESS "<"> 0),
            (FilenameRedirectNode filename={[DQ [VarSub scrub]]} <REDIR_GREAT ">"> 1),
            >
          )
          (AndOr OP_AND_IF
            (Pipeline!
              (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub cli][LIT_CHARS /][VarSub file]]} {[DQ [VarSub scrub]]}              )
            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub git][LIT_CHARS /][VarSub file]]} {[DQ [VarSub scrub]]}              )
              (Com {[LIT_CHARS rm]} {[DQ [VarSub scrub]]}              )
            )
          )
        )
      )
    )
  )
  (FunctionDef scrub_ko_check []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('scrub', {[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /][VarSub file]]})])
        (AndOr OP_AND_IF
          (Com {[DQ [VarSub PYTHON_PATH]]} {[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /scrub_ko.py]]}
            <
            (FilenameRedirectNode filename={[DQ [VarSub git][LIT_CHARS /][VarSub file]]} <REDIR_LESS "<"> 0),
            (FilenameRedirectNode filename={[DQ [VarSub scrub]]} <REDIR_GREAT ">"> 1),
            >
          )
          (AndOr OP_AND_IF
            (Pipeline!
              (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub cli][LIT_CHARS /][VarSub file]]} {[DQ [VarSub scrub]]}              )
            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub git][LIT_CHARS /][VarSub file]]} {[DQ [VarSub scrub]]}              )
              (Com {[LIT_CHARS rm]} {[DQ [VarSub scrub]]}              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "edit far away from RCS lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tsed -i \"s/^line7/line7 edit/\" filek &&\n"> <LIT_CHARS "\t\tgit commit -m \"filek line7 edit\" filek &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tscrub_k_check filek\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "edit near RCS lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tsed -i \"s/^line4/line4 edit/\" filek &&\n"> <LIT_CHARS "\t\tgit commit -m \"filek line4 edit\" filek &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tscrub_k_check filek\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "edit keyword lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tsed -i \"/Revision/d\" filek &&\n"> <LIT_CHARS "\t\tgit commit -m \"filek remove Revision line\" filek &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tscrub_k_check filek\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "scrub ko files differently">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tsed -i \"s/^line4/line4 edit/\" fileko &&\n"> <LIT_CHARS "\t\tgit commit -m \"fileko line4 edit\" fileko &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tscrub_ko_check fileko &&\n"> <LIT_CHARS "\t\t! scrub_k_check fileko\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup after failure">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 revert ...\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not scrub plain text">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tsed -i \"s/^line4/line4 edit/\" file_text &&\n"> <LIT_CHARS "\t\tgit commit -m \"file_text line4 edit\" file_text &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\t\tp4 open file_text &&\n"> <LIT_CHARS "\t\t\tsed -i \"s/^line5/line5 p4 edit/\" file_text &&\n"> <LIT_CHARS "\t\t\tp4 submit -d \"file5 p4 edit\"\n"> <LIT_CHARS "\t\t) &&\n"> <LIT_CHARS "\t\techo s | test_expect_code 1 git p4 submit &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\t# make sure the file is not left open\n"> <LIT_CHARS "\t\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\t\t! p4 fstat -T action file_text\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup after failure 2">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 revert ...\n"> <LIT_CHARS "\t)\n">]}  )
  (FunctionDef create_kw_file []
    (Com {[LIT_CHARS cat]}
      <
      (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "/* A file\n"] [LIT_CHARS "\tId: $Id$\n"] [LIT_CHARS "\tRevision: $Revision$\n"] [LIT_CHARS "\tFile: $File$\n"] [LIT_CHARS " */\n"] [LIT_CHARS "int main(int argc, const char **argv) {\n"] [LIT_CHARS "\treturn 0;\n"] [LIT_CHARS "}\n"]} <REDIR_DLESS "<<"> 0),
      (FilenameRedirectNode filename={[DQ [VarSub 1]]} <REDIR_GREAT ">"> 1),
      >
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "add kwfile">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\techo file1 >file1 &&\n"> <LIT_CHARS "\t\tp4 add file1 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"file 1\" &&\n"> <LIT_CHARS "\t\tcreate_kw_file kwfile1.c &&\n"> <LIT_CHARS "\t\tp4 add kwfile1.c &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add rcw kw file\" kwfile1.c\n"> <LIT_CHARS "\t)\n">]}  )
  (FunctionDef p4_append_to_file []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS p4]} {[LIT_CHARS edit]} {[LIT_CHARS -t]} {[LIT_CHARS ktext]} {[DQ [VarSub f]]}        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "/* "][ComSub (Com {[LIT_CHARS date]})][LIT_CHARS " */"]]}
            <
            (FilenameRedirectNode filename={[DQ [VarSub f]]} <REDIR_DGREAT ">>"> 1),
            >
          )
          (Com {[LIT_CHARS p4]} {[LIT_CHARS submit]} {[LIT_CHARS -d]} {[DQ [LIT_CHARS "appending a line in p4"]]}          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cope with rcs keyword expansion damage">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\t(cd \"$cli\" && p4_append_to_file kwfile1.c) &&\n"> <LIT_CHARS "\t\told_lines=$(wc -l <kwfile1.c) &&\n"> <LIT_CHARS "\t\t\"$PERL_PATH\" -n -i -e \"print unless m/Revision:/\" kwfile1.c &&\n"> <LIT_CHARS "\t\tnew_lines=$(wc -l <kwfile1.c) &&\n"> <LIT_CHARS "\t\ttest $new_lines = $(($old_lines - 1)) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit add kwfile1.c &&\n"> <LIT_CHARS "\t\tgit commit -m \"Zap an RCS kw line\" &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tgit p4 rebase &&\n"> <LIT_CHARS "\t\tgit diff p4/master &&\n"> <LIT_CHARS "\t\tgit p4 commit &&\n"> <LIT_CHARS "\t\techo \"try modifying in both\" &&\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 edit kwfile1.c &&\n"> <LIT_CHARS "\t\techo \"line from p4\" >>kwfile1.c &&\n"> <LIT_CHARS "\t\tp4 submit -d \"add a line in p4\" kwfile1.c &&\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\techo \"line from git at the top\" | cat - kwfile1.c >kwfile1.c.new &&\n"> <LIT_CHARS "\t\tmv kwfile1.c.new kwfile1.c &&\n"> <LIT_CHARS "\t\tgit commit -m \"Add line in git at the top\" kwfile1.c &&\n"> <LIT_CHARS "\t\tgit p4 rebase &&\n"> <LIT_CHARS "\t\tgit p4 submit\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cope with rcs keyword file deletion">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\techo \"\\$Revision\\$\" >kwdelfile.c &&\n"> <LIT_CHARS "\t\tp4 add -t ktext kwdelfile.c &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file to be deleted\" &&\n"> <LIT_CHARS "\t\tcat kwdelfile.c &&\n"> <LIT_CHARS "\t\tgrep 1 kwdelfile.c\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgrep Revision kwdelfile.c &&\n"> <LIT_CHARS "\t\tgit rm -f kwdelfile.c &&\n"> <LIT_CHARS "\t\tgit commit -m \"Delete a file containing RCS keywords\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tgit p4 submit\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 sync &&\n"> <LIT_CHARS "\t\t! test -f kwdelfile.c\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Add keywords in git which match the default p4 values">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\techo \"NewKW: \\$Revision\\$\" >>kwfile1.c &&\n"> <LIT_CHARS "\t\tgit add kwfile1.c &&\n"> <LIT_CHARS "\t\tgit commit -m \"Adding RCS keywords in git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tgit p4 submit\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 sync &&\n"> <LIT_CHARS "\t\ttest -f kwfile1.c &&\n"> <LIT_CHARS "\t\tgrep \"NewKW.*Revision.*[0-9]\" kwfile1.c\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "Add keywords in git which do not match the default p4 values">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\techo \"NewKW2: \\$Revision:1\\$\" >>kwfile1.c &&\n"> <LIT_CHARS "\t\tgit add kwfile1.c &&\n"> <LIT_CHARS "\t\tgit commit -m \"Adding RCS keywords in git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit config git-p4.attemptRCSCleanup true &&\n"> <LIT_CHARS "\t\tgit p4 submit\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 sync &&\n"> <LIT_CHARS "\t\tgrep \"NewKW2.*Revision.*[0-9]\" kwfile1.c\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "kill p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tkill_p4d\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)