(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "check that read-tree rejects confusing paths">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create base tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m base &&\n"> <LIT_CHARS "\tblob=$(git rev-parse HEAD:file) &&\n"> <LIT_CHARS "\ttree=$(git rev-parse HEAD^{tree})\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "enable core.protectHFS for rejection tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config core.protectHFS true\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "enable core.protectNTFS for rejection tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config core.protectNTFS true\n">]})
  (While
    (Com {[LIT_CHARS read]} {[LIT_CHARS path]} {[LIT_CHARS pretty]})
    (List
      (Com {[LIT_OTHER ":"]} {[VarSub pretty test_op=VS_TEST_COLON_EQUALS {[VarSub path]}]})
      (Case to_match={[DQ [VarSub path]]}, pat_word_list=[[{[LIT_OTHER "*"] [LIT_CHARS SPACE]}]]
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('path', {[DQ [VarSub path transform_ops=[VS_UNARY_PERCENT {[LIT_CHARS SPACE]}]][LIT_CHARS " "]]})])
      )
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "reject "][VarSub pretty][LIT_CHARS " at end of path"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tprintf \"100644 blob %s\\t%s\" \"$blob\" \"$path\" >tree &&\n"> <LIT_CHARS "\t\tbogus=$(git mktree <tree) &&\n"> <LIT_CHARS "\t\ttest_must_fail git read-tree $bogus\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "reject "][VarSub pretty][LIT_CHARS " as subtree"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tprintf \"040000 tree %s\\t%s\" \"$tree\" \"$path\" >tree &&\n"> <LIT_CHARS "\t\tbogus=$(git mktree <tree) &&\n"> <LIT_CHARS "\t\ttest_must_fail git read-tree $bogus\n"> <LIT_CHARS "\t">]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "utf-8 paths allowed with core.protectHFS off">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git read-tree HEAD\" &&\n"> <LIT_CHARS "\ttest_config core.protectHFS false &&\n"> <LIT_CHARS "\tprintf \"100644 blob %s\\t%s\" \"$blob\" \".gi${u200c}t\" >tree &&\n"> <LIT_CHARS "\tok=$(git mktree <tree) &&\n"> <LIT_CHARS "\tgit read-tree $ok\n">]})
  (Com {[LIT_CHARS test_done]})
)