(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'help.autocorrect finding a match'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (C {<test_expect_success>} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\t# An alias\n'> <'\tgit config alias.lgf "log --format=%s --first-parent" &&\n'> 
          <'\n'> <'\t# A random user-defined command\n'> <'\twrite_script git-distimdistim <<-EOF &&\n'> 
          <'\t\techo distimdistim was called\n'> <'\tEOF\n'> <'\n'> <'\tPATH="$PATH:." &&\n'> <'\texport PATH &&\n'> <'\n'> 
          <'\tgit commit --allow-empty -m "a single log entry" &&\n'> <'\n'> <'\t# Sanity check\n'> <'\tgit lgf >actual &&\n'> <'\techo "a single log entry" >expect &&\n'> 
          <'\ttest_cmp expect actual &&\n'> <'\n'> <'\tgit distimdistim >actual &&\n'> <'\techo "distimdistim was called" >expect &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'autocorrect showing candidates'>)} 
      {
        (SQ <'\n'> <'\tgit config help.autocorrect 0 &&\n'> <'\n'> 
          <'\ttest_must_fail git lfg 2>actual &&\n'> <'\tgrep "^\tlgf" actual &&\n'> <'\n'> <'\ttest_must_fail git distimdist 2>actual &&\n'> 
          <'\tgrep "^\tdistimdistim" actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'autocorrect running commands'>)} 
      {
        (SQ <'\n'> <'\tgit config help.autocorrect -1 &&\n'> <'\n'> <'\tgit lfg >actual &&\n'> 
          <'\techo "a single log entry" >expect &&\n'> <'\ttest_cmp expect actual &&\n'> <'\n'> <'\tgit distimdist >actual &&\n'> 
          <'\techo "distimdistim was called" >expect &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_done>})
  ]
)