(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ (Token id:Id.Lit_Chars val:'test fetching over git protocol' span_id:6))} spids: [4] ) ] ) (C {(.)} {(./test-lib.sh)}) (C {(.)} {(DQ ($ Id.VSub_DollarName '$TEST_DIRECTORY')) (/lib-git-daemon.sh)}) (C {(start_git_daemon)}) (command.ShFunction name: check_verbose_connect body: (command.BraceGroup children: [ (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (C {(grep)} {(-F)} {(DQ ('Looking up 127.0.0.1 ...'))} {(stderr)}) (C {(grep)} {(-F)} {(DQ ('Connecting to 127.0.0.1 (port '))} {(stderr)}) (C {(grep)} {(-F)} {(DQ (done.))} {(stderr)}) ] ) ] ) ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'setup repository' span_id:74))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:78) (Token id:Id.Lit_Chars val:'\tgit config push.default matching &&\n' span_id:79) (Token id:Id.Lit_Chars val:'\techo content >file &&\n' span_id:80) (Token id:Id.Lit_Chars val:'\tgit add file &&\n' span_id:81) (Token id:Id.Lit_Chars val:'\tgit commit -m one\n' span_id:82) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'create git-accessible bare repository' span_id:89))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:93) (Token id: Id.Lit_Chars val: '\tmkdir "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n' span_id: 94 ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n' span_id:95) (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:96) (Token id:Id.Lit_Chars val:'\t : >git-daemon-export-ok\n' span_id:97) (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:98) (Token id: Id.Lit_Chars val: '\tgit remote add public "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n' span_id: 99 ) (Token id:Id.Lit_Chars val:'\tgit push public master:master\n' span_id:100) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone git repository' span_id:107))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:111) (Token id: Id.Lit_Chars val: '\tgit clone -v "$GIT_DAEMON_URL/repo.git" clone 2>stderr &&\n' span_id: 112 ) (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect &&\n' span_id:113) (Token id:Id.Lit_Chars val:'\ttest_cmp file clone/file\n' span_id:114) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'fetch changes via git protocol' span_id:121))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:125) (Token id:Id.Lit_Chars val:'\techo content >>file &&\n' span_id:126) (Token id:Id.Lit_Chars val:'\tgit commit -a -m two &&\n' span_id:127) (Token id:Id.Lit_Chars val:'\tgit push public &&\n' span_id:128) (Token id:Id.Lit_Chars val:'\t(cd clone && git pull -v) 2>stderr &&\n' span_id:129) (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect &&\n' span_id:130) (Token id:Id.Lit_Chars val:'\ttest_cmp file clone/file\n' span_id:131) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'no-op fetch -v stderr is as expected' span_id:138))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:142) (Token id: Id.Lit_Chars val: '\t(cd clone && git fetch -v) 2>stderr &&\n' span_id: 143 ) (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect\n' span_id:144) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'no-op fetch without "-v" is quiet' span_id:151))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:155) (Token id:Id.Lit_Chars val:'\t(cd clone && git fetch) 2>stderr &&\n' span_id:156) (Token id:Id.Lit_Chars val:'\t! test -s stderr\n' span_id:157) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'remote detects correct HEAD' span_id:164))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:168) (Token id:Id.Lit_Chars val:'\tgit push public master:other &&\n' span_id:169) (Token id:Id.Lit_Chars val:'\t(cd clone &&\n' span_id:170) (Token id:Id.Lit_Chars val:'\t git remote set-head -d origin &&\n' span_id:171) (Token id:Id.Lit_Chars val:'\t git remote set-head -a origin &&\n' span_id:172) (Token id: Id.Lit_Chars val: '\t git symbolic-ref refs/remotes/origin/HEAD > output &&\n' span_id: 173 ) (Token id:Id.Lit_Chars val:'\t echo refs/remotes/origin/master > expect &&\n' span_id:174) (Token id:Id.Lit_Chars val:'\t test_cmp expect output\n' span_id:175) (Token id:Id.Lit_Chars val:'\t)\n' span_id:176) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'prepare pack objects' span_id:183))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:187) (Token id: Id.Lit_Chars val: '\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git &&\n' span_id: 188 ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git &&\n' span_id:189) (Token id:Id.Lit_Chars val:'\t git --bare repack -a -d\n' span_id:190) (Token id:Id.Lit_Chars val:'\t)\n' span_id:191) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'fetch notices corrupt pack' span_id:198))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:202) (Token id: Id.Lit_Chars val: '\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad1.git &&\n' span_id: 203 ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad1.git &&\n' span_id:204) (Token id: Id.Lit_Chars val: '\t p=$(ls objects/pack/pack-*.pack) &&\n' span_id: 205 ) (Token id:Id.Lit_Chars val:'\t chmod u+w $p &&\n' span_id:206) (Token id: Id.Lit_Chars val: '\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n' span_id: 207 ) (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:208) (Token id:Id.Lit_Chars val:'\tmkdir repo_bad1.git &&\n' span_id:209) (Token id:Id.Lit_Chars val:'\t(cd repo_bad1.git &&\n' span_id:210) (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:211) (Token id: Id.Lit_Chars val: '\t test_must_fail git --bare fetch "$GIT_DAEMON_URL/repo_bad1.git" &&\n' span_id: 212 ) (Token id:Id.Lit_Chars val:'\t test 0 = $(ls objects/pack/pack-*.pack | wc -l)\n' span_id:213) (Token id:Id.Lit_Chars val:'\t)\n' span_id:214) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'fetch notices corrupt idx' span_id:221))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:225) (Token id: Id.Lit_Chars val: '\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad2.git &&\n' span_id: 226 ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad2.git &&\n' span_id:227) (Token id:Id.Lit_Chars val:'\t p=$(ls objects/pack/pack-*.idx) &&\n' span_id:228) (Token id:Id.Lit_Chars val:'\t chmod u+w $p &&\n' span_id:229) (Token id: Id.Lit_Chars val: '\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n' span_id: 230 ) (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:231) (Token id:Id.Lit_Chars val:'\tmkdir repo_bad2.git &&\n' span_id:232) (Token id:Id.Lit_Chars val:'\t(cd repo_bad2.git &&\n' span_id:233) (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:234) (Token id: Id.Lit_Chars val: '\t test_must_fail git --bare fetch "$GIT_DAEMON_URL/repo_bad2.git" &&\n' span_id: 235 ) (Token id:Id.Lit_Chars val:'\t test 0 = $(ls objects/pack | wc -l)\n' span_id:236) (Token id:Id.Lit_Chars val:'\t)\n' span_id:237) ) } ) (command.ShFunction name: test_remote_error body: (command.BraceGroup children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:do_export) op: assign_op.Equal rhs: {(YesPlease)} spids: [248] ) ] ) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:252) cond: [(C {(test)} {($ Id.VSub_Pound '$#')} {(-gt)} {(0)})] body: (command.DoGroup children: [ (command.Case to_match: {($ Id.VSub_Number '$1')} arms: [ (case_arm pat_list: [{(-x)}] action: [ (C {(shift)}) (C {(chmod)} {(-x)} { (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/repo.git) ) } ) ] spids: [273 274 290 -1] ) (case_arm pat_list: [{(-n)}] action: [ (C {(shift)}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:do_export) op: assign_op.Equal rhs: (word.Empty) spids: [300] ) ] ) ] spids: [293 294 303 -1] ) (case_arm pat_list: [{(Id.Lit_Star '*')}] action: [ (command.ControlFlow token: (Token id:Id.ControlFlow_Break val:break span_id:310) ) ] spids: [306 307 -1 313] ) ] ) ] ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:msg) op: assign_op.Equal rhs: {($ Id.VSub_Number '$1')} spids: [320] ) ] ) (C {(shift)}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:cmd) op: assign_op.Equal rhs: {($ Id.VSub_Number '$1')} spids: [327] ) ] ) (C {(shift)}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:repo) op: assign_op.Equal rhs: {($ Id.VSub_Number '$1')} spids: [334] ) ] ) (command.AndOr ops: [Id.Op_DPipe] children: [(C {(shift)}) (C {(error)} {(DQ ('invalid number of arguments'))})] ) (command.If arms: [ (if_arm cond: [ (C {(test)} {(-x)} { (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) ($ Id.VSub_DollarName '$repo') ) } ) ] action: [ (command.If arms: [ (if_arm cond: [(C {(test)} {(-n)} {(DQ ($ Id.VSub_DollarName '$do_export'))})] action: [ (command.Simple words: [{(Id.Lit_Other ':')}] redirects: [ (redir.Redir op: (Token id:Id.Redir_Great val:'>' span_id:382) fd: -1 arg_word: { (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) ($ Id.VSub_DollarName '$repo') (/git-daemon-export-ok) ) } ) ] ) ] spids: [366 377] ) ] else_action: [ (C {(rm)} {(-f)} { (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) ($ Id.VSub_DollarName '$repo') (/git-daemon-export-ok) ) } ) ] ) ] spids: [350 363] ) ] ) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (command.Simple words: [ {(test_must_fail)} {(git)} {(DQ ($ Id.VSub_DollarName '$cmd'))} {(DQ ($ Id.VSub_DollarName '$GIT_DAEMON_URL') (/) ($ Id.VSub_DollarName '$repo'))} {(DQ ($ Id.VSub_At '$@'))} ] redirects: [ (redir.Redir op: (Token id:Id.Redir_Great val:'2>' span_id:431) fd: 2 arg_word: {(output)} ) ] ) (C {(test_i18ngrep)} { (DQ ('fatal: remote error: ') ($ Id.VSub_DollarName '$msg') (': /') ($ Id.VSub_DollarName '$repo') ) } {(output)} ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ret) op: assign_op.Equal rhs: {($ Id.VSub_QMark '$?')} spids: [451] ) ] ) ] ) (C {(chmod)} {(Id.Lit_Other '+') (x)} {(DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/repo.git))} ) (command.Subshell command_list: (command.CommandList children: [ (command.ControlFlow token: (Token id:Id.ControlFlow_Exit val:exit span_id:467) arg_word: {($ Id.VSub_DollarName '$ret')} ) ] ) ) ] ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:msg) op: assign_op.Equal rhs: {(DQ ('access denied or repository not exported'))} spids: [475] ) ] ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone non-existent' span_id:483))} {(DQ ("test_remote_error '") ($ Id.VSub_DollarName '$msg') ("' clone nowhere.git "))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'push disabled' span_id:495))} {(DQ ("test_remote_error '") ($ Id.VSub_DollarName '$msg') ("' push repo.git master"))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'read access denied' span_id:507))} {(DQ ("test_remote_error -x '") ($ Id.VSub_DollarName '$msg') ("' fetch repo.git "))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'not exported' span_id:519))} {(DQ ("test_remote_error -n '") ($ Id.VSub_DollarName '$msg') ("' fetch repo.git "))} ) (C {(stop_git_daemon)}) (C {(start_git_daemon)} {(--informative-errors)}) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone non-existent' span_id:539))} {(DQ ("test_remote_error 'no such repository' clone nowhere.git "))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'push disabled' span_id:549))} {(DQ ("test_remote_error 'service not enabled' push repo.git master"))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'read access denied' span_id:559))} {(DQ ("test_remote_error -x 'no such repository' fetch repo.git "))} ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'not exported' span_id:569))} {(DQ ("test_remote_error -n 'repository not exported' fetch repo.git "))} ) (C {(stop_git_daemon)}) (C {(start_git_daemon)} {(--interpolated-path) (Id.Lit_Equals '=') (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') ('/%H%D')) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'access repo via interpolated hostname' span_id:592))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:596) (Token id: Id.Lit_Chars val: '\trepo="$GIT_DAEMON_DOCUMENT_ROOT_PATH/localhost/interp.git" &&\n' span_id: 597 ) (Token id:Id.Lit_Chars val:'\tgit init --bare "$repo" &&\n' span_id:598) (Token id:Id.Lit_Chars val:'\tgit push "$repo" HEAD &&\n' span_id:599) (Token id:Id.Lit_Chars val:'\t>"$repo"/git-daemon-export-ok &&\n' span_id:600) (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:601) (Token id:Id.Lit_Chars val:'\tGIT_OVERRIDE_VIRTUAL_HOST=localhost \\\n' span_id:602) (Token id: Id.Lit_Chars val: '\t\tgit clone --bare "$GIT_DAEMON_URL/interp.git" tmp.git &&\n' span_id: 603 ) (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:604) (Token id: Id.Lit_Chars val: '\tGIT_OVERRIDE_VIRTUAL_HOST=LOCALHOST \\\n' span_id: 605 ) (Token id:Id.Lit_Chars val:'\t\tgit clone --bare "$GIT_DAEMON_URL/interp.git" tmp.git\n' span_id:606) ) } ) (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'hostname cannot break out of directory' span_id:613))} { (SQ (Token id:Id.Lit_Chars val:'\n' span_id:617) (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:618) (Token id:Id.Lit_Chars val:'\trepo="$GIT_DAEMON_DOCUMENT_ROOT_PATH/../escape.git" &&\n' span_id:619) (Token id:Id.Lit_Chars val:'\tgit init --bare "$repo" &&\n' span_id:620) (Token id:Id.Lit_Chars val:'\tgit push "$repo" HEAD &&\n' span_id:621) (Token id:Id.Lit_Chars val:'\t>"$repo"/git-daemon-export-ok &&\n' span_id:622) (Token id:Id.Lit_Chars val:'\ttest_must_fail \\\n' span_id:623) (Token id: Id.Lit_Chars val: '\t\tenv GIT_OVERRIDE_VIRTUAL_HOST=.. \\\n' span_id: 624 ) (Token id:Id.Lit_Chars val:'\t\tgit clone --bare "$GIT_DAEMON_URL/escape.git" tmp.git\n' span_id:625) ) } ) (C {(stop_git_daemon)}) (C {(test_done)}) ] )