(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"format-patch mime headers and extra headers do not conflict">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"create commit with utf-8 body">)} 
      {
        (SQ <"\n"> <"\techo content >file &&\n"> <"\tgit add file &&\n"> <"\tgit commit -m one &&\n"> 
          <"\techo more >>file &&\n"> <"\tgit commit -a -m \"two\n"> <"\n"> <"\tutf-8 body: \u00f1\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"patch has mime headers">)} 
      {
        (SQ <"\n"> <"\trm -f 0001-two.patch &&\n"> <"\tgit format-patch HEAD^ &&\n"> 
          <"\tgrep -i \"content-type: text/plain; charset=utf-8\" 0001-two.patch\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"patch has mime and extra headers">)} 
      {
        (SQ <"\n"> <"\trm -f 0001-two.patch &&\n"> <"\tgit config format.headers \"x-foo: bar\" &&\n"> 
          <"\tgit format-patch HEAD^ &&\n"> <"\tgrep -i \"x-foo: bar\" 0001-two.patch &&\n"> 
          <"\tgrep -i \"content-type: text/plain; charset=utf-8\" 0001-two.patch\n">
        )
      }
    )
    (C {(test_done)})
  ]
)