(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test for-each-refs usage of ref-filter APIs">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-gpg.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup some history and refs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\ttest_commit two &&\n"> <LIT_CHARS "\ttest_commit three &&\n"> <LIT_CHARS "\tgit checkout -b side &&\n"> <LIT_CHARS "\ttest_commit four &&\n"> <LIT_CHARS "\tgit tag -m \"An annotated tag\" annotated-tag &&\n"> <LIT_CHARS "\tgit tag -m \"Annonated doubly\" doubly-annotated-tag annotated-tag &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Note that these \"signed\" tags might not actually be signed.\n"> <LIT_CHARS "\t# Tests which care about the distinction should be marked\n"> <LIT_CHARS "\t# with the GPG prereq.\n"> <LIT_CHARS "\tif test_have_prereq GPG\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\tsign=-s\n"> <LIT_CHARS "\telse\n"> <LIT_CHARS "\t\tsign=\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\tgit tag $sign -m \"A signed tag\" signed-tag &&\n"> <LIT_CHARS "\tgit tag $sign -m \"Signed doubly\" doubly-signed-tag signed-tag &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\tgit update-ref refs/odd/spot master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "filtering with --points-at">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefs/heads/master\n"> <LIT_CHARS "\trefs/odd/spot\n"> <LIT_CHARS "\trefs/tags/three\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname)\" --points-at=master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check signed tags with --points-at">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsed -e \"s/Z$//\" >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefs/heads/side Z\n"> <LIT_CHARS "\trefs/tags/annotated-tag four\n"> <LIT_CHARS "\trefs/tags/four Z\n"> <LIT_CHARS "\trefs/tags/signed-tag four\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname) %(*subject)\" --points-at=side >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "filtering with --merged">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefs/heads/master\n"> <LIT_CHARS "\trefs/odd/spot\n"> <LIT_CHARS "\trefs/tags/one\n"> <LIT_CHARS "\trefs/tags/three\n"> <LIT_CHARS "\trefs/tags/two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname)\" --merged=master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "filtering with --no-merged">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefs/heads/side\n"> <LIT_CHARS "\trefs/tags/annotated-tag\n"> <LIT_CHARS "\trefs/tags/doubly-annotated-tag\n"> <LIT_CHARS "\trefs/tags/doubly-signed-tag\n"> <LIT_CHARS "\trefs/tags/four\n"> <LIT_CHARS "\trefs/tags/signed-tag\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname)\" --no-merged=master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "filtering with --contains">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefs/heads/master\n"> <LIT_CHARS "\trefs/heads/side\n"> <LIT_CHARS "\trefs/odd/spot\n"> <LIT_CHARS "\trefs/tags/annotated-tag\n"> <LIT_CHARS "\trefs/tags/doubly-annotated-tag\n"> <LIT_CHARS "\trefs/tags/doubly-signed-tag\n"> <LIT_CHARS "\trefs/tags/four\n"> <LIT_CHARS "\trefs/tags/signed-tag\n"> <LIT_CHARS "\trefs/tags/three\n"> <LIT_CHARS "\trefs/tags/two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname)\" --contains=two >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "%(color) must fail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git for-each-ref --format=\"%(color)%(refname)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "left alignment is default">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\trefname is refs/heads/master  |refs/heads/master\n"> <LIT_CHARS "\trefname is refs/heads/side    |refs/heads/side\n"> <LIT_CHARS "\trefname is refs/odd/spot      |refs/odd/spot\n"> <LIT_CHARS "\trefname is refs/tags/annotated-tag|refs/tags/annotated-tag\n"> <LIT_CHARS "\trefname is refs/tags/doubly-annotated-tag|refs/tags/doubly-annotated-tag\n"> <LIT_CHARS "\trefname is refs/tags/doubly-signed-tag|refs/tags/doubly-signed-tag\n"> <LIT_CHARS "\trefname is refs/tags/four     |refs/tags/four\n"> <LIT_CHARS "\trefname is refs/tags/one      |refs/tags/one\n"> <LIT_CHARS "\trefname is refs/tags/signed-tag|refs/tags/signed-tag\n"> <LIT_CHARS "\trefname is refs/tags/three    |refs/tags/three\n"> <LIT_CHARS "\trefname is refs/tags/two      |refs/tags/two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(align:30)refname is %(refname)%(end)|%(refname)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "middle alignment">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t| refname is refs/heads/master |refs/heads/master\n"> <LIT_CHARS "\t|  refname is refs/heads/side  |refs/heads/side\n"> <LIT_CHARS "\t|   refname is refs/odd/spot   |refs/odd/spot\n"> <LIT_CHARS "\t|refname is refs/tags/annotated-tag|refs/tags/annotated-tag\n"> <LIT_CHARS "\t|refname is refs/tags/doubly-annotated-tag|refs/tags/doubly-annotated-tag\n"> <LIT_CHARS "\t|refname is refs/tags/doubly-signed-tag|refs/tags/doubly-signed-tag\n"> <LIT_CHARS "\t|  refname is refs/tags/four   |refs/tags/four\n"> <LIT_CHARS "\t|   refname is refs/tags/one   |refs/tags/one\n"> <LIT_CHARS "\t|refname is refs/tags/signed-tag|refs/tags/signed-tag\n"> <LIT_CHARS "\t|  refname is refs/tags/three  |refs/tags/three\n"> <LIT_CHARS "\t|   refname is refs/tags/two   |refs/tags/two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"|%(align:middle,30)refname is %(refname)%(end)|%(refname)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "right alignment">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t|  refname is refs/heads/master|refs/heads/master\n"> <LIT_CHARS "\t|    refname is refs/heads/side|refs/heads/side\n"> <LIT_CHARS "\t|      refname is refs/odd/spot|refs/odd/spot\n"> <LIT_CHARS "\t|refname is refs/tags/annotated-tag|refs/tags/annotated-tag\n"> <LIT_CHARS "\t|refname is refs/tags/doubly-annotated-tag|refs/tags/doubly-annotated-tag\n"> <LIT_CHARS "\t|refname is refs/tags/doubly-signed-tag|refs/tags/doubly-signed-tag\n"> <LIT_CHARS "\t|     refname is refs/tags/four|refs/tags/four\n"> <LIT_CHARS "\t|      refname is refs/tags/one|refs/tags/one\n"> <LIT_CHARS "\t|refname is refs/tags/signed-tag|refs/tags/signed-tag\n"> <LIT_CHARS "\t|    refname is refs/tags/three|refs/tags/three\n"> <LIT_CHARS "\t|      refname is refs/tags/two|refs/tags/two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"|%(align:30,right)refname is %(refname)%(end)|%(refname)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "|       refname is refs/heads/master       |refs/heads/master\n"] [LIT_CHARS "|        refname is refs/heads/side        |refs/heads/side\n"] [LIT_CHARS "|         refname is refs/odd/spot         |refs/odd/spot\n"] [LIT_CHARS "|    refname is refs/tags/annotated-tag    |refs/tags/annotated-tag\n"] [LIT_CHARS "|refname is refs/tags/doubly-annotated-tag |refs/tags/doubly-annotated-tag\n"] [LIT_CHARS "|  refname is refs/tags/doubly-signed-tag  |refs/tags/doubly-signed-tag\n"] [LIT_CHARS "|        refname is refs/tags/four         |refs/tags/four\n"] [LIT_CHARS "|         refname is refs/tags/one         |refs/tags/one\n"] [LIT_CHARS "|     refname is refs/tags/signed-tag      |refs/tags/signed-tag\n"] [LIT_CHARS "|        refname is refs/tags/three        |refs/tags/three\n"] [LIT_CHARS "|         refname is refs/tags/two         |refs/tags/two\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (FunctionDef test_align_permutations []
    (While
      (Com {[LIT_CHARS read]} {[LIT_CHARS -r]} {[LIT_CHARS option]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "align:"][VarSub option]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t\tgit for-each-ref --format=\"|%(align:$option)refname is %(refname)%(end)|%(refname)\" >actual &&\n"> <LIT_CHARS "\t\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t\t">]})
    )
  )
  (Com {[LIT_CHARS test_align_permutations]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "middle,42\n"] [LIT_CHARS "42,middle\n"] [LIT_CHARS "position=middle,42\n"] [LIT_CHARS "42,position=middle\n"] [LIT_CHARS "middle,width=42\n"] [LIT_CHARS "width=42,middle\n"] [LIT_CHARS "position=middle,width=42\n"] [LIT_CHARS "width=42,position=middle\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_align_permutations]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "32,width=42,middle\n"] [LIT_CHARS "width=30,42,middle\n"] [LIT_CHARS "width=42,position=right,middle\n"] [LIT_CHARS "42,right,position=middle\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "alignment with format quote">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tcat >expect <<-"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF &&\n"][LIT_CHARS "\t|'      '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'master| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'      '|\n"][LIT_CHARS "\t|'       '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'side| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'       '|\n"][LIT_CHARS "\t|'     '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'odd/spot| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'     '|\n"][LIT_CHARS "\t|'      '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'annotated-tag| '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'       '|\n"][LIT_CHARS "\t|'   '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'doubly-annotated-tag| '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'   '|\n"][LIT_CHARS "\t|'    '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'doubly-signed-tag| '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'     '|\n"][LIT_CHARS "\t|'       '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'four| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'       '|\n"][LIT_CHARS "\t|'       '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'one| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'        '|\n"][LIT_CHARS "\t|'        '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'signed-tag| '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'        '|\n"][LIT_CHARS "\t|'      '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'three| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'       '|\n"][LIT_CHARS "\t|'       '"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'two| A U Thor'"][\ LIT_ESCAPED_CHAR "\\'"][LIT_CHARS "'        '|\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\tgit for-each-ref --shell --format="][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "|%(align:30,middle)'%(refname:short)| %(authorname)'%(end)|"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS " >actual &&\n"][LIT_CHARS "\ttest_cmp expect actual\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "nested alignment with quote formatting">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tcat >expect <<-"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF &&\n"][LIT_CHARS "\t|'         master               '|\n"][LIT_CHARS "\t|'           side               '|\n"][LIT_CHARS "\t|'       odd/spot               '|\n"][LIT_CHARS "\t|'  annotated-tag               '|\n"][LIT_CHARS "\t|'doubly-annotated-tag          '|\n"][LIT_CHARS "\t|'doubly-signed-tag             '|\n"][LIT_CHARS "\t|'           four               '|\n"][LIT_CHARS "\t|'            one               '|\n"][LIT_CHARS "\t|'     signed-tag               '|\n"][LIT_CHARS "\t|'          three               '|\n"][LIT_CHARS "\t|'            two               '|\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\tgit for-each-ref --shell --format='|%(align:30,left)%(align:15,right)%(refname:short)%(end)%(end)|' >actual &&\n"][LIT_CHARS "\ttest_cmp expect actual\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check `%(contents:lines=1)`">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tmaster |three\n"> <LIT_CHARS "\tside |four\n"> <LIT_CHARS "\todd/spot |three\n"> <LIT_CHARS "\tannotated-tag |An annotated tag\n"> <LIT_CHARS "\tdoubly-annotated-tag |Annonated doubly\n"> <LIT_CHARS "\tdoubly-signed-tag |Signed doubly\n"> <LIT_CHARS "\tfour |four\n"> <LIT_CHARS "\tone |one\n"> <LIT_CHARS "\tsigned-tag |A signed tag\n"> <LIT_CHARS "\tthree |three\n"> <LIT_CHARS "\ttwo |two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname:short) |%(contents:lines=1)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check `%(contents:lines=0)`">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tmaster |\n"> <LIT_CHARS "\tside |\n"> <LIT_CHARS "\todd/spot |\n"> <LIT_CHARS "\tannotated-tag |\n"> <LIT_CHARS "\tdoubly-annotated-tag |\n"> <LIT_CHARS "\tdoubly-signed-tag |\n"> <LIT_CHARS "\tfour |\n"> <LIT_CHARS "\tone |\n"> <LIT_CHARS "\tsigned-tag |\n"> <LIT_CHARS "\tthree |\n"> <LIT_CHARS "\ttwo |\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname:short) |%(contents:lines=0)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check `%(contents:lines=99999)`">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tmaster |three\n"> <LIT_CHARS "\tside |four\n"> <LIT_CHARS "\todd/spot |three\n"> <LIT_CHARS "\tannotated-tag |An annotated tag\n"> <LIT_CHARS "\tdoubly-annotated-tag |Annonated doubly\n"> <LIT_CHARS "\tdoubly-signed-tag |Signed doubly\n"> <LIT_CHARS "\tfour |four\n"> <LIT_CHARS "\tone |one\n"> <LIT_CHARS "\tsigned-tag |A signed tag\n"> <LIT_CHARS "\tthree |three\n"> <LIT_CHARS "\ttwo |two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit for-each-ref --format=\"%(refname:short) |%(contents:lines=99999)\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "`%(contents:lines=-1)` should fail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git for-each-ref --format=\"%(refname:short) |%(contents:lines=-1)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup for version sort">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit foo1.3 &&\n"> <LIT_CHARS "\ttest_commit foo1.6 &&\n"> <LIT_CHARS "\ttest_commit foo1.10\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "version sort">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit for-each-ref --sort=version:refname --format=\"%(refname:short)\" refs/tags/ | grep \"foo\" >actual &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tfoo1.3\n"> <LIT_CHARS "\tfoo1.6\n"> <LIT_CHARS "\tfoo1.10\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "version sort (shortened)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit for-each-ref --sort=v:refname --format=\"%(refname:short)\" refs/tags/ | grep \"foo\" >actual &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tfoo1.3\n"> <LIT_CHARS "\tfoo1.6\n"> <LIT_CHARS "\tfoo1.10\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reverse version sort">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit for-each-ref --sort=-version:refname --format=\"%(refname:short)\" refs/tags/ | grep \"foo\" >actual &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tfoo1.10\n"> <LIT_CHARS "\tfoo1.6\n"> <LIT_CHARS "\tfoo1.3\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)