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