(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git commit --reset-author">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef author_header []
    (Pipeline
      (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS commit]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/^$/q">]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/^author /p">]})
    )
  )
  (FunctionDef message_body []
    (Pipeline
      (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS commit]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "1,/^$/d">]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-C option copies authorship and message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Initial\" >foo &&\n"> <LIT_CHARS "\tgit add foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"Initial Commit\" --author Frigate\\ \\<flying@over.world\\> &&\n"> <LIT_CHARS "\tgit tag Initial &&\n"> <LIT_CHARS "\techo \"Test 1\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -C Initial &&\n"> <LIT_CHARS "\tauthor_header Initial >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmessage_body Initial >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-C option copies only the message with --reset-author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Test 2\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -C Initial --reset-author &&\n"> <LIT_CHARS "\techo \"author $GIT_AUTHOR_NAME <$GIT_AUTHOR_EMAIL> $GIT_AUTHOR_DATE\" >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmessage_body Initial >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-c option copies authorship and message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Test 3\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tEDITOR=: VISUAL=: git commit -a -c Initial &&\n"> <LIT_CHARS "\tauthor_header Initial >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-c option copies only the message with --reset-author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Test 4\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tEDITOR=: VISUAL=: git commit -a -c Initial --reset-author &&\n"> <LIT_CHARS "\techo \"author $GIT_AUTHOR_NAME <$GIT_AUTHOR_EMAIL> $GIT_AUTHOR_DATE\" >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmessage_body Initial >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--amend option copies authorship">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout Initial &&\n"> <LIT_CHARS "\techo \"Test 5\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a --amend -m \"amend test\" &&\n"> <LIT_CHARS "\tauthor_header Initial >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"amend test\" >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (FunctionDef sha1_file []
    (Pipeline
      (Com {[LIT_CHARS echo]} {[DQ [VarSub *]]})
      (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s#..#.git/objects/&/#"]]})
    )
  )
  (FunctionDef remove_object []
    (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[ComSub (Com {[LIT_CHARS sha1_file]} {[DQ [VarSub *]]})]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--amend option with empty author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit Initial >tmp &&\n"> <LIT_CHARS "\tsed \"s/author [^<]* </author  </\" tmp >empty-author &&\n"> <LIT_CHARS "\tsha=$(git hash-object -t commit -w empty-author) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $sha\" &&\n"> <LIT_CHARS "\tgit checkout $sha &&\n"> <LIT_CHARS "\ttest_when_finished \"git checkout Initial\" &&\n"> <LIT_CHARS "\techo \"Empty author test\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_must_fail git commit -a -m \"empty author\" --amend 2>err &&\n"> <LIT_CHARS "\tgrep \"empty ident\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--amend option with missing author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit Initial >tmp &&\n"> <LIT_CHARS "\tsed \"s/author [^<]* </author </\" tmp >malformed &&\n"> <LIT_CHARS "\tsha=$(git hash-object -t commit -w malformed) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $sha\" &&\n"> <LIT_CHARS "\tgit checkout $sha &&\n"> <LIT_CHARS "\ttest_when_finished \"git checkout Initial\" &&\n"> <LIT_CHARS "\techo \"Missing author test\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_must_fail git commit -a -m \"malformed author\" --amend 2>err &&\n"> <LIT_CHARS "\tgrep \"empty ident\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--reset-author makes the commit ours even with --amend option">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout Initial &&\n"> <LIT_CHARS "\techo \"Test 6\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a --reset-author -m \"Changed again\" --amend &&\n"> <LIT_CHARS "\techo \"author $GIT_AUTHOR_NAME <$GIT_AUTHOR_EMAIL> $GIT_AUTHOR_DATE\" >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Changed again\" >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--reset-author and --author are mutually exclusive">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout Initial &&\n"> <LIT_CHARS "\techo \"Test 7\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_must_fail git commit -a --reset-author --author=\"Xyzzy <frotz@nitfol.xz>\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--reset-author should be rejected without -c/-C/--amend">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout Initial &&\n"> <LIT_CHARS "\techo \"Test 7\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_must_fail git commit -a --reset-author -m done\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit respects CHERRY_PICK_HEAD and MERGE_MSG">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"cherry-pick 1a\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -am \"cherry-pick 1\" --author=\"Cherry <cherry@pick.er>\" &&\n"> <LIT_CHARS "\tgit tag cherry-pick-head &&\n"> <LIT_CHARS "\tgit rev-parse cherry-pick-head >.git/CHERRY_PICK_HEAD &&\n"> <LIT_CHARS "\techo \"This is a MERGE_MSG\" >.git/MERGE_MSG &&\n"> <LIT_CHARS "\techo \"cherry-pick 1b\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a &&\n"> <LIT_CHARS "\tauthor_header cherry-pick-head >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"This is a MERGE_MSG\" >expect &&\n"> <LIT_CHARS "\tmessage_body HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--reset-author with CHERRY_PICK_HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-parse cherry-pick-head >.git/CHERRY_PICK_HEAD &&\n"> <LIT_CHARS "\techo \"cherry-pick 2\" >>foo &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -am \"cherry-pick 2\" --reset-author &&\n"> <LIT_CHARS "\techo \"author $GIT_AUTHOR_NAME <$GIT_AUTHOR_EMAIL> $GIT_AUTHOR_DATE\" >expect &&\n"> <LIT_CHARS "\tauthor_header HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)