(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'git log with invalid commit headers'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (C {<test_expect_success>} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\ttest_commit foo &&\n'> <'\n'> <'\tgit cat-file commit HEAD |\n'> 
          <'\tsed "/^author /s/>/>-<>/" >broken_email.commit &&\n'> <'\tgit hash-object -w -t commit broken_email.commit >broken_email.hash &&\n'> 
          <'\tgit update-ref refs/heads/broken_email $(cat broken_email.hash)\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'fsck notices broken commit'>)} 
      {
        (SQ <'\n'> <'\ttest_must_fail git fsck 2>actual &&\n'> 
          <'\ttest_i18ngrep invalid.author actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'git log with broken author email'>)} 
      {
        (SQ <'\n'> <'\t{\n'> <'\t\techo commit $(cat broken_email.hash)\n'> 
          <'\t\techo "Author: A U Thor <author@example.com>"\n'> <'\t\techo "Date:   Thu Apr 7 15:13:13 2005 -0700"\n'> <'\t\techo\n'> <'\t\techo "    foo"\n'> 
          <'\t} >expect.out &&\n'> <'\t: >expect.err &&\n'> <'\n'> <'\tgit log broken_email >actual.out 2>actual.err &&\n'> <'\n'> 
          <'\ttest_cmp expect.out actual.out &&\n'> <'\ttest_cmp expect.err actual.err\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'git log --format with broken author email'>)} 
      {
        (SQ <'\n'> 
          <'\techo "A U Thor+author@example.com+Thu Apr 7 15:13:13 2005 -0700" >expect.out &&\n'> <'\t: >expect.err &&\n'> <'\n'> 
          <'\tgit log --format="%an+%ae+%ad" broken_email >actual.out 2>actual.err &&\n'> <'\n'> <'\ttest_cmp expect.out actual.out &&\n'> <'\ttest_cmp expect.err actual.err\n'>
        )
      }
    )
    (command.ShFunction
      name: munge_author_date
      body: 
        (BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.Simple
                  words: [{<git>} {<cat-file>} {<commit>} {(DQ ($ Id.VSub_Number '$1'))}]
                  redirects: [
                    (redir
                      op: <Id.Redir_Great '>'>
                      loc: (redir_loc.Fd fd:1)
                      arg: {<commit.orig>}
                    )
                  ]
                  do_fork: T
                )
                (command.Simple
                  words: [
                    {<sed>}
                    {
                      (DQ <'s/^'> <Id.Lit_Other '\\'> <'(author .*>'> <Id.Lit_Other '\\'> <') [0-9]*/'> 
                        <Id.Lit_Other '\\'> <'1 '> ($ Id.VSub_Number '$2') <'/'>
                      )
                    }
                  ]
                  redirects: [
                    (redir
                      op: <Id.Redir_Less '<'>
                      loc: (redir_loc.Fd fd:0)
                      arg: {<commit.orig>}
                    )
                    (redir
                      op: <Id.Redir_Great '>'>
                      loc: (redir_loc.Fd fd:1)
                      arg: {<commit.munge>}
                    )
                  ]
                  do_fork: T
                )
                (C {<git>} {<hash-object>} {<-w>} {<-t>} {<commit>} {<commit.munge>})
              ]
            )
          ]
        )
    )
    (C {<test_expect_success>} {(SQ <'unparsable dates produce sentinel value'>)} 
      {
        (SQ <'\n'> <'\tcommit=$(munge_author_date HEAD totally_bogus) &&\n'> 
          <'\techo "Date:   Thu Jan 1 00:00:00 1970 +0000" >expect &&\n'> <'\tgit log -1 $commit >actual.full &&\n'> <'\tgrep Date <actual.full >actual &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'unparsable dates produce sentinel value (%ad)'>)} 
      {
        (SQ <'\n'> <'\tcommit=$(munge_author_date HEAD totally_bogus) &&\n'> <'\techo >expect &&\n'> 
          <'\tgit log -1 --format=%ad $commit >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'date parser recognizes integer overflow'>)} 
      {
        (SQ <'\n'> <'\tcommit=$(munge_author_date HEAD 18446744073709551617) &&\n'> 
          <'\techo "Thu Jan 1 00:00:00 1970 +0000" >expect &&\n'> <'\tgit log -1 --format=%ad $commit >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'date parser recognizes time_t overflow'>)} 
      {
        (SQ <'\n'> <'\tcommit=$(munge_author_date HEAD 18446744073709551614) &&\n'> 
          <'\techo "Thu Jan 1 00:00:00 1970 +0000" >expect &&\n'> <'\tgit log -1 --format=%ad $commit >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'absurdly far-in-future date'>)} 
      {
        (SQ <'\n'> <'\tcommit=$(munge_author_date HEAD 999999999999999999) &&\n'> 
          <'\tgit log -1 --format=%ad $commit\n'>
        )
      }
    )
    (C {<test_done>})
  ]
)