(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Pathnames with funny characters.\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test tries pathnames with funny characters in the working\n"> <LIT_CHARS "tree, index, and tree objects.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('HT', {[SQ <LIT_CHARS "\t">]})])
  (Com {[LIT_CHARS echo]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2),
    (FilenameRedirectNode filename={[DQ [LIT_CHARS "Name with an"][VarSub HT][LIT_CHARS HT]]} <REDIR_GREAT ">"> 1),
    >
  )
  (If
    (Pipeline!
      (Com {[LIT_CHARS test]} {[LIT_CHARS -f]} {[DQ [LIT_CHARS "Name with an"][VarSub HT][LIT_CHARS HT]]}      )
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "Your filesystem does not allow tabs in filenames">]})])
      (Com {[LIT_CHARS test_done]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('p0', {[SQ <LIT_CHARS no-funny>]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('p1', {[SQ <LIT_CHARS "tabs\t,\" (dq) and spaces">]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('p2', {[SQ <LIT_CHARS "just space">]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >\"$p0\" <<-\\EOF &&\n"> <LIT_CHARS "\t1. A quick brown fox jumps over the lazy cat, oops dog.\n"> <LIT_CHARS "\t2. A quick brown fox jumps over the lazy cat, oops dog.\n"> <LIT_CHARS "\t3. A quick brown fox jumps over the lazy cat, oops dog.\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t{ cat \"$p0\" >\"$p1\" || :; } &&\n"> <LIT_CHARS "\t{ echo \"Foo Bar Baz\" >\"$p2\" || :; }\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: populate index and tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --add \"$p0\" \"$p2\" &&\n"> <LIT_CHARS "\tt0=$(git write-tree)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-files prints space in filename verbatim">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"%s\\n\" \"just space\" no-funny >expected &&\n"> <LIT_CHARS "\tgit ls-files >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: add funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --add \"$p1\" &&\n"> <LIT_CHARS "\tt1=$(git write-tree)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-files quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tjust space\n"> <LIT_CHARS "\tno-funny\n"> <LIT_CHARS "\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit ls-files >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-files -z does not quote funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tjust space\n"> <LIT_CHARS "\tno-funny\n"> <LIT_CHARS "\ttabs\t,\" (dq) and spaces\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit ls-files -z >ls-files.z &&\n"> <LIT_CHARS "\t\"$PERL_PATH\" -pe \"y/\\000/\\012/\" <ls-files.z >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tjust space\n"> <LIT_CHARS "\tno-funny\n"> <LIT_CHARS "\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit ls-tree -r $t1 >ls-tree &&\n"> <LIT_CHARS "\tsed -e \"s/^[^\t]*\t//\" <ls-tree >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-index --name-status quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tA\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index --name-status $t0 >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree --name-status quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tA\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-tree --name-status $t0 $t1 >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-index -z does not quote funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tA\n"> <LIT_CHARS "\ttabs\t,\" (dq) and spaces\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -z --name-status $t0 >diff-index.z &&\n"> <LIT_CHARS "\t\"$PERL_PATH\" -pe \"y/\\000/\\012/\" <diff-index.z >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree -z does not quote funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tA\n"> <LIT_CHARS "\ttabs\t,\" (dq) and spaces\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-tree -z --name-status $t0 $t1 >diff-tree.z &&\n"> <LIT_CHARS "\t\"$PERL_PATH\" -pe y/\\\\000/\\\\012/ <diff-tree.z >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree --find-copies-harder quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tCNUM\tno-funny\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-tree -C --find-copies-harder --name-status $t0 $t1 >out &&\n"> <LIT_CHARS "\tsed -e \"s/^C[0-9]*/CNUM/\" <out >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: remove unfunny index entry">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --force-remove \"$p0\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree -M quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tRNUM\tno-funny\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -M --name-status $t0 >out &&\n"> <LIT_CHARS "\tsed -e \"s/^R[0-9]*/RNUM/\" <out >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-index -M -p quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tdiff --git a/no-funny \"b/tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tsimilarity index NUM%\n"> <LIT_CHARS "\trename from no-funny\n"> <LIT_CHARS "\trename to \"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -M -p $t0 >diff &&\n"> <LIT_CHARS "\tsed -e \"s/index [0-9]*%/index NUM%/\" <diff >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: mode change">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tchmod +x \"$p1\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-index -M -p with mode change quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\tdiff --git a/no-funny \"b/tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\told mode 100644\n"> <LIT_CHARS "\tnew mode 100755\n"> <LIT_CHARS "\tsimilarity index NUM%\n"> <LIT_CHARS "\trename from no-funny\n"> <LIT_CHARS "\trename to \"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -M -p $t0 >diff &&\n"> <LIT_CHARS "\tsed -e \"s/index [0-9]*%/index NUM%/\" <diff >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diffstat for rename quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t \"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\t 1 file changed, 0 insertions(+), 0 deletions(-)\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -M -p $t0 >diff &&\n"> <LIT_CHARS "\tgit apply --stat <diff >diffstat &&\n"> <LIT_CHARS "\tsed -e \"s/|.*//\" -e \"s/ *\\$//\" <diffstat >current &&\n"> <LIT_CHARS "\ttest_i18ncmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "numstat for rename quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t0\t0\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -M -p $t0 >diff &&\n"> <LIT_CHARS "\tgit apply --numstat <diff >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "numstat without -M quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t0\t3\tno-funny\n"> <LIT_CHARS "\t3\t0\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -p $t0 >diff &&\n"> <LIT_CHARS "\tgit apply --numstat <diff >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "numstat for non-git rename diff quotes funny filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t0\t3\tno-funny\n"> <LIT_CHARS "\t3\t0\t\"tabs\\t,\\\" (dq) and spaces\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit diff-index -p $t0 >git-diff &&\n"> <LIT_CHARS "\tsed -ne \"/^[-+@]/p\" <git-diff >diff &&\n"> <LIT_CHARS "\tgit apply --numstat <diff >current &&\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)