(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git p4 preserve users">]})])
  (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 "create files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:unix/\" | p4 client -i &&\n"> <LIT_CHARS "\t\techo file1 >file1 &&\n"> <LIT_CHARS "\t\techo file2 >file2 &&\n"> <LIT_CHARS "\t\tp4 add file1 file2 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"add files\"\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef p4_grant_admin []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('name', {[VarSub 1]})])
      (Pipeline
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS p4]} {[LIT_CHARS protect]} {[LIT_CHARS -o]})
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "    admin user "][VarSub name][LIT_CHARS " * //depot/..."]]})
        )
        (Com {[LIT_CHARS p4]} {[LIT_CHARS protect]} {[LIT_CHARS -i]})
      )
    )
  )
  (FunctionDef p4_check_commit_author []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[VarSub 1]}), ('user', {[VarSub 2]})])
      (Pipeline
        (Com {[LIT_CHARS p4]} {[LIT_CHARS changes]} {[LIT_CHARS -m]} {[LIT_CHARS 1]} {[LIT_CHARS //depot/] [VarSub file]})
        (Com {[LIT_CHARS grep]} {[LIT_CHARS -q]} {[VarSub user]})
      )
    )
  )
  (FunctionDef make_change_by_user []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[VarSub 1]}), ('name', {[VarSub 2]}), ('email', {[VarSub 3]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "username: a change by "][VarSub name]]}
          <
          (FilenameRedirectNode filename={[DQ [VarSub file]]} <REDIR_DGREAT ">>"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS add]} {[DQ [VarSub file]]})
          (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS --author]} {[DQ [VarSub name][LIT_CHARS " <"][VarSub email][LIT_CHARS ">"]]} {[LIT_CHARS -m]} {[DQ [LIT_CHARS "a change by "][VarSub name]]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preserve users">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tp4_add_user alice &&\n"> <LIT_CHARS "\tp4_add_user bob &&\n"> <LIT_CHARS "\tp4_grant_admin alice &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\techo \"username: a change by alice\" >>file1 &&\n"> <LIT_CHARS "\t\techo \"username: a change by bob\" >>file2 &&\n"> <LIT_CHARS "\t\tgit commit --author \"Alice <alice@example.com>\" -m \"a change by alice\" file1 &&\n"> <LIT_CHARS "\t\tgit commit --author \"Bob <bob@example.com>\" -m \"a change by bob\" file2 &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEditCheck true &&\n"> <LIT_CHARS "\t\tP4EDITOR=\"test-chmtime +5\" P4USER=alice P4PASSWD=secret &&\n"> <LIT_CHARS "\t\texport P4EDITOR P4USER P4PASSWD &&\n"> <LIT_CHARS "\t\tgit p4 commit --preserve-user &&\n"> <LIT_CHARS "\t\tp4_check_commit_author file1 alice &&\n"> <LIT_CHARS "\t\tp4_check_commit_author file2 bob\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refuse to preserve users without perms">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEditCheck true &&\n"> <LIT_CHARS "\t\techo \"username-noperms: a change by alice\" >>file1 &&\n"> <LIT_CHARS "\t\tgit commit --author \"Alice <alice@example.com>\" -m \"perms: a change by alice\" file1 &&\n"> <LIT_CHARS "\t\tP4EDITOR=\"test-chmtime +5\" P4USER=bob P4PASSWD=secret &&\n"> <LIT_CHARS "\t\texport P4EDITOR P4USER P4PASSWD &&\n"> <LIT_CHARS "\t\ttest_must_fail git p4 commit --preserve-user &&\n"> <LIT_CHARS "\t\t! git diff --exit-code HEAD..p4/master\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preserve user where author is unknown to p4">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEditCheck true &&\n"> <LIT_CHARS "\t\techo \"username-bob: a change by bob\" >>file1 &&\n"> <LIT_CHARS "\t\tgit commit --author \"Bob <bob@example.com>\" -m \"preserve: a change by bob\" file1 &&\n"> <LIT_CHARS "\t\techo \"username-unknown: a change by charlie\" >>file1 &&\n"> <LIT_CHARS "\t\tgit commit --author \"Charlie <charlie@example.com>\" -m \"preserve: a change by charlie\" file1 &&\n"> <LIT_CHARS "\t\tP4EDITOR=\"test-chmtime +5\" P4USER=alice P4PASSWD=secret &&\n"> <LIT_CHARS "\t\texport P4EDITOR P4USER P4PASSWD &&\n"> <LIT_CHARS "\t\ttest_must_fail git p4 commit --preserve-user &&\n"> <LIT_CHARS "\t\t! git diff --exit-code HEAD..p4/master &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\techo \"$0: repeat with allowMissingP4Users enabled\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.allowMissingP4Users true &&\n"> <LIT_CHARS "\t\tgit config git-p4.preserveUser true &&\n"> <LIT_CHARS "\t\tgit p4 commit &&\n"> <LIT_CHARS "\t\tgit diff --exit-code HEAD..p4/master &&\n"> <LIT_CHARS "\t\tp4_check_commit_author file1 alice\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "not preserving user with mixed authorship">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEditCheck true &&\n"> <LIT_CHARS "\t\tp4_add_user derek &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmake_change_by_user usernamefile3 Derek derek@example.com &&\n"> <LIT_CHARS "\t\tP4EDITOR=cat P4USER=alice P4PASSWD=secret &&\n"> <LIT_CHARS "\t\texport P4EDITOR P4USER P4PASSWD &&\n"> <LIT_CHARS "\t\tgit p4 commit |\\\n"> <LIT_CHARS "\t\tgrep \"git author derek@example.com does not match\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmake_change_by_user usernamefile3 Charlie charlie@example.com &&\n"> <LIT_CHARS "\t\tgit p4 commit |\\\n"> <LIT_CHARS "\t\tgrep \"git author charlie@example.com does not match\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmake_change_by_user usernamefile3 alice alice@example.com &&\n"> <LIT_CHARS "\t\tgit p4 commit |\\\n"> <LIT_CHARS "\t\ttest_must_fail grep \"git author.*does not match\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit config git-p4.skipUserNameCheck true &&\n"> <LIT_CHARS "\t\tmake_change_by_user usernamefile3 Charlie charlie@example.com &&\n"> <LIT_CHARS "\t\tgit p4 commit |\\\n"> <LIT_CHARS "\t\ttest_must_fail grep \"git author.*does not match\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tp4_check_commit_author usernamefile3 alice\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]})
)