(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test mode change diffs.\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sed_script', {[SQ <LIT_CHARS "s/\\(:100644 100755\\) \\(">] [DQ [VarSub _x40]] [SQ <LIT_CHARS "\\) \\2 /\\1 X X /">]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo frotz >rezrov &&\n"> <LIT_CHARS "\tgit update-index --add rezrov &&\n"> <LIT_CHARS "\ttree=$(git write-tree) &&\n"> <LIT_CHARS "\techo $tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS chmod>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_chmod +x rezrov &&\n"> <LIT_CHARS "\tgit diff-index $tree >current &&\n"> <LIT_CHARS "\tsed -e \"$sed_script\" <current >check &&\n"> <LIT_CHARS "\techo \":100644 100755 X X M\trezrov\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected check\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare binary file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit -m rezrov &&\n"> <LIT_CHARS "\tprintf \"\\00\\01\\02\\03\\04\\05\\06\" >binbin &&\n"> <LIT_CHARS "\tgit add binbin &&\n"> <LIT_CHARS "\tgit commit -m binbin\n">]})
  (Com {[LIT_CHARS test_done]})
)