(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test prune and reflog expiration">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef check_have []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('gaah', {[SQ ]})])
      (AndOr OP_AND_IF
        (For N [{[DQ [VarSub @]]}])
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS eval]} {[DQ [LIT_CHARS "o="][\ LIT_ESCAPED_CHAR "\\$"][VarSub N]]})
            (AndOr OP_OR_IF
              (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS -t]} {[VarSub o]})
              (List
                (Com {[LIT_CHARS echo]} {[LIT_CHARS Gaah]} {[VarSub N]})
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('gaah', {[VarSub N]})])
                (Com {[LIT_CHARS break]})
              )
            )
          )
        )
        (Com {[LIT_CHARS test]} {[LIT_CHARS -z]} {[DQ [VarSub gaah]]})
      )
    )
  )
  (FunctionDef check_fsck []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('output', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS fsck]} {[LIT_CHARS --full]})]})])
      (Case to_match={[DQ [VarSub 1]]}, pat_word_list=[[{[SQ ]}], [{[LIT_OTHER "*"]}]]
        (Com {[LIT_CHARS test]} {[LIT_CHARS -z]} {[DQ [VarSub output]]})
        (Pipeline
          (Com {[LIT_CHARS echo]} {[DQ [VarSub output]]})
          (Com {[LIT_CHARS grep]} {[DQ [VarSub 1]]})
        )
      )
    )
  )
  (FunctionDef corrupt []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('aa', {[VarSub 1 transform_ops=[VS_UNARY_PERCENT {[LIT_CHARS "??????????????????????????????????????"]}]]}), ('zz', {[VarSub 1 transform_ops=[VS_UNARY_POUND {[LIT_CHARS "??"]}]]})])
      (Com {[LIT_CHARS mv]} {[LIT_CHARS .git/objects/] [VarSub aa] [LIT_CHARS /] [VarSub zz]} {[LIT_CHARS .git/] [VarSub aa] [VarSub zz]})
    )
  )
  (FunctionDef recover []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('aa', {[VarSub 1 transform_ops=[VS_UNARY_PERCENT {[LIT_CHARS "??????????????????????????????????????"]}]]}), ('zz', {[VarSub 1 transform_ops=[VS_UNARY_POUND {[LIT_CHARS "??"]}]]})])
      (Com {[LIT_CHARS mkdir]} {[LIT_CHARS -p]} {[LIT_CHARS .git/objects/] [VarSub aa]})
      (Com {[LIT_CHARS mv]} {[LIT_CHARS .git/] [VarSub aa] [VarSub zz]} {[LIT_CHARS .git/objects/] [VarSub aa] [LIT_CHARS /] [VarSub zz]})
    )
  )
  (FunctionDef check_dont_have []
    (List
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('gaah', {[SQ ]})])
        (For N [{[DQ [VarSub @]]}])
          (List
            (Com {[LIT_CHARS eval]} {[DQ [LIT_CHARS "o="][\ LIT_ESCAPED_CHAR "\\$"][VarSub N]]})
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS -t]} {[VarSub o]})
              (List
                (Com {[LIT_CHARS echo]} {[LIT_CHARS Gaah]} {[VarSub N]})
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('gaah', {[VarSub N]})])
                (Com {[LIT_CHARS break]})
              )
            )
          )
        )
      )
      (Com {[LIT_CHARS test]} {[LIT_CHARS -z]} {[DQ [VarSub gaah]]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p A/B &&\n"> <LIT_CHARS "\techo rat >C &&\n"> <LIT_CHARS "\techo ox >A/D &&\n"> <LIT_CHARS "\techo tiger >A/B/E &&\n"> <LIT_CHARS "\tgit add . &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git commit -m rabbit &&\n"> <LIT_CHARS "\tH=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tA=$(git rev-parse --verify HEAD:A) &&\n"> <LIT_CHARS "\tB=$(git rev-parse --verify HEAD:A/B) &&\n"> <LIT_CHARS "\tC=$(git rev-parse --verify HEAD:C) &&\n"> <LIT_CHARS "\tD=$(git rev-parse --verify HEAD:A/D) &&\n"> <LIT_CHARS "\tE=$(git rev-parse --verify HEAD:A/B/E) &&\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_chmod +x C &&\n"> <LIT_CHARS "\tgit add C &&\n"> <LIT_CHARS "\ttest_tick && git commit -m dragon &&\n"> <LIT_CHARS "\tL=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -f C A/B/E &&\n"> <LIT_CHARS "\techo snake >F &&\n"> <LIT_CHARS "\techo horse >A/G &&\n"> <LIT_CHARS "\tgit add F A/G &&\n"> <LIT_CHARS "\ttest_tick && git commit -a -m sheep &&\n"> <LIT_CHARS "\tF=$(git rev-parse --verify HEAD:F) &&\n"> <LIT_CHARS "\tG=$(git rev-parse --verify HEAD:A/G) &&\n"> <LIT_CHARS "\tI=$(git rev-parse --verify HEAD:A) &&\n"> <LIT_CHARS "\tJ=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -f A/G &&\n"> <LIT_CHARS "\ttest_tick && git commit -a -m monkey &&\n"> <LIT_CHARS "\tK=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_have A B C D E F G H I J K L &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit prune &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_have A B C D E F G H I J K L &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 4 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS rewind]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git reset --hard HEAD~2 &&\n"> <LIT_CHARS "\ttest -f C &&\n"> <LIT_CHARS "\ttest -f A/B/E &&\n"> <LIT_CHARS "\t! test -f F &&\n"> <LIT_CHARS "\t! test -f A/G &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_have A B C D E F G H I J K L &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit prune &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_have A B C D E F G H I J K L &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 5 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corrupt and check">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcorrupt $F &&\n"> <LIT_CHARS "\tcheck_fsck \"missing blob $F\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reflog expire --dry-run should not touch reflog">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog expire --dry-run \\\n"> <LIT_CHARS "\t\t--expire=$(($test_tick - 10000)) \\\n"> <LIT_CHARS "\t\t--expire-unreachable=$(($test_tick - 10000)) \\\n"> <LIT_CHARS "\t\t--stale-fix \\\n"> <LIT_CHARS "\t\t--all &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 5 output &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_fsck \"missing blob $F\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reflog expire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog expire --verbose \\\n"> <LIT_CHARS "\t\t--expire=$(($test_tick - 10000)) \\\n"> <LIT_CHARS "\t\t--expire-unreachable=$(($test_tick - 10000)) \\\n"> <LIT_CHARS "\t\t--stale-fix \\\n"> <LIT_CHARS "\t\t--all &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 2 output &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_fsck \"dangling commit $K\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune and fsck">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit prune &&\n"> <LIT_CHARS "\tcheck_fsck &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_have A B C D E H L &&\n"> <LIT_CHARS "\tcheck_dont_have F G I J K\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "recover and check">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trecover $F &&\n"> <LIT_CHARS "\tcheck_fsck \"dangling blob $F\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS delete>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo 1 > C &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m rat C &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo 2 > C &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m ox C &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo 3 > C &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m tiger C &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tHEAD_entry_count=$(git reflog | wc -l) &&\n"> <LIT_CHARS "\tmaster_entry_count=$(git reflog show master | wc -l) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest $HEAD_entry_count = 5 &&\n"> <LIT_CHARS "\ttest $master_entry_count = 5 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog delete master@{1} &&\n"> <LIT_CHARS "\tgit reflog show master > output &&\n"> <LIT_CHARS "\ttest $(($master_entry_count - 1)) = $(wc -l < output) &&\n"> <LIT_CHARS "\ttest $HEAD_entry_count = $(git reflog | wc -l) &&\n"> <LIT_CHARS "\t! grep ox < output &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmaster_entry_count=$(wc -l < output) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog delete HEAD@{1} &&\n"> <LIT_CHARS "\ttest $(($HEAD_entry_count -1)) = $(git reflog | wc -l) &&\n"> <LIT_CHARS "\ttest $master_entry_count = $(git reflog show master | wc -l) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tHEAD_entry_count=$(git reflog | wc -l) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog delete master@{07.04.2005.15:15:00.-0700} &&\n"> <LIT_CHARS "\tgit reflog show master > output &&\n"> <LIT_CHARS "\ttest $(($master_entry_count - 1)) = $(wc -l < output) &&\n"> <LIT_CHARS "\t! grep dragon < output\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS rewind2>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git reset --hard HEAD~2 &&\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 4 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--expire=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog expire --verbose \\\n"> <LIT_CHARS "\t\t--expire=never \\\n"> <LIT_CHARS "\t\t--expire-unreachable=never \\\n"> <LIT_CHARS "\t\t--all &&\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 4 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc.reflogexpire=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.reflogexpire never &&\n"> <LIT_CHARS "\tgit config gc.reflogexpireunreachable never &&\n"> <LIT_CHARS "\tgit reflog expire --verbose --all &&\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 4 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc.reflogexpire=false">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.reflogexpire false &&\n"> <LIT_CHARS "\tgit config gc.reflogexpireunreachable false &&\n"> <LIT_CHARS "\tgit reflog expire --verbose --all &&\n"> <LIT_CHARS "\tgit reflog refs/heads/master >output &&\n"> <LIT_CHARS "\ttest_line_count = 4 output &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset gc.reflogexpire &&\n"> <LIT_CHARS "\tgit config --unset gc.reflogexpireunreachable\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "checkout should not delete log for packed ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest $(git reflog master | wc -l) = 4 &&\n"> <LIT_CHARS "\tgit branch foo &&\n"> <LIT_CHARS "\tgit pack-refs --all &&\n"> <LIT_CHARS "\tgit checkout foo &&\n"> <LIT_CHARS "\ttest $(git reflog master | wc -l) = 4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stale dirs do not cause d/f conflicts (reflogs on)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git branch -d one || git branch -d one/two\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit branch one/two master &&\n"> <LIT_CHARS "\techo \"one/two@{0} branch: Created from master\" >expect &&\n"> <LIT_CHARS "\tgit log -g --format=\"%gd %gs\" one/two >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\tgit branch -d one/two &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# now logs/refs/heads/one is a stale directory, but\n"> <LIT_CHARS "\t# we should move it out of the way to create \"one\" reflog\n"> <LIT_CHARS "\tgit branch one master &&\n"> <LIT_CHARS "\techo \"one@{0} branch: Created from master\" >expect &&\n"> <LIT_CHARS "\tgit log -g --format=\"%gd %gs\" one >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stale dirs do not cause d/f conflicts (reflogs off)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git branch -d one || git branch -d one/two\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit branch one/two master &&\n"> <LIT_CHARS "\techo \"one/two@{0} branch: Created from master\" >expect &&\n"> <LIT_CHARS "\tgit log -g --format=\"%gd %gs\" one/two >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\tgit branch -d one/two &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# same as before, but we only create a reflog for \"one\" if\n"> <LIT_CHARS "\t# it already exists, which it does not\n"> <LIT_CHARS "\tgit -c core.logallrefupdates=false branch one master &&\n"> <LIT_CHARS "\t: >expect &&\n"> <LIT_CHARS "\tgit log -g --format=\"%gd %gs\" one >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "parsing reverse reflogs at BUFSIZ boundaries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b reflogskip &&\n"> <LIT_CHARS "\tz38=00000000000000000000000000000000000000 &&\n"> <LIT_CHARS "\tident=\"abc <xyz> 0000000001 +0000\" &&\n"> <LIT_CHARS "\tfor i in $(test_seq 1 75); do\n"> <LIT_CHARS "\t\tprintf \"$z38%02d $z38%02d %s\\t\" $i $(($i+1)) \"$ident\" &&\n"> <LIT_CHARS "\t\tif test $i = 75; then\n"> <LIT_CHARS "\t\t\tfor j in $(test_seq 1 89); do\n"> <LIT_CHARS "\t\t\t\tprintf X\n"> <LIT_CHARS "\t\t\tdone\n"> <LIT_CHARS "\t\telse\n"> <LIT_CHARS "\t\t\tprintf X\n"> <LIT_CHARS "\t\tfi &&\n"> <LIT_CHARS "\t\tprintf \"\\n\"\n"> <LIT_CHARS "\tdone >.git/logs/refs/heads/reflogskip &&\n"> <LIT_CHARS "\tgit rev-parse reflogskip@{73} >actual &&\n"> <LIT_CHARS "\techo ${z38}03 >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no segfaults for reflog containing non-commit sha1s">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-ref --create-reflog -m \"Creating ref\" \\\n"> <LIT_CHARS "\t\trefs/tests/tree-in-reflog HEAD &&\n"> <LIT_CHARS "\tgit update-ref -m \"Forcing tree\" refs/tests/tree-in-reflog HEAD^{tree} &&\n"> <LIT_CHARS "\tgit update-ref -m \"Restoring to commit\" refs/tests/tree-in-reflog HEAD &&\n"> <LIT_CHARS "\tgit reflog refs/tests/tree-in-reflog\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "reflog with non-commit entries displays all entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reflog refs/tests/tree-in-reflog >actual &&\n"> <LIT_CHARS "\ttest_line_count = 3 actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reflog expire operates on symref not referrent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit branch -l the_symref &&\n"> <LIT_CHARS "\tgit branch -l referrent &&\n"> <LIT_CHARS "\tgit update-ref referrent HEAD &&\n"> <LIT_CHARS "\tgit symbolic-ref refs/heads/the_symref refs/heads/referrent &&\n"> <LIT_CHARS "\ttest_when_finished \"rm -f .git/refs/heads/referrent.lock\" &&\n"> <LIT_CHARS "\ttouch .git/refs/heads/referrent.lock &&\n"> <LIT_CHARS "\tgit reflog expire --expire=all the_symref\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "continue walking past root commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init orphanage &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd orphanage &&\n"> <LIT_CHARS "\t\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t\tHEAD@{0} commit (initial): orphan2-1\n"> <LIT_CHARS "\t\tHEAD@{1} commit: orphan1-2\n"> <LIT_CHARS "\t\tHEAD@{2} commit (initial): orphan1-1\n"> <LIT_CHARS "\t\tHEAD@{3} commit (initial): initial\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\ttest_commit initial &&\n"> <LIT_CHARS "\t\tgit checkout --orphan orphan1 &&\n"> <LIT_CHARS "\t\ttest_commit orphan1-1 &&\n"> <LIT_CHARS "\t\ttest_commit orphan1-2 &&\n"> <LIT_CHARS "\t\tgit checkout --orphan orphan2 &&\n"> <LIT_CHARS "\t\ttest_commit orphan2-1 &&\n"> <LIT_CHARS "\t\tgit log -g --format=\"%gd %gs\" >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)