(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git p4 filetype tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-p4.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "start p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tstart_p4d\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "p4 client newlines, unix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:unix/\" | p4 client -i &&\n"> <LIT_CHARS "\t\tprintf \"unix\\ncrlf\\n\" >f-unix &&\n"> <LIT_CHARS "\t\tprintf \"unix\\r\\ncrlf\\r\\n\" >f-unix-as-crlf &&\n"> <LIT_CHARS "\t\tp4 add -t text f-unix &&\n"> <LIT_CHARS "\t\tp4 submit -d f-unix &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# LineEnd: unix; should be no change after sync\n"> <LIT_CHARS "\t\tcp f-unix f-unix-orig &&\n"> <LIT_CHARS "\t\tp4 sync -f &&\n"> <LIT_CHARS "\t\ttest_cmp f-unix-orig f-unix &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# make sure stored in repo as unix newlines\n"> <LIT_CHARS "\t\t# use sed to eat python-appended newline\n"> <LIT_CHARS "\t\tp4 -G print //depot/f-unix | marshal_dump data 2 |\\\n"> <LIT_CHARS "\t\t    sed \\$d >f-unix-p4-print &&\n"> <LIT_CHARS "\t\ttest_cmp f-unix-orig f-unix-p4-print &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# switch to win, make sure lf -> crlf\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:win/\" | p4 client -i &&\n"> <LIT_CHARS "\t\tp4 sync -f &&\n"> <LIT_CHARS "\t\ttest_cmp f-unix-as-crlf f-unix\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "p4 client newlines, win">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:win/\" | p4 client -i &&\n"> <LIT_CHARS "\t\tprintf \"win\\r\\ncrlf\\r\\n\" >f-win &&\n"> <LIT_CHARS "\t\tprintf \"win\\ncrlf\\n\" >f-win-as-lf &&\n"> <LIT_CHARS "\t\tp4 add -t text f-win &&\n"> <LIT_CHARS "\t\tp4 submit -d f-win &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# LineEnd: win; should be no change after sync\n"> <LIT_CHARS "\t\tcp f-win f-win-orig &&\n"> <LIT_CHARS "\t\tp4 sync -f &&\n"> <LIT_CHARS "\t\ttest_cmp f-win-orig f-win &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# make sure stored in repo as unix newlines\n"> <LIT_CHARS "\t\t# use sed to eat python-appened newline\n"> <LIT_CHARS "\t\tp4 -G print //depot/f-win | marshal_dump data 2 |\\\n"> <LIT_CHARS "\t\t    sed \\$d >f-win-p4-print &&\n"> <LIT_CHARS "\t\ttest_cmp f-win-as-lf f-win-p4-print &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# switch to unix, make sure lf -> crlf\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:unix/\" | p4 client -i &&\n"> <LIT_CHARS "\t\tp4 sync -f &&\n"> <LIT_CHARS "\t\ttest_cmp f-win-as-lf f-win\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ensure blobs store only lf newlines">]} {[SQ <LIT_CHARS "\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 p4 sync //depot@all &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# verify the files in .git are stored only with newlines\n"> <LIT_CHARS "\t\to=$(git ls-tree p4/master -- f-unix | cut -f1 | cut -d\\  -f3) &&\n"> <LIT_CHARS "\t\tgit cat-file blob $o >f-unix-blob &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-unix-orig f-unix-blob &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\to=$(git ls-tree p4/master -- f-win | cut -f1 | cut -d\\  -f3) &&\n"> <LIT_CHARS "\t\tgit cat-file blob $o >f-win-blob &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-win-as-lf f-win-blob &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\trm f-unix-blob f-win-blob\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitattributes setting eol=lf produces lf newlines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# checkout the files and make sure core.eol works as planned\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\techo \"* eol=lf\" >.gitattributes &&\n"> <LIT_CHARS "\t\tgit p4 sync //depot@all &&\n"> <LIT_CHARS "\t\tgit checkout -b master p4/master &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-unix-orig f-unix &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-win-as-lf f-win\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gitattributes setting eol=crlf produces crlf newlines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# checkout the files and make sure core.eol works as planned\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\techo \"* eol=crlf\" >.gitattributes &&\n"> <LIT_CHARS "\t\tgit p4 sync //depot@all &&\n"> <LIT_CHARS "\t\tgit checkout -b master p4/master &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-unix-as-crlf f-unix &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli\"/f-win-orig f-win\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "crlf cleanup">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\trm f-unix-orig f-unix-as-crlf &&\n"> <LIT_CHARS "\t\trm f-win-orig f-win-as-lf &&\n"> <LIT_CHARS "\t\tp4 client -o | sed \"/LineEnd/s/:.*/:unix/\" | p4 client -i &&\n"> <LIT_CHARS "\t\tp4 sync -f\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "utf-16 file create">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# p4 saves this verbatim\n"> <LIT_CHARS "\t\tprintf \"three\\nline\\ntext\\n\" >f-ascii &&\n"> <LIT_CHARS "\t\tp4 add -t text f-ascii &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# p4 adds \\377\\376 header\n"> <LIT_CHARS "\t\tcp f-ascii f-ascii-as-utf16 &&\n"> <LIT_CHARS "\t\tp4 add -t utf16 f-ascii-as-utf16 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# p4 saves this exactly as iconv produced it\n"> <LIT_CHARS "\t\tprintf \"three\\nline\\ntext\\n\" | iconv -f ascii -t utf-16 >f-utf16 &&\n"> <LIT_CHARS "\t\tp4 add -t utf16 f-utf16 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# this also is unchanged\n"> <LIT_CHARS "\t\tcp f-utf16 f-utf16-as-text &&\n"> <LIT_CHARS "\t\tp4 add -t text f-utf16-as-text &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tp4 submit -d \"f files\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# force update of client files\n"> <LIT_CHARS "\t\tp4 sync -f\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "utf-16 file test">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/f-ascii\" f-ascii &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/f-ascii-as-utf16\" f-ascii-as-utf16 &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/f-utf16\" f-utf16 &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/f-utf16-as-text\" f-utf16-as-text\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "keyword file create">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tprintf \"id\\n\\$Id\\$\\n\\$Author\\$\\ntext\\n\" >k-text-k &&\n"> <LIT_CHARS "\t\tp4 add -t text+k k-text-k &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tcp k-text-k k-text-ko &&\n"> <LIT_CHARS "\t\tp4 add -t text+ko k-text-ko &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tcat k-text-k | iconv -f ascii -t utf-16 >k-utf16-k &&\n"> <LIT_CHARS "\t\tp4 add -t utf16+k k-utf16-k &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tcp k-utf16-k k-utf16-ko &&\n"> <LIT_CHARS "\t\tp4 add -t utf16+ko k-utf16-ko &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tp4 submit -d \"k files\" &&\n"> <LIT_CHARS "\t\tp4 sync -f\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef build_smush []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS k_smush.py]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "import re, sys\n"] [LIT_CHARS "sys.stdout.write(re.sub(r'(?i)\\$(Id|Header|Author|Date|DateTime|Change|File|Revision):[^$]*\\$', r'$\\1$', sys.stdin.read()))\n"]} <REDIR_DLESSDASH "<<-"> 0),
        >
      )
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS ko_smush.py]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "import re, sys\n"] [LIT_CHARS "sys.stdout.write(re.sub(r'(?i)\\$(Id|Header):[^$]*\\$', r'$\\1$', sys.stdin.read()))\n"]} <REDIR_DLESSDASH "<<-"> 0),
        >
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "keyword file test">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbuild_smush &&\n"> <LIT_CHARS "\ttest_when_finished rm -f k_smush.py ko_smush.py &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# text, ensure unexpanded\n"> <LIT_CHARS "\t\t\"$PYTHON_PATH\" \"$TRASH_DIRECTORY/k_smush.py\" <\"$cli/k-text-k\" >cli-k-text-k-smush &&\n"> <LIT_CHARS "\t\ttest_cmp cli-k-text-k-smush k-text-k &&\n"> <LIT_CHARS "\t\t\"$PYTHON_PATH\" \"$TRASH_DIRECTORY/ko_smush.py\" <\"$cli/k-text-ko\" >cli-k-text-ko-smush &&\n"> <LIT_CHARS "\t\ttest_cmp cli-k-text-ko-smush k-text-ko &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# utf16, even though p4 expands keywords, git p4 does not\n"> <LIT_CHARS "\t\t# try to undo that\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/k-utf16-k\" k-utf16-k &&\n"> <LIT_CHARS "\t\ttest_cmp \"$cli/k-utf16-ko\" k-utf16-ko\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef build_gendouble []
    (Com {[LIT_CHARS cat]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS gendouble.py]} <REDIR_GREAT ">"> 1),
      (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "import sys\n"] [LIT_CHARS "import struct\n"] [LIT_CHARS "\n"] [LIT_CHARS "s = struct.pack(b\">LL18s\",\n"] [LIT_CHARS "0x00051607,  # AppleDouble\n"] [LIT_CHARS "0x00020000,  # version 2\n"] [LIT_CHARS "b\"\"          # pad to 26 bytes\n"] [LIT_CHARS ")\n"] [LIT_CHARS "getattr(sys.stdout, 'buffer', sys.stdout).write(s)\n"]} <REDIR_DLESSDASH "<<-"> 0),
      >
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ignore apple">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished rm -f gendouble.py &&\n"> <LIT_CHARS "\tbuild_gendouble &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\ttest-genrandom apple 1024 >double.png &&\n"> <LIT_CHARS "\t\t\"$PYTHON_PATH\" \"$TRASH_DIRECTORY/gendouble.py\" >%double.png &&\n"> <LIT_CHARS "\t\tp4 add -t apple double.png &&\n"> <LIT_CHARS "\t\tp4 submit -d appledouble\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest ! -f double.png\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS SYMLINKS]} {[SQ <LIT_CHARS "create p4 symlink">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcd \"$cli\" &&\n"> <LIT_CHARS "\tln -s symlink-target symlink &&\n"> <LIT_CHARS "\tp4 add symlink &&\n"> <LIT_CHARS "\tp4 submit -d \"add symlink\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS SYMLINKS]} {[SQ <LIT_CHARS "ensure p4 symlink parsed correctly">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest -L symlink &&\n"> <LIT_CHARS "\t\ttest $(readlink symlink) = symlink-target\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS SYMLINKS]} {[SQ <LIT_CHARS "empty symlink target">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# first create the file as a file\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\t>empty-symlink &&\n"> <LIT_CHARS "\t\tp4 add empty-symlink &&\n"> <LIT_CHARS "\t\tp4 submit -d \"add empty-symlink as a file\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# now change it to be a symlink to \"target1\"\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 edit empty-symlink &&\n"> <LIT_CHARS "\t\tp4 reopen -t symlink empty-symlink &&\n"> <LIT_CHARS "\t\trm empty-symlink &&\n"> <LIT_CHARS "\t\tln -s target1 empty-symlink &&\n"> <LIT_CHARS "\t\tp4 add empty-symlink &&\n"> <LIT_CHARS "\t\tp4 submit -d \"make empty-symlink point to target1\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# Hack the p4 depot to make the symlink point to nothing;\n"> <LIT_CHARS "\t\t# this should not happen in reality, but shows up\n"> <LIT_CHARS "\t\t# in p4 repos in the wild.\n"> <LIT_CHARS "\t\t#\n"> <LIT_CHARS "\t\t# The sed expression changes this:\n"> <LIT_CHARS "\t\t#     @@\n"> <LIT_CHARS "\t\t#     text\n"> <LIT_CHARS "\t\t#     @target1\n"> <LIT_CHARS "\t\t#     @\n"> <LIT_CHARS "\t\t# to this:\n"> <LIT_CHARS "\t\t#     @@\n"> <LIT_CHARS "\t\t#     text\n"> <LIT_CHARS "\t\t#     @@\n"> <LIT_CHARS "\t\t#\n"> <LIT_CHARS "\t\tcd \"$db/depot\" &&\n"> <LIT_CHARS "\t\tsed \"/@target1/{; s/target1/@/; n; d; }\" \\\n"> <LIT_CHARS "\t\t    empty-symlink,v >empty-symlink,v.tmp &&\n"> <LIT_CHARS "\t\tmv empty-symlink,v.tmp empty-symlink,v\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\t# Make sure symlink really is empty.  Asking\n"> <LIT_CHARS "\t\t# p4 to sync here will make it generate errors.\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 print -q //depot/empty-symlink#2 >out &&\n"> <LIT_CHARS "\t\ttest ! -s out\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# make sure git p4 handles it without error\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# fix the symlink, make it point to \"target2\"\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tp4 open empty-symlink &&\n"> <LIT_CHARS "\t\trm empty-symlink &&\n"> <LIT_CHARS "\t\tln -s target2 empty-symlink &&\n"> <LIT_CHARS "\t\tp4 submit -d \"make empty-symlink point to target2\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest $(readlink empty-symlink) = target2\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]})
)