(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ (Token id:Id.Lit_Chars val:'git mailinfo and git mailsplit test' span_id:15))} spids: [13] ) ] ) (C {(.)} {(./test-lib.sh)}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:DATA) op: assign_op.Equal rhs: {(DQ ($ Id.VSub_DollarName '$TEST_DIRECTORY') (/t5100))} spids: [24] ) ] ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'split sample box' span_id:34))} { (SQ (Token id:Id.Lit_Chars val:'git mailsplit -o. "$DATA/sample.mbox" >last &&\n' span_id:40) (Token id:Id.Lit_Chars val:'\tlast=$(cat last) &&\n' span_id:41) (Token id:Id.Lit_Chars val:'\techo total is $last &&\n' span_id:42) (Token id:Id.Lit_Chars val:'\ttest $(cat last) = 18' span_id:43) ) } ) (command.ShFunction name: check_mailinfo body: (command.BraceGroup children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:mail) op: assign_op.Equal rhs: {($ Id.VSub_Number '$1')} spids: [55] ) (assign_pair lhs: (sh_lhs_expr.Name name:opt) op: assign_op.Equal rhs: {($ Id.VSub_Number '$2')} spids: [58] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:mo) op: assign_op.Equal rhs: {(DQ ($ Id.VSub_DollarName '$mail') ($ Id.VSub_DollarName '$opt'))} spids: [62] ) ] ) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp Id.Op_DAmp] children: [ (command.Simple words: [ {(git)} {(mailinfo)} {(-u)} {($ Id.VSub_DollarName '$opt')} {(DQ (msg) ($ Id.VSub_DollarName '$mo'))} {(DQ (patch) ($ Id.VSub_DollarName '$mo'))} ] redirects: [ (redir.Redir op: (Token id:Id.Redir_Less val:'<' span_id:87) fd: -1 arg_word: {(DQ ($ Id.VSub_DollarName '$mail'))} ) (redir.Redir op: (Token id:Id.Redir_Great val:'>' span_id:92) fd: -1 arg_word: {(DQ (info) ($ Id.VSub_DollarName '$mo'))} ) ] ) (C {(test_cmp)} {(DQ ($ Id.VSub_DollarName '$DATA') (/msg) ($ Id.VSub_DollarName '$mo'))} {(DQ (msg) ($ Id.VSub_DollarName '$mo'))} ) (C {(test_cmp)} {(DQ ($ Id.VSub_DollarName '$DATA') (/patch) ($ Id.VSub_DollarName '$mo'))} {(DQ (patch) ($ Id.VSub_DollarName '$mo'))} ) (C {(test_cmp)} {(DQ ($ Id.VSub_DollarName '$DATA') (/info) ($ Id.VSub_DollarName '$mo'))} {(DQ (info) ($ Id.VSub_DollarName '$mo'))} ) ] ) ] ) ) (command.ForEach iter_name: mail iter_words: [{(00) (Id.Lit_Star '*')}] do_arg_iter: F body: (command.DoGroup children: [ (C {(test_expect_success)} {(DQ ('mailinfo ') ($ Id.VSub_DollarName '$mail'))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:170) (Token id: Id.Lit_Chars val: '\t\tcheck_mailinfo "$mail" "" &&\n' span_id: 171 ) (Token id:Id.Lit_Chars val:'\t\tif test -f "$DATA/msg$mail--scissors"\n' span_id:172) (Token id:Id.Lit_Chars val:'\t\tthen\n' span_id:173) (Token id:Id.Lit_Chars val:'\t\t\tcheck_mailinfo "$mail" --scissors\n' span_id:174) (Token id:Id.Lit_Chars val:'\t\tfi &&\n' span_id:175) (Token id:Id.Lit_Chars val:'\t\tif test -f "$DATA/msg$mail--no-inbody-headers"\n' span_id:176) (Token id:Id.Lit_Chars val:'\t\tthen\n' span_id:177) (Token id:Id.Lit_Chars val:'\t\t\tcheck_mailinfo "$mail" --no-inbody-headers\n' span_id:178) (Token id:Id.Lit_Chars val:'\t\tfi &&\n' span_id:179) (Token id:Id.Lit_Chars val:'\t\tif test -f "$DATA/msg$mail--message-id"\n' span_id:180) (Token id:Id.Lit_Chars val:'\t\tthen\n' span_id:181) (Token id:Id.Lit_Chars val:'\t\t\tcheck_mailinfo "$mail" --message-id\n' span_id:182) (Token id:Id.Lit_Chars val:'\t\tfi\n' span_id:183) (Token id:Id.Lit_Chars val:'\t' span_id:184) ) } ) ] ) ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'split box with rfc2047 samples' span_id:194))} { (SQ (Token id:Id.Lit_Chars val:'mkdir rfc2047 &&\n' span_id:200) (Token id: Id.Lit_Chars val: '\tgit mailsplit -orfc2047 "$DATA/rfc2047-samples.mbox" \\\n' span_id: 201 ) (Token id:Id.Lit_Chars val:'\t >rfc2047/last &&\n' span_id:202) (Token id:Id.Lit_Chars val:'\tlast=$(cat rfc2047/last) &&\n' span_id:203) (Token id:Id.Lit_Chars val:'\techo total is $last &&\n' span_id:204) (Token id:Id.Lit_Chars val:'\ttest $(cat rfc2047/last) = 11' span_id:205) ) } ) (command.ForEach iter_name: mail iter_words: [{(rfc2047/00) (Id.Lit_Star '*')}] do_arg_iter: F body: (command.DoGroup children: [ (C {(test_expect_success)} {(DQ ('mailinfo ') ($ Id.VSub_DollarName '$mail'))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:229) (Token id: Id.Lit_Chars val: '\t\tgit mailinfo -u "$mail-msg" "$mail-patch" <"$mail" >"$mail-info" &&\n' span_id: 230 ) (Token id:Id.Lit_Chars val:'\t\techo msg &&\n' span_id:231) (Token id: Id.Lit_Chars val: '\t\ttest_cmp "$DATA/empty" "$mail-msg" &&\n' span_id: 232 ) (Token id:Id.Lit_Chars val:'\t\techo patch &&\n' span_id:233) (Token id: Id.Lit_Chars val: '\t\ttest_cmp "$DATA/empty" "$mail-patch" &&\n' span_id: 234 ) (Token id:Id.Lit_Chars val:'\t\techo info &&\n' span_id:235) (Token id: Id.Lit_Chars val: '\t\ttest_cmp "$DATA/rfc2047-info-$(basename $mail)" "$mail-info"\n' span_id: 236 ) (Token id:Id.Lit_Chars val:'\t' span_id:237) ) } ) ] ) ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'respect NULs' span_id:246))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:250) (Token id:Id.Lit_Chars val:'\n' span_id:251) (Token id: Id.Lit_Chars val: '\tgit mailsplit -d3 -o. "$DATA/nul-plain" &&\n' span_id: 252 ) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/nul-plain" 001 &&\n' span_id:253) (Token id: Id.Lit_Chars val: '\t(cat 001 | git mailinfo msg patch) &&\n' span_id: 254 ) (Token id:Id.Lit_Chars val:'\ttest_line_count = 4 patch\n' span_id:255) (Token id:Id.Lit_Chars val:'\n' span_id:256) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'Preserve NULs out of MIME encoded message' span_id:263))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:267) (Token id:Id.Lit_Chars val:'\n' span_id:268) (Token id: Id.Lit_Chars val: '\tgit mailsplit -d5 -o. "$DATA/nul-b64.in" &&\n' span_id: 269 ) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/nul-b64.in" 00001 &&\n' span_id:270) (Token id:Id.Lit_Chars val:'\tgit mailinfo msg patch <00001 &&\n' span_id:271) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/nul-b64.expect" patch\n' span_id:272) (Token id:Id.Lit_Chars val:'\n' span_id:273) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo on from header without name works' span_id:280))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:284) (Token id:Id.Lit_Chars val:'\n' span_id:285) (Token id:Id.Lit_Chars val:'\tmkdir info-from &&\n' span_id:286) (Token id:Id.Lit_Chars val:'\tgit mailsplit -oinfo-from "$DATA/info-from.in" &&\n' span_id:287) (Token id: Id.Lit_Chars val: '\ttest_cmp "$DATA/info-from.in" info-from/0001 &&\n' span_id: 288 ) (Token id:Id.Lit_Chars val:'\tgit mailinfo info-from/msg info-from/patch \\\n' span_id:289) (Token id:Id.Lit_Chars val:'\t <info-from/0001 >info-from/out &&\n' span_id:290) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/info-from.expect" info-from/out\n' span_id:291) (Token id:Id.Lit_Chars val:'\n' span_id:292) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo finds headers after embedded From line' span_id:299))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:303) (Token id:Id.Lit_Chars val:'\tmkdir embed-from &&\n' span_id:304) (Token id:Id.Lit_Chars val:'\tgit mailsplit -oembed-from "$DATA/embed-from.in" &&\n' span_id:305) (Token id: Id.Lit_Chars val: '\ttest_cmp "$DATA/embed-from.in" embed-from/0001 &&\n' span_id: 306 ) (Token id:Id.Lit_Chars val:'\tgit mailinfo embed-from/msg embed-from/patch \\\n' span_id:307) (Token id: Id.Lit_Chars val: '\t <embed-from/0001 >embed-from/out &&\n' span_id: 308 ) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/embed-from.expect" embed-from/out\n' span_id:309) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo on message with quoted >From' span_id:316))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:320) (Token id:Id.Lit_Chars val:'\tmkdir quoted-from &&\n' span_id:321) (Token id:Id.Lit_Chars val:'\tgit mailsplit -oquoted-from "$DATA/quoted-from.in" &&\n' span_id:322) (Token id: Id.Lit_Chars val: '\ttest_cmp "$DATA/quoted-from.in" quoted-from/0001 &&\n' span_id: 323 ) (Token id:Id.Lit_Chars val:'\tgit mailinfo quoted-from/msg quoted-from/patch \\\n' span_id:324) (Token id: Id.Lit_Chars val: '\t <quoted-from/0001 >quoted-from/out &&\n' span_id: 325 ) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/quoted-from.expect" quoted-from/msg\n' span_id:326) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo unescapes with --mboxrd' span_id:333))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:337) (Token id:Id.Lit_Chars val:'\tmkdir mboxrd &&\n' span_id:338) (Token id:Id.Lit_Chars val:'\tgit mailsplit -omboxrd --mboxrd \\\n' span_id:339) (Token id:Id.Lit_Chars val:'\t\t"$DATA/sample.mboxrd" >last &&\n' span_id:340) (Token id:Id.Lit_Chars val:'\ttest x"$(cat last)" = x2 &&\n' span_id:341) (Token id:Id.Lit_Chars val:'\tfor i in 0001 0002\n' span_id:342) (Token id:Id.Lit_Chars val:'\tdo\n' span_id:343) (Token id: Id.Lit_Chars val: '\t\tgit mailinfo mboxrd/msg mboxrd/patch \\\n' span_id: 344 ) (Token id:Id.Lit_Chars val:'\t\t <mboxrd/$i >mboxrd/out &&\n' span_id:345) (Token id: Id.Lit_Chars val: '\t\ttest_cmp "$DATA/${i}mboxrd" mboxrd/msg\n' span_id: 346 ) (Token id:Id.Lit_Chars val:'\tdone &&\n' span_id:347) (Token id:Id.Lit_Chars val:'\tsp=" " &&\n' span_id:348) (Token id:Id.Lit_Chars val:'\techo "From " >expect &&\n' span_id:349) (Token id:Id.Lit_Chars val:'\techo "From " >>expect &&\n' span_id:350) (Token id:Id.Lit_Chars val:'\techo >> expect &&\n' span_id:351) (Token id:Id.Lit_Chars val:'\tcat >sp <<-INPUT_END &&\n' span_id:352) (Token id:Id.Lit_Chars val:'\tFrom mboxrd Mon Sep 17 00:00:00 2001\n' span_id:353) (Token id: Id.Lit_Chars val: '\tFrom: trailing spacer <sp@example.com>\n' span_id: 354 ) (Token id:Id.Lit_Chars val:'\tSubject: [PATCH] a commit with trailing space\n' span_id:355) (Token id:Id.Lit_Chars val:'\n' span_id:356) (Token id:Id.Lit_Chars val:'\tFrom$sp\n' span_id:357) (Token id:Id.Lit_Chars val:'\t>From$sp\n' span_id:358) (Token id:Id.Lit_Chars val:'\n' span_id:359) (Token id:Id.Lit_Chars val:'\tINPUT_END\n' span_id:360) (Token id:Id.Lit_Chars val:'\n' span_id:361) (Token id:Id.Lit_Chars val:'\tgit mailsplit -f2 -omboxrd --mboxrd <sp >last &&\n' span_id:362) (Token id:Id.Lit_Chars val:'\ttest x"$(cat last)" = x1 &&\n' span_id:363) (Token id:Id.Lit_Chars val:'\tgit mailinfo mboxrd/msg mboxrd/patch <mboxrd/0003 &&\n' span_id:364) (Token id:Id.Lit_Chars val:'\ttest_cmp expect mboxrd/msg\n' span_id:365) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo handles rfc2822 quoted-string' span_id:372))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:376) (Token id:Id.Lit_Chars val:'\tmkdir quoted-string &&\n' span_id:377) (Token id: Id.Lit_Chars val: '\tgit mailinfo /dev/null /dev/null <"$DATA/quoted-string.in" \\\n' span_id: 378 ) (Token id:Id.Lit_Chars val:'\t\t>quoted-string/info &&\n' span_id:379) (Token id: Id.Lit_Chars val: '\ttest_cmp "$DATA/quoted-string.expect" quoted-string/info\n' span_id: 380 ) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'mailinfo handles rfc2822 comment' span_id:387))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:391) (Token id:Id.Lit_Chars val:'\tmkdir comment &&\n' span_id:392) (Token id:Id.Lit_Chars val:'\tgit mailinfo /dev/null /dev/null <"$DATA/comment.in" \\\n' span_id:393) (Token id:Id.Lit_Chars val:'\t\t>comment/info &&\n' span_id:394) (Token id:Id.Lit_Chars val:'\ttest_cmp "$DATA/comment.expect" comment/info\n' span_id:395) ) } ) (C {(test_done)}) ] )