(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)})
  ]
)