(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'help.autocorrect finding a match'>)}
          spids: [4]
        )
      ]
      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)})
  ]
)