(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git web--browse basic tests\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test checks that git web--browse can handle various valid URLs.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef test_web_browse []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS web--browse]} {[LIT_CHARS --browser] [LIT_OTHER "="] [DQ [VarSub 1]]} {[DQ [VarSub 2]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[SQ <LIT_CHARS "\\015">]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_LESS "<"> 0),
          (FilenameRedirectNode filename={[LIT_CHARS text]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS text]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "URL with an ampersand in it">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo http://example.com/foo\\&bar >expect &&\n"> <LIT_CHARS "\tgit config browser.custom.cmd echo &&\n"> <LIT_CHARS "\ttest_web_browse custom http://example.com/foo\\&bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "URL with a semi-colon in it">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo http://example.com/foo\\;bar >expect &&\n"> <LIT_CHARS "\tgit config browser.custom.cmd echo &&\n"> <LIT_CHARS "\ttest_web_browse custom http://example.com/foo\\;bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "URL with a hash in it">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo http://example.com/foo#bar >expect &&\n"> <LIT_CHARS "\tgit config browser.custom.cmd echo &&\n"> <LIT_CHARS "\ttest_web_browse custom http://example.com/foo#bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "browser paths are properly quoted">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo fake: http://example.com/foo >expect &&\n"> <LIT_CHARS "\tcat >\"fake browser\" <<-\\EOF &&\n"> <LIT_CHARS "\t#!/bin/sh\n"> <LIT_CHARS "\techo fake: \"$@\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tchmod +x \"fake browser\" &&\n"> <LIT_CHARS "\tgit config browser.w3m.path \"$(pwd)/fake browser\" &&\n"> <LIT_CHARS "\ttest_web_browse w3m http://example.com/foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "browser command allows arbitrary shell code">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"arg: http://example.com/foo\" >expect &&\n"> <LIT_CHARS "\tgit config browser.custom.cmd \"\n"> <LIT_CHARS "\t\tf() {\n"> <LIT_CHARS "\t\t\tfor i in \\\"\\$@\\\"; do\n"> <LIT_CHARS "\t\t\t\techo arg: \\$i\n"> <LIT_CHARS "\t\t\tdone\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\tf\" &&\n"> <LIT_CHARS "\ttest_web_browse custom http://example.com/foo\n">]})
  (Com {[LIT_CHARS test_done]})
)