(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git log with invalid commit headers">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit foo &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD |\n"> <LIT_CHARS "\tsed \"/^author /s/>/>-<>/\" >broken_email.commit &&\n"> <LIT_CHARS "\tgit hash-object -w -t commit broken_email.commit >broken_email.hash &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/broken_email $(cat broken_email.hash)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices broken commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git fsck 2>actual &&\n"> <LIT_CHARS "\ttest_i18ngrep invalid.author actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git log with broken author email">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\techo commit $(cat broken_email.hash)\n"> <LIT_CHARS "\t\techo \"Author: A U Thor <author@example.com>\"\n"> <LIT_CHARS "\t\techo \"Date:   Thu Apr 7 15:13:13 2005 -0700\"\n"> <LIT_CHARS "\t\techo\n"> <LIT_CHARS "\t\techo \"    foo\"\n"> <LIT_CHARS "\t} >expect.out &&\n"> <LIT_CHARS "\t: >expect.err &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit log broken_email >actual.out 2>actual.err &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp expect.out actual.out &&\n"> <LIT_CHARS "\ttest_cmp expect.err actual.err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git log --format with broken author email">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"A U Thor+author@example.com+Thu Apr 7 15:13:13 2005 -0700\" >expect.out &&\n"> <LIT_CHARS "\t: >expect.err &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit log --format=\"%an+%ae+%ad\" broken_email >actual.out 2>actual.err &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp expect.out actual.out &&\n"> <LIT_CHARS "\ttest_cmp expect.err actual.err\n">]})
  (FunctionDef munge_author_date []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS commit]} {[DQ [VarSub 1]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS commit.orig]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s/^"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "author .*>"][\ LIT_ESCAPED_CHAR "\\)"][LIT_CHARS " [0-9]*/"][\ LIT_ESCAPED_CHAR "\\1"][LIT_CHARS " "][VarSub 2][LIT_CHARS /]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS commit.orig]} <REDIR_LESS "<"> 0),
          (FilenameRedirectNode filename={[LIT_CHARS commit.munge]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -w]} {[LIT_CHARS -t]} {[LIT_CHARS commit]} {[LIT_CHARS commit.munge]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unparsable dates produce sentinel value">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(munge_author_date HEAD totally_bogus) &&\n"> <LIT_CHARS "\techo \"Date:   Thu Jan 1 00:00:00 1970 +0000\" >expect &&\n"> <LIT_CHARS "\tgit log -1 $commit >actual.full &&\n"> <LIT_CHARS "\tgrep Date <actual.full >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unparsable dates produce sentinel value (%ad)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(munge_author_date HEAD totally_bogus) &&\n"> <LIT_CHARS "\techo >expect &&\n"> <LIT_CHARS "\tgit log -1 --format=%ad $commit >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "date parser recognizes integer overflow">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(munge_author_date HEAD 18446744073709551617) &&\n"> <LIT_CHARS "\techo \"Thu Jan 1 00:00:00 1970 +0000\" >expect &&\n"> <LIT_CHARS "\tgit log -1 --format=%ad $commit >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "date parser recognizes time_t overflow">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(munge_author_date HEAD 18446744073709551614) &&\n"> <LIT_CHARS "\techo \"Thu Jan 1 00:00:00 1970 +0000\" >expect &&\n"> <LIT_CHARS "\tgit log -1 --format=%ad $commit >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "absurdly far-in-future date">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(munge_author_date HEAD 999999999999999999) &&\n"> <LIT_CHARS "\tgit log -1 --format=%ad $commit\n">]})
  (Com {[LIT_CHARS test_done]})
)