(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 "\ttest_line_count = 4 .git/logs/refs/heads/master\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 "\ttest_line_count = 5 .git/logs/refs/heads/master\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 "\ttest_line_count = 5 .git/logs/refs/heads/master &&\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 "\ttest_line_count = 2 .git/logs/refs/heads/master &&\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 "\ttest_line_count = 4 .git/logs/refs/heads/master\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 "\ttest_line_count = 4 .git/logs/refs/heads/master\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 "\ttest_line_count = 4 .git/logs/refs/heads/master\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 "\ttest_line_count = 4 .git/logs/refs/heads/master &&\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_done]}  )
)