(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS prune>]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('day', {[ArithSub {A2 AS_OP_STAR {A2 AS_OP_STAR {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 60]}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 60]}}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 24]}}}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('week', {[ArithSub {A2 AS_OP_STAR {A Atom NODE_ARITH_WORD {[VarSub day]}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 7]}}}]})])
  (FunctionDef add_blob []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('before', {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS count-objects]}) (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s/ .*//"]]}) )]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('BLOB', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[LIT_CHARS aleph_0]}) (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -w]} {[LIT_CHARS --stdin]}) )]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('BLOB_FILE', {[LIT_CHARS .git/objects/] [ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub BLOB]}) (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s/^../&"][\ LIT_ESCAPED_CHAR "\\/"][LIT_CHARS /]]}) )]})])
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS test]} {[ArithSub {A2 AS_OP_PLUS {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 1]}} {A Atom NODE_ARITH_WORD {[VarSub before]}}}]} {[LIT_DBRACKET_LIKE "="]} {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS count-objects]}) (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s/ .*//"]]}) )]}            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS test]} {[LIT_CHARS -f]} {[VarSub BLOB_FILE]}              )
              (Com {[LIT_CHARS test-chmtime]} {[LIT_DBRACKET_LIKE "="] [LIT_OTHER "+"] [LIT_CHARS 0]} {[VarSub BLOB_FILE]}              )
            )
          )
        )
      )
    )
  )
  (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 "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m initial &&\n"> <LIT_CHARS "\tgit gc\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune stale packs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\torig_pack=$(echo .git/objects/pack/*.pack) &&\n"> <LIT_CHARS "\t: > .git/objects/tmp_1.pack &&\n"> <LIT_CHARS "\t: > .git/objects/tmp_2.pack &&\n"> <LIT_CHARS "\ttest-chmtime =-86501 .git/objects/tmp_1.pack &&\n"> <LIT_CHARS "\tgit prune --expire 1.day &&\n"> <LIT_CHARS "\ttest -f $orig_pack &&\n"> <LIT_CHARS "\ttest -f .git/objects/tmp_2.pack &&\n"> <LIT_CHARS "\t! test -f .git/objects/tmp_1.pack\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune --expire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\tgit prune --expire=1.hour.ago &&\n"> <LIT_CHARS "\ttest $((1 + $before)) = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\ttest-chmtime =-86500 $BLOB_FILE &&\n"> <LIT_CHARS "\tgit prune --expire 1.day &&\n"> <LIT_CHARS "\ttest $before = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\t! test -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc: implicit prune --expire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\ttest-chmtime =-$((2*$week-30)) $BLOB_FILE &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest $((1 + $before)) = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\ttest-chmtime =-$((2*$week+1)) $BLOB_FILE &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest $before = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\t! test -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc: refuse to start with invalid gc.pruneExpire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.pruneExpire invalid &&\n"> <LIT_CHARS "\ttest_must_fail git gc\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc: start with ok gc.pruneExpire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.pruneExpire 2.days.ago &&\n"> <LIT_CHARS "\tgit gc\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune: prune nonsense parameters">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git prune garbage &&\n"> <LIT_CHARS "\ttest_must_fail git prune --- &&\n"> <LIT_CHARS "\ttest_must_fail git prune --no-such-option\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune: prune unreachable heads">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config core.logAllRefUpdates false &&\n"> <LIT_CHARS "\tmv .git/logs .git/logs.old &&\n"> <LIT_CHARS "\t: > file2 &&\n"> <LIT_CHARS "\tgit add file2 &&\n"> <LIT_CHARS "\tgit commit -m temporary &&\n"> <LIT_CHARS "\ttmp_head=$(git rev-list -1 HEAD) &&\n"> <LIT_CHARS "\tgit reset HEAD^ &&\n"> <LIT_CHARS "\tgit prune &&\n"> <LIT_CHARS "\ttest_must_fail git reset $tmp_head --\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune: do not prune heads listed as an argument">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t: > file2 &&\n"> <LIT_CHARS "\tgit add file2 &&\n"> <LIT_CHARS "\tgit commit -m temporary &&\n"> <LIT_CHARS "\ttmp_head=$(git rev-list -1 HEAD) &&\n"> <LIT_CHARS "\tgit reset HEAD^ &&\n"> <LIT_CHARS "\tgit prune -- $tmp_head &&\n"> <LIT_CHARS "\tgit reset $tmp_head --\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc --no-prune">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\ttest-chmtime =-$((5001*$day)) $BLOB_FILE &&\n"> <LIT_CHARS "\tgit config gc.pruneExpire 2.days.ago &&\n"> <LIT_CHARS "\tgit gc --no-prune &&\n"> <LIT_CHARS "\ttest 1 = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc respects gc.pruneExpire">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.pruneExpire 5002.days.ago &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\tgit config gc.pruneExpire 5000.days.ago &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest ! -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc --prune=<date>">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\ttest-chmtime =-$((5001*$day)) $BLOB_FILE &&\n"> <LIT_CHARS "\tgit gc --prune=5002.days.ago &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\tgit gc --prune=5000.days.ago &&\n"> <LIT_CHARS "\ttest ! -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc --prune=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\tgit gc --prune=never &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\tgit gc --prune=now &&\n"> <LIT_CHARS "\ttest ! -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc respects gc.pruneExpire=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.pruneExpire never &&\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\tgit config gc.pruneExpire now &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\ttest ! -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prune --expire=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\tgit prune --expire=never &&\n"> <LIT_CHARS "\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\tgit prune &&\n"> <LIT_CHARS "\ttest ! -f $BLOB_FILE\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "gc: prune old objects after local clone">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tadd_blob &&\n"> <LIT_CHARS "\ttest-chmtime =-$((2*$week+1)) $BLOB_FILE &&\n"> <LIT_CHARS "\tgit clone --no-hardlinks . aclone &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd aclone &&\n"> <LIT_CHARS "\t\ttest 1 = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\t\ttest -f $BLOB_FILE &&\n"> <LIT_CHARS "\t\tgit gc --prune &&\n"> <LIT_CHARS "\t\ttest 0 = $(git count-objects | sed \"s/ .*//\") &&\n"> <LIT_CHARS "\t\t! test -f $BLOB_FILE\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)