(command.CommandList
  children: [
    (command.ShAssignment
      left: <Id.Lit_VarLike 'test_description='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'test_description='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'test_description='> name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'Test mode change diffs.\n'> <'\n'>)}
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [{<.>} {<'./test-lib.sh'>}]
      redirects: []
      do_fork: T
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'sed_script='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'sed_script='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'sed_script='> name:sed_script)
          op: assign_op.Equal
          rhs: 
            {(SQ <'s/\\(:100644 100755\\) \\('>) (DQ ($ Id.VSub_DollarName _x40)) 
              (SQ <'\\) \\2 /\\1 X X /'>)
            }
        )
      ]
      redirects: []
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <setup>)}
        {
          (SQ <'\n'> <'\techo frotz >rezrov &&\n'> <'\tgit update-index --add rezrov &&\n'> 
            <'\ttree=$(git write-tree) &&\n'> <'\techo $tree\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <chmod>)}
        {
          (SQ <'\n'> <'\ttest_chmod +x rezrov &&\n'> <'\tgit diff-index $tree >current &&\n'> 
            <'\tsed -e "$sed_script" <current >check &&\n'> <'\techo ":100644 100755 X X M\trezrov" >expected &&\n'> <'\ttest_cmp expected check\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_expect_success>
      more_env: []
      words: [
        {<test_expect_success>}
        {(SQ <'prepare binary file'>)}
        {
          (SQ <'\n'> <'\tgit commit -m rezrov &&\n'> 
            <'\tprintf "\\00\\01\\02\\03\\04\\05\\06" >binbin &&\n'> <'\tgit add binbin &&\n'> <'\tgit commit -m binbin\n'>
          )
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <test_done>
      more_env: []
      words: [{<test_done>}]
      redirects: []
      do_fork: T
    )
  ]
)