(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: \xc3\xb1"\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)})
  ]
)