(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "applying patch that has broken whitespaces in context">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# file-0 is full of whitespace breakages\n"> <LIT_CHARS "\tfor l in a bb c d eeee f ggg h\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo \"$l \"\n"> <LIT_CHARS "\tdone >file-0 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# patch-0 creates a whitespace broken file\n"> <LIT_CHARS "\tcat file-0 >file &&\n"> <LIT_CHARS "\tgit diff >patch-0 &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# file-1 is still full of whitespace breakages,\n"> <LIT_CHARS "\t# but has one line updated, without fixing any\n"> <LIT_CHARS "\t# whitespaces.\n"> <LIT_CHARS "\t# patch-1 records that change.\n"> <LIT_CHARS "\tsed -e \"s/d/D/\" file-0 >file-1 &&\n"> <LIT_CHARS "\tcat file-1 >file &&\n"> <LIT_CHARS "\tgit diff >patch-1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# patch-all is the effect of both patch-0 and patch-1\n"> <LIT_CHARS "\t>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tcat file-1 >file &&\n"> <LIT_CHARS "\tgit diff >patch-all &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# patch-2 is the same as patch-1 but is based\n"> <LIT_CHARS "\t# on a version that already has whitespace fixed,\n"> <LIT_CHARS "\t# and does not introduce whitespace breakages.\n"> <LIT_CHARS "\tsed -e \"s/ \\$//\" patch-1 >patch-2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# If all whitespace breakages are fixed the contents\n"> <LIT_CHARS "\t# should look like file-fixed\n"> <LIT_CHARS "\tsed -e \"s/ \\$//\" file-1 >file-fixed\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS nofix]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Baseline.  Applying without fixing any whitespace\n"> <LIT_CHARS "\t# breakages.\n"> <LIT_CHARS "\tgit apply --whitespace=nowarn patch-0 &&\n"> <LIT_CHARS "\tgit apply --whitespace=nowarn patch-1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# The result should obviously match.\n"> <LIT_CHARS "\ttest_cmp file-1 file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "withfix (forward)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# The first application will munge the context lines\n"> <LIT_CHARS "\t# the second patch depends on.  We should be able to\n"> <LIT_CHARS "\t# adjust and still apply.\n"> <LIT_CHARS "\tgit apply --whitespace=fix patch-0 &&\n"> <LIT_CHARS "\tgit apply --whitespace=fix patch-1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp file-fixed file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "withfix (backward)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Now we have a whitespace breakages on our side.\n"> <LIT_CHARS "\tgit apply --whitespace=nowarn patch-0 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# And somebody sends in a patch based on image\n"> <LIT_CHARS "\t# with whitespace already fixed.\n"> <LIT_CHARS "\tgit apply --whitespace=fix patch-2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# The result should accept the whitespace fixed\n"> <LIT_CHARS "\t# postimage.  But the line with \"h\" is beyond context\n"> <LIT_CHARS "\t# horizon and left unfixed.\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tsed -e /h/d file-fixed >fixed-head &&\n"> <LIT_CHARS "\tsed -e /h/d file >file-head &&\n"> <LIT_CHARS "\ttest_cmp fixed-head file-head &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tsed -n -e /h/p file-fixed >fixed-tail &&\n"> <LIT_CHARS "\tsed -n -e /h/p file >file-tail &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t! test_cmp fixed-tail file-tail\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)