(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git mailinfo and git mailsplit test">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('DATA', {[DQ [VarSub TEST_DIRECTORY][LIT_CHARS /t5100]]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "split sample box">]} {[SQ <LIT_CHARS "git mailsplit -o. \"$DATA/sample.mbox\" >last &&\n"> <LIT_CHARS "\tlast=$(cat last) &&\n"> <LIT_CHARS "\techo total is $last &&\n"> <LIT_CHARS "\ttest $(cat last) = 18">]})
  (FunctionDef check_mailinfo []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('mail', {[VarSub 1]}), ('opt', {[VarSub 2]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('mo', {[DQ [VarSub mail][VarSub opt]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS mailinfo]} {[LIT_CHARS -u]} {[VarSub opt]} {[DQ [LIT_CHARS msg][VarSub mo]]} {[DQ [LIT_CHARS patch][VarSub mo]]}
          <
          (FilenameRedirectNode filename={[DQ [VarSub mail]]} <REDIR_LESS "<"> 0),
          (FilenameRedirectNode filename={[DQ [LIT_CHARS info][VarSub mo]]} <REDIR_GREAT ">"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub DATA][LIT_CHARS /msg][VarSub mo]]} {[DQ [LIT_CHARS msg][VarSub mo]]})
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub DATA][LIT_CHARS /patch][VarSub mo]]} {[DQ [LIT_CHARS patch][VarSub mo]]})
            (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub DATA][LIT_CHARS /info][VarSub mo]]} {[DQ [LIT_CHARS info][VarSub mo]]})
          )
        )
      )
    )
  )
  (For mail [{[LIT_CHARS 00] [LIT_OTHER "*"]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "mailinfo "][VarSub mail]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tcheck_mailinfo \"$mail\" \"\" &&\n"> <LIT_CHARS "\t\tif test -f \"$DATA/msg$mail--scissors\"\n"> <LIT_CHARS "\t\tthen\n"> <LIT_CHARS "\t\t\tcheck_mailinfo \"$mail\" --scissors\n"> <LIT_CHARS "\t\tfi &&\n"> <LIT_CHARS "\t\tif test -f \"$DATA/msg$mail--no-inbody-headers\"\n"> <LIT_CHARS "\t\tthen\n"> <LIT_CHARS "\t\t\tcheck_mailinfo \"$mail\" --no-inbody-headers\n"> <LIT_CHARS "\t\tfi &&\n"> <LIT_CHARS "\t\tif test -f \"$DATA/msg$mail--message-id\"\n"> <LIT_CHARS "\t\tthen\n"> <LIT_CHARS "\t\t\tcheck_mailinfo \"$mail\" --message-id\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\t">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "split box with rfc2047 samples">]} {[SQ <LIT_CHARS "mkdir rfc2047 &&\n"> <LIT_CHARS "\tgit mailsplit -orfc2047 \"$DATA/rfc2047-samples.mbox\" \\\n"> <LIT_CHARS "\t  >rfc2047/last &&\n"> <LIT_CHARS "\tlast=$(cat rfc2047/last) &&\n"> <LIT_CHARS "\techo total is $last &&\n"> <LIT_CHARS "\ttest $(cat rfc2047/last) = 11">]})
  (For mail [{[LIT_CHARS rfc2047/00] [LIT_OTHER "*"]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "mailinfo "][VarSub mail]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit mailinfo -u \"$mail-msg\" \"$mail-patch\" <\"$mail\" >\"$mail-info\" &&\n"> <LIT_CHARS "\t\techo msg &&\n"> <LIT_CHARS "\t\ttest_cmp \"$DATA/empty\" \"$mail-msg\" &&\n"> <LIT_CHARS "\t\techo patch &&\n"> <LIT_CHARS "\t\ttest_cmp \"$DATA/empty\" \"$mail-patch\" &&\n"> <LIT_CHARS "\t\techo info &&\n"> <LIT_CHARS "\t\ttest_cmp \"$DATA/rfc2047-info-$(basename $mail)\" \"$mail-info\"\n"> <LIT_CHARS "\t">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "respect NULs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit mailsplit -d3 -o. \"$DATA/nul-plain\" &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/nul-plain\" 001 &&\n"> <LIT_CHARS "\t(cat 001 | git mailinfo msg patch) &&\n"> <LIT_CHARS "\ttest_line_count = 4 patch\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Preserve NULs out of MIME encoded message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit mailsplit -d5 -o. \"$DATA/nul-b64.in\" &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/nul-b64.in\" 00001 &&\n"> <LIT_CHARS "\tgit mailinfo msg patch <00001 &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/nul-b64.expect\" patch\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo on from header without name works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir info-from &&\n"> <LIT_CHARS "\tgit mailsplit -oinfo-from \"$DATA/info-from.in\" &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/info-from.in\" info-from/0001 &&\n"> <LIT_CHARS "\tgit mailinfo info-from/msg info-from/patch \\\n"> <LIT_CHARS "\t  <info-from/0001 >info-from/out &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/info-from.expect\" info-from/out\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo finds headers after embedded From line">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir embed-from &&\n"> <LIT_CHARS "\tgit mailsplit -oembed-from \"$DATA/embed-from.in\" &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/embed-from.in\" embed-from/0001 &&\n"> <LIT_CHARS "\tgit mailinfo embed-from/msg embed-from/patch \\\n"> <LIT_CHARS "\t  <embed-from/0001 >embed-from/out &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/embed-from.expect\" embed-from/out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo on message with quoted >From">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir quoted-from &&\n"> <LIT_CHARS "\tgit mailsplit -oquoted-from \"$DATA/quoted-from.in\" &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/quoted-from.in\" quoted-from/0001 &&\n"> <LIT_CHARS "\tgit mailinfo quoted-from/msg quoted-from/patch \\\n"> <LIT_CHARS "\t  <quoted-from/0001 >quoted-from/out &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/quoted-from.expect\" quoted-from/msg\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo unescapes with --mboxrd">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir mboxrd &&\n"> <LIT_CHARS "\tgit mailsplit -omboxrd --mboxrd \\\n"> <LIT_CHARS "\t\t\"$DATA/sample.mboxrd\" >last &&\n"> <LIT_CHARS "\ttest x\"$(cat last)\" = x2 &&\n"> <LIT_CHARS "\tfor i in 0001 0002\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tgit mailinfo mboxrd/msg mboxrd/patch \\\n"> <LIT_CHARS "\t\t  <mboxrd/$i >mboxrd/out &&\n"> <LIT_CHARS "\t\ttest_cmp \"$DATA/${i}mboxrd\" mboxrd/msg\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tsp=\" \" &&\n"> <LIT_CHARS "\techo \"From \" >expect &&\n"> <LIT_CHARS "\techo \"From \" >>expect &&\n"> <LIT_CHARS "\techo >> expect &&\n"> <LIT_CHARS "\tcat >sp <<-INPUT_END &&\n"> <LIT_CHARS "\tFrom mboxrd Mon Sep 17 00:00:00 2001\n"> <LIT_CHARS "\tFrom: trailing spacer <sp@example.com>\n"> <LIT_CHARS "\tSubject: [PATCH] a commit with trailing space\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tFrom$sp\n"> <LIT_CHARS "\t>From$sp\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit mailsplit -f2 -omboxrd --mboxrd <sp >last &&\n"> <LIT_CHARS "\ttest x\"$(cat last)\" = x1 &&\n"> <LIT_CHARS "\tgit mailinfo mboxrd/msg mboxrd/patch <mboxrd/0003 &&\n"> <LIT_CHARS "\ttest_cmp expect mboxrd/msg\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo handles rfc2822 quoted-string">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir quoted-string &&\n"> <LIT_CHARS "\tgit mailinfo /dev/null /dev/null <\"$DATA/quoted-string.in\" \\\n"> <LIT_CHARS "\t\t>quoted-string/info &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/quoted-string.expect\" quoted-string/info\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "mailinfo handles rfc2822 comment">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir comment &&\n"> <LIT_CHARS "\tgit mailinfo /dev/null /dev/null <\"$DATA/comment.in\" \\\n"> <LIT_CHARS "\t\t>comment/info &&\n"> <LIT_CHARS "\ttest_cmp \"$DATA/comment.expect\" comment/info\n">]})
  (Com {[LIT_CHARS test_done]})
)