(List (= scope= flags=0 words=[] bindings=[('test_description', {[SQ ]})]) (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}) (FunctionDef configure_help [] (AndOr OP_AND_IF (Com {[LIT_CHARS test_config]} {[LIT_CHARS help.format]} {[LIT_CHARS html]}) (AndOr OP_AND_IF (Com {[LIT_CHARS test_config]} {[LIT_CHARS help.htmlpath]} {[LIT_CHARS test] [LIT_OTHER ":"] [LIT_CHARS //html]}) (AndOr OP_AND_IF (Com {[LIT_CHARS test_config]} {[LIT_CHARS browser.test.cmd]} {[LIT_CHARS ./test-browser]}) (Com {[LIT_CHARS test_config]} {[LIT_CHARS help.browser]} {[LIT_CHARS test]}) ) ) ) ) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS setup]]} {[SQ test-browser.log\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "works for commands and guides by default"]]} {[SQ expect &&\n"> expect &&\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "--exclude-guides does not work for guides"]]} {[SQ test-browser.log &&\n"> ]}) (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "--help does not work for guides"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tcat <<-EOF >expect &&\n"][LIT_CHARS "\t\tgit: 'revisions' is not a git command. See 'git --help'.\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\ttest_must_fail git revisions --help 2>actual &&\n"][LIT_CHARS "\ttest_i18ncmp expect actual\n"]]}) (Com {[LIT_CHARS test_done]}) )