(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:test_description) op:Equal rhs:{(SQ <help>)} spids:[4])]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: configure_help
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(test_config)} {(help.format)} {(html)})
                (AndOr
                  children: [
                    (C {(test_config)} {(help.htmlpath)} {(test) (Lit_Other ':') (//html)})
                    (AndOr
                      children: [
                        (C {(test_config)} {(browser.test.cmd)} {(./test-browser)})
                        (C {(test_config)} {(help.browser)} {(test)})
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [20]
        )
      spids: [15 19]
    )
    (C {(test_expect_success)} {(DQ (setup))} 
      {
        (SQ <'\n'> <'\t# Just write out which page gets requested\n'> 
          <'\twrite_script test-browser <<-\\EOF\n'> <'\techo "$*" >test-browser.log\n'> <'\tEOF\n'>
        )
      }
    )
    (C {(test_expect_success)} {(DQ ('works for commands and guides by default'))} 
      {
        (SQ <'\n'> <'\tconfigure_help &&\n'> <'\tgit help status &&\n'> 
          <'\techo "test://html/git-status.html" >expect &&\n'> <'\ttest_cmp expect test-browser.log &&\n'> <'\tgit help revisions &&\n'> 
          <'\techo "test://html/gitrevisions.html" >expect &&\n'> <'\ttest_cmp expect test-browser.log\n'>
        )
      }
    )
    (C {(test_expect_success)} {(DQ ('--exclude-guides does not work for guides'))} 
      {
        (SQ <'\n'> <'\t>test-browser.log &&\n'> 
          <'\ttest_must_fail git help --exclude-guides revisions &&\n'> <'\ttest_must_be_empty test-browser.log\n'>
        )
      }
    )
    (C {(test_expect_success)} {(DQ ('--help does not work for guides'))} 
      {
        (DQ ('\n') ('\tcat <<-EOF >expect &&\n') 
          ("\t\tgit: 'revisions' is not a git command. See 'git --help'.\n") ('\tEOF\n') ('\ttest_must_fail git revisions --help 2>actual &&\n') ('\ttest_i18ncmp expect actual\n')
        )
      }
    )
    (C {(test_done)})
  ]
)