(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Clone repositories with path case variations">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-p4.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "start p4d with case folding enabled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tstart_p4d -C1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Create a repo with path case variations">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/... //client/...\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir -p Path/to &&\n"> <LIT_CHARS "\t\t>Path/to/File2.txt &&\n"> <LIT_CHARS "\t\tp4 add Path/to/File2.txt &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file2\" &&\n"> <LIT_CHARS "\t\trm -rf Path &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir -p path/TO &&\n"> <LIT_CHARS "\t\t>path/TO/file1.txt &&\n"> <LIT_CHARS "\t\tp4 add path/TO/file1.txt &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file1\" &&\n"> <LIT_CHARS "\t\trm -rf path &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir -p path/to &&\n"> <LIT_CHARS "\t\t>path/to/file3.txt &&\n"> <LIT_CHARS "\t\tp4 add path/to/file3.txt &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file3\" &&\n"> <LIT_CHARS "\t\trm -rf path &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir -p x-outside-spec &&\n"> <LIT_CHARS "\t\t>x-outside-spec/file4.txt &&\n"> <LIT_CHARS "\t\tp4 add x-outside-spec/file4.txt &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file4\" &&\n"> <LIT_CHARS "\t\trm -rf x-outside-spec\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone root">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/... //client/...\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase false &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\t# This method is used instead of \"test -f\" to ensure the case is\n"> <LIT_CHARS "\t\t# checked even if the test is executed on case-insensitive file systems.\n"> <LIT_CHARS "\t\t# All files are there as expected although the path cases look random.\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tPath/to/File2.txt\n"> <LIT_CHARS "\t\tpath/TO/file1.txt\n"> <LIT_CHARS "\t\tpath/to/file3.txt\n"> <LIT_CHARS "\t\tx-outside-spec/file4.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone root (ignorecase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/... //client/...\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase true &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\t# This method is used instead of \"test -f\" to ensure the case is\n"> <LIT_CHARS "\t\t# checked even if the test is executed on case-insensitive file systems.\n"> <LIT_CHARS "\t\t# All files are there as expected although the path cases look random.\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tpath/TO/File2.txt\n"> <LIT_CHARS "\t\tpath/TO/file1.txt\n"> <LIT_CHARS "\t\tpath/TO/file3.txt\n"> <LIT_CHARS "\t\tx-outside-spec/file4.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone root and ignore one file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \\\n"> <LIT_CHARS "\t\t\"//depot/... //client/...\" \\\n"> <LIT_CHARS "\t\t\"-//depot/path/TO/file1.txt //client/path/TO/file1.txt\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase false &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\t# We ignore one file in the client spec and all path cases change from\n"> <LIT_CHARS "\t\t# \"TO\" to \"to\"!\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tPath/to/File2.txt\n"> <LIT_CHARS "\t\tpath/to/file3.txt\n"> <LIT_CHARS "\t\tx-outside-spec/file4.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone root and ignore one file (ignorecase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \\\n"> <LIT_CHARS "\t\t\"//depot/... //client/...\" \\\n"> <LIT_CHARS "\t\t\"-//depot/path/TO/file1.txt //client/path/TO/file1.txt\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase true &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\t# We ignore one file in the client spec and all path cases change from\n"> <LIT_CHARS "\t\t# \"TO\" to \"to\"!\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tPath/to/File2.txt\n"> <LIT_CHARS "\t\tPath/to/file3.txt\n"> <LIT_CHARS "\t\tx-outside-spec/file4.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone path">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/Path/... //client/...\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase false &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tto/File2.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Clone path (ignorecase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/Path/... //client/...\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase true &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tTO/File2.txt\n"> <LIT_CHARS "\t\tTO/file1.txt\n"> <LIT_CHARS "\t\tTO/file3.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Add a new file and clone path with new file (ignorecase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/... //client/...\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tmkdir -p Path/to &&\n"> <LIT_CHARS "\t\t>Path/to/File0.txt &&\n"> <LIT_CHARS "\t\tp4 add Path/to/File0.txt &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Add file\" &&\n"> <LIT_CHARS "\t\trm -rf Path\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tclient_view \"//depot/Path/... //client/...\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init . &&\n"> <LIT_CHARS "\t\tgit config core.ignorecase true &&\n"> <LIT_CHARS "\t\tgit p4 clone --use-client-spec --destination=\"$git\" //depot &&\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tto/File0.txt\n"> <LIT_CHARS "\t\tto/File2.txt\n"> <LIT_CHARS "\t\tto/file1.txt\n"> <LIT_CHARS "\t\tto/file3.txt\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tgit ls-files >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "kill p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tkill_p4d\n">]})
  (Com {[LIT_CHARS test_done]})
)