(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 "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 "import array\n"] [LIT_CHARS "\n"] [LIT_CHARS "s = array.array(\"c\", '\\0' * 26)\n"] [LIT_CHARS "struct.pack_into(\">L\", s,  0, 0x00051607)  # AppleDouble\n"] [LIT_CHARS "struct.pack_into(\">L\", s,  4, 0x00020000)  # version 2\n"] [LIT_CHARS "s.tofile(sys.stdout)\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]} {[SQ <LIT_CHARS "kill p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tkill_p4d\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)