(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test parsing of svndiff0 files\n"> <LIT_CHARS "\n"> <LIT_CHARS "Using the \"test-svn-fe -d\" helper, check that svn-fe correctly\n"> <LIT_CHARS "interprets deltas using various facilities (some from the spec,\n"> <LIT_CHARS "some only learned from practice).\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com 
    <
    (FilenameRedirectNode filename={[LIT_CHARS empty]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS printf]} {[LIT_CHARS foo]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS preimage]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject empty delta">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage empty 0\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "delta can empty file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ\" | q_to_nul >clear.delta &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.delta 4 >actual &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject svndiff2">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVN\\002\" >bad.filetype &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage bad.filetype 4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "one-window empty delta">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \"QQQQQ\" | q_to_nul >clear.onewindow &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.onewindow 9 >actual &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject incomplete window header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \"QQQQQ\" | q_to_nul >clear.onewindow &&\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \"QQ\" | q_to_nul >clear.partialwindow &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.onewindow 6 &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.partialwindow 6\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject declared delta longer than actual delta">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \"QQQQQ\" | q_to_nul >clear.onewindow &&\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \"QQ\" | q_to_nul >clear.partialwindow &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.onewindow 14 &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.partialwindow 9\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "two-window empty delta">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s%s\" \"QQQQQ\" \"QQQQQ\" | q_to_nul >clear.twowindow &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.twowindow 14 >actual &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.twowindow 13 &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "noisy zeroes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s\" \\\n"> <LIT_CHARS "\t\t\"RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRQQQQQ\" |\n"> <LIT_CHARS "\t\ttr R \"\\200\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.noisy &&\n"> <LIT_CHARS "\tlen=$(wc -c <clear.noisy) &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.noisy $len &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject variable-length int in magic">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNRQ\" | tr R \"\\200\" | q_to_nul >clear.badmagic &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.badmagic 5\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject truncated integer">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%s%s\" \"QQQQQ\" \"QQQQRRQ\" |\n"> <LIT_CHARS "\t\ttr R \"\\200\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.fullint &&\n"> <LIT_CHARS "\tprintf \"SVNQ%s%s\" \"QQQQQ\" \"QQQQRR\" |\n"> <LIT_CHARS "\t\ttr RT \"\\201\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.partialint &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.fullint 15 &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.fullint 16 &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.partialint 15\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "nonempty (but unused) preimage view">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b\" \"Q\\003QQQ\" | q_to_nul >clear.readpreimage &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.readpreimage 9 >actual &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preimage view: right endpoint cannot backtrack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"Q\\003QQQ\" \"Q\\002QQQ\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.backtrack &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.backtrack 14\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preimage view: left endpoint can advance">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"Q\\003QQQ\" \"\\001\\002QQQ\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.preshrink &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"Q\\003QQQ\" \"\\001\\001QQQ\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.shrinkbacktrack &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.preshrink 14 >actual &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.shrinkbacktrack 14 &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preimage view: offsets compared by value">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"\\001\\001QQQ\" \"\\0200Q\\003QQQ\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.noisybacktrack &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"\\001\\001QQQ\" \"\\0200\\001\\002QQQ\" |\n"> <LIT_CHARS "\t\tq_to_nul >clear.noisyadvance &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.noisybacktrack 15 &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage clear.noisyadvance 15 &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preimage view: reject truncated preimage">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b\" \"\\010QQQQ\" | q_to_nul >clear.lateemptyread &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b\" \"\\010\\001QQQ\" | q_to_nul >clear.latenonemptyread &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b\" \"\\001\\010QQQ\" | q_to_nul >clear.longread &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.lateemptyread 9 &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.latenonemptyread 9 &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage clear.longread 9\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forbid unconsumed inline data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%s%b%s\" \"QQQQ\\003\" \"bar\" \"QQQQ\\001\" \"x\" |\n"> <LIT_CHARS "\t\tq_to_nul >inline.clear &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage inline.clear 18 >actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject truncated inline data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%s\" \"QQQQ\\003\" \"b\" | q_to_nul >inline.trunc &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage inline.trunc 10\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reject truncated inline data (after instruction section)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"QQ\\001\\001\\003\" \"\\0201\" \"b\" | q_to_nul >insn.trunc &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage insn.trunc 11\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS copyfrom_data>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo hi >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%b\" \"QQ\\003\\001\\003\" \"\\0203\" \"hi\\n\" | q_to_nul >copydat &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copydat 13 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "multiple copyfrom_data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo hi >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%b%b%b\" \"QQ\\003\\002\\003\" \"\\0201\\0202\" \"hi\\n\" \\\n"> <LIT_CHARS "\t\t\"QQQ\\002Q\" \"\\0200Q\" | q_to_nul >copy.multi &&\n"> <LIT_CHARS "\tlen=$(wc -c <copy.multi) &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copy.multi $len >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "incomplete multiple insn">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%b\" \"QQ\\003\\002\\003\" \"\\0203\\0200\" \"hi\\n\" |\n"> <LIT_CHARS "\t\tq_to_nul >copy.partial &&\n"> <LIT_CHARS "\tlen=$(wc -c <copy.partial) &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage copy.partial $len\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "catch attempt to copy missing data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s%b%s\" \"QQ\\002\\002\\001\" \"\\0201\\0201\" \"X\" \\\n"> <LIT_CHARS "\t\t\t\"QQQQ\\002\" \"YZ\" |\n"> <LIT_CHARS "\t\tq_to_nul >copy.incomplete &&\n"> <LIT_CHARS "\tlen=$(wc -c <copy.incomplete) &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage copy.incomplete $len\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "copyfrom target to repeat data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf foofoo >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"QQ\\006\\004\\003\" \"\\0203\\0100\\003Q\" \"foo\" |\n"> <LIT_CHARS "\t\tq_to_nul >copytarget.repeat &&\n"> <LIT_CHARS "\tlen=$(wc -c <copytarget.repeat) &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copytarget.repeat $len >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "copyfrom target out of order">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf foooof >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \\\n"> <LIT_CHARS "\t\t\"QQ\\006\\007\\003\" \"\\0203\\0101\\002\\0101\\001\\0101Q\" \"foo\" |\n"> <LIT_CHARS "\t\tq_to_nul >copytarget.reverse &&\n"> <LIT_CHARS "\tlen=$(wc -c <copytarget.reverse) &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copytarget.reverse $len >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "catch copyfrom future">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"QQ\\004\\004\\003\" \"\\0202\\0101\\002\\0201\" \"XYZ\" |\n"> <LIT_CHARS "\t\tq_to_nul >copytarget.infuture &&\n"> <LIT_CHARS "\tlen=$(wc -c <copytarget.infuture) &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage copytarget.infuture $len\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "copy to sustain">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf XYXYXYXYXYXZ >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"QQ\\014\\004\\003\" \"\\0202\\0111Q\\0201\" \"XYZ\" |\n"> <LIT_CHARS "\t\tq_to_nul >copytarget.sustain &&\n"> <LIT_CHARS "\tlen=$(wc -c <copytarget.sustain) &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copytarget.sustain $len >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "catch copy that overflows">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"QQ\\003\\003\\001\" \"\\0201\\0177Q\" X |\n"> <LIT_CHARS "\t\tq_to_nul >copytarget.overflow &&\n"> <LIT_CHARS "\tlen=$(wc -c <copytarget.overflow) &&\n"> <LIT_CHARS "\ttest_must_fail test-svn-fe -d preimage copytarget.overflow $len\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "copyfrom source">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf foo >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"Q\\003\\003\\002Q\" \"\\003Q\" | q_to_nul >copysource.all &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copysource.all 11 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "copy backwards">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf oof >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b\" \"Q\\003\\003\\006Q\" \"\\001\\002\\001\\001\\001Q\" |\n"> <LIT_CHARS "\t\tq_to_nul >copysource.rev &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copysource.rev 15 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "offsets are relative to window">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf fo >expect &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%b%b\" \"Q\\003\\001\\002Q\" \"\\001Q\" \\\n"> <LIT_CHARS "\t\t\"\\002\\001\\001\\002Q\" \"\\001Q\" |\n"> <LIT_CHARS "\t\tq_to_nul >copysource.two &&\n"> <LIT_CHARS "\ttest-svn-fe -d preimage copysource.two 18 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "example from notes/svndiff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf aaaaccccdddddddd >expect &&\n"> <LIT_CHARS "\tprintf aaaabbbbcccc >source &&\n"> <LIT_CHARS "\tprintf \"SVNQ%b%b%s\" \"Q\\014\\020\\007\\001\" \\\n"> <LIT_CHARS "\t\t\"\\004Q\\004\\010\\0201\\0107\\010\" d |\n"> <LIT_CHARS "\t\tq_to_nul >delta.example &&\n"> <LIT_CHARS "\tlen=$(wc -c <delta.example) &&\n"> <LIT_CHARS "\ttest-svn-fe -d source delta.example $len >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)