(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'respect crlf in git archive'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (C {<test_expect_success>} {<setup>} 
      {
        (SQ <'\n'> <'\n'> <'\tgit config core.autocrlf true &&\n'> <'\n'> 
          <'\tprintf "CRLF line ending\\r\\nAnd another\\r\\n" > sample &&\n'> <'\tgit add sample &&\n'> <'\n'> <'\ttest_tick &&\n'> <'\tgit commit -m Initial\n'> <'\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'tar archive'>)} 
      {
        (SQ <'\n'> <'\n'> <'\tgit archive --format=tar HEAD |\n'> 
          <'\t( mkdir untarred && cd untarred && "$TAR" -xf - ) &&\n'> <'\n'> <'\ttest_cmp sample untarred/sample\n'> <'\n'>
        )
      }
    )
    (C {<test_expect_success>} {<UNZIP>} {(SQ <'zip archive'>)} 
      {
        (SQ <'\n'> <'\n'> <'\tgit archive --format=zip HEAD >test.zip &&\n'> <'\n'> 
          <'\t( mkdir unzipped && cd unzipped && "$GIT_UNZIP" ../test.zip ) &&\n'> <'\n'> <'\ttest_cmp sample unzipped/sample\n'> <'\n'>
        )
      }
    )
    (C {<test_done>})
  ]
)