(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test shared repository initialization">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS setfacl]} {[LIT_CHARS -k]} {[LIT_CHARS .]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "shared = 0400 (faulty permission u-w)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir sub && (\n"> <LIT_CHARS "\t\tcd sub && git init --shared=0400\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\trm -rf sub\n"> <LIT_CHARS "\ttest $ret != \"0\"\n">]}  )
  (FunctionDef modebits []
    (Pipeline
      (Com {[LIT_CHARS ls]} {[LIT_CHARS -l]} {[DQ [VarSub 1]]}      )
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "s|^\\(..........\\).*|\\1|">]}      )
    )
  )
  (For u [{[LIT_CHARS 002]}, {[LIT_CHARS 022]}])
    (List
      (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[DQ [LIT_CHARS "shared=1 does not clear bits preset by umask "][VarSub u]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir sub && (\n"> <LIT_CHARS "\t\t\tcd sub &&\n"> <LIT_CHARS "\t\t\tumask $u &&\n"> <LIT_CHARS "\t\t\tgit init --shared=1 &&\n"> <LIT_CHARS "\t\t\ttest 1 = \"$(git config core.sharedrepository)\"\n"> <LIT_CHARS "\t\t) &&\n"> <LIT_CHARS "\t\tactual=$(ls -l sub/.git/HEAD)\n"> <LIT_CHARS "\t\tcase \"$actual\" in\n"> <LIT_CHARS "\t\t-rw-rw-r--*)\n"> <LIT_CHARS "\t\t\t: happy\n"> <LIT_CHARS "\t\t\t;;\n"> <LIT_CHARS "\t\t*)\n"> <LIT_CHARS "\t\t\techo Oops, .git/HEAD is not 0664 but $actual\n"> <LIT_CHARS "\t\t\tfalse\n"> <LIT_CHARS "\t\t\t;;\n"> <LIT_CHARS "\t\tesac\n"> <LIT_CHARS "\t">]}      )
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS sub]}      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "shared=all">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir sub &&\n"> <LIT_CHARS "\tcd sub &&\n"> <LIT_CHARS "\tgit init --shared=all &&\n"> <LIT_CHARS "\ttest 2 = $(git config core.sharedrepository)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[SQ <LIT_CHARS "update-server-info honors core.sharedRepository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t: > a1 &&\n"> <LIT_CHARS "\tgit add a1 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m a1 &&\n"> <LIT_CHARS "\tumask 0277 &&\n"> <LIT_CHARS "\tgit update-server-info &&\n"> <LIT_CHARS "\tactual=\"$(ls -l .git/info/refs)\" &&\n"> <LIT_CHARS "\tcase \"$actual\" in\n"> <LIT_CHARS "\t-r--r--r--*)\n"> <LIT_CHARS "\t\t: happy\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\t*)\n"> <LIT_CHARS "\t\techo Oops, .git/info/refs is not 0444\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\tesac\n">]}  )
  (For u [{[LIT_CHARS 0660] [LIT_OTHER ":"] [LIT_CHARS rw-rw----]}, {[LIT_CHARS 0640] [LIT_OTHER ":"] [LIT_CHARS rw-r-----]}, {[LIT_CHARS 0600] [LIT_OTHER ":"] [LIT_CHARS rw-------]}, {[LIT_CHARS 0666] [LIT_OTHER ":"] [LIT_CHARS rw-rw-rw-]}, {[LIT_CHARS 0664] [LIT_OTHER ":"] [LIT_CHARS rw-rw-r--]}])
    (List
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('x', {[ComSub (Com {[LIT_CHARS expr]} {[DQ [VarSub u]]} {[LIT_OTHER ":"]} {[DQ [LIT_CHARS ".*:"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "[rw-]*"][\ LIT_ESCAPED_CHAR "\\)"]]})]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('y', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[DQ [VarSub x]]}) (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS s/w/-/g]]}) )]})])
          (AndOr OP_AND_IF
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('u', {[ComSub (Com {[LIT_CHARS expr]} {[DQ [VarSub u]]} {[LIT_OTHER ":"]} {[DQ [\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "[0-7]*"][\ LIT_ESCAPED_CHAR "\\)"]]})]})])
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS core.sharedrepository]} {[DQ [VarSub u]]}              )
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS umask]} {[LIT_CHARS 0277]}                )
                (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[DQ [LIT_CHARS "shared = "][VarSub u][LIT_CHARS " ("][VarSub y][LIT_CHARS ") ro"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\trm -f .git/info/refs &&\n"> <LIT_CHARS "\t\tgit update-server-info &&\n"> <LIT_CHARS "\t\tactual=\"$(modebits .git/info/refs)\" &&\n"> <LIT_CHARS "\t\ttest \"x$actual\" = \"x-$y\" || {\n"> <LIT_CHARS "\t\t\tls -lt .git/info\n"> <LIT_CHARS "\t\t\tfalse\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t">]}                )
              )
            )
          )
        )
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS umask]} {[LIT_CHARS 077]}        )
        (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[DQ [LIT_CHARS "shared = "][VarSub u][LIT_CHARS " ("][VarSub x][LIT_CHARS ") rw"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\trm -f .git/info/refs &&\n"> <LIT_CHARS "\t\tgit update-server-info &&\n"> <LIT_CHARS "\t\tactual=\"$(modebits .git/info/refs)\" &&\n"> <LIT_CHARS "\t\ttest \"x$actual\" = \"x-$x\" || {\n"> <LIT_CHARS "\t\t\tls -lt .git/info\n"> <LIT_CHARS "\t\t\tfalse\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t">]}        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[SQ <LIT_CHARS "git reflog expire honors core.sharedRepository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config core.sharedRepository group &&\n"> <LIT_CHARS "\tgit reflog expire --all &&\n"> <LIT_CHARS "\tactual=\"$(ls -l .git/logs/refs/heads/master)\" &&\n"> <LIT_CHARS "\tcase \"$actual\" in\n"> <LIT_CHARS "\t-rw-rw-*)\n"> <LIT_CHARS "\t\t: happy\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\t*)\n"> <LIT_CHARS "\t\techo Ooops, .git/logs/refs/heads/master is not 0662 [$actual]\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\tesac\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS POSIXPERM]} {[SQ <LIT_CHARS "forced modes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p templates/hooks &&\n"> <LIT_CHARS "\techo update-server-info >templates/hooks/post-update &&\n"> <LIT_CHARS "\tchmod +x templates/hooks/post-update &&\n"> <LIT_CHARS "\techo : >random-file &&\n"> <LIT_CHARS "\tmkdir new &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd new &&\n"> <LIT_CHARS "\t\tumask 002 &&\n"> <LIT_CHARS "\t\tgit init --shared=0660 --template=../templates &&\n"> <LIT_CHARS "\t\t>frotz &&\n"> <LIT_CHARS "\t\tgit add frotz &&\n"> <LIT_CHARS "\t\tgit commit -a -m initial &&\n"> <LIT_CHARS "\t\tgit repack\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t# List repository files meant to be protected; note that\n"> <LIT_CHARS "\t# COMMIT_EDITMSG does not matter---0mode is not about a\n"> <LIT_CHARS "\t# repository with a work tree.\n"> <LIT_CHARS "\tfind new/.git -type f -name COMMIT_EDITMSG -prune -o -print |\n"> <LIT_CHARS "\txargs ls -ld >actual &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Everything must be unaccessible to others\n"> <LIT_CHARS "\ttest -z \"$(sed -e \"/^.......---/d\" actual)\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# All directories must have either 2770 or 770\n"> <LIT_CHARS "\ttest -z \"$(sed -n -e \"/^drwxrw[sx]---/d\" -e \"/^d/p\" actual)\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# post-update hook must be 0770\n"> <LIT_CHARS "\ttest -z \"$(sed -n -e \"/post-update/{\n"> <LIT_CHARS "\t\t/^-rwxrwx---/d\n"> <LIT_CHARS "\t\tp\n"> <LIT_CHARS "\t}\" actual)\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# All files inside objects must be accessible by us\n"> <LIT_CHARS "\ttest -z \"$(sed -n -e \"/objects\\//{\n"> <LIT_CHARS "\t\t/^d/d\n"> <LIT_CHARS "\t\t/^-r.-r.----/d\n"> <LIT_CHARS "\t\tp\n"> <LIT_CHARS "\t}\" actual)\"\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)