(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description) op: Equal rhs: {(SQ <prune>)} spids: [13] ) ] spids: [13] ) (C {(.)} {(./test-lib.sh)}) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:day) op: Equal rhs: { (ArithSubPart anode: (ArithBinary op_id: Arith_Star left: (ArithBinary op_id: Arith_Star left: (ArithWord w:{(Lit_Digits 60)}) right: (ArithWord w:{(Lit_Digits 60)}) ) right: (ArithWord w:{(Lit_Digits 24)}) ) spids: [24 31] ) } spids: [23] ) ] spids: [23] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:week) op: Equal rhs: { (ArithSubPart anode: (ArithBinary op_id: Arith_Star left: (ArithWord w:{($ VSub_Name '$day')}) right: (ArithWord w:{(Lit_Digits 7)}) ) spids: [34 39] ) } spids: [33] ) ] spids: [33] ) (FuncDef name: add_blob body: (BraceGroup children: [ (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:before) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(git)} {(count-objects)}) (C {(sed)} {(DQ ('s/ .*//'))}) ] negated: False ) ] ) left_token: <Left_CommandSub '$('> spids: [50 62] ) } spids: [49] ) ] spids: [49] ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:BLOB) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(echo)} {(aleph_0)}) (C {(git)} {(hash-object)} {(-w)} {(--stdin)}) ] negated: False ) ] ) left_token: <Left_CommandSub '$('> spids: [68 82] ) } spids: [67] ) ] spids: [67] ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:BLOB_FILE) op: Equal rhs: {(.git/objects/) (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(echo)} {($ VSub_Name '$BLOB')}) (C {(sed)} {(DQ ('s/^../&') (Lit_Other '\\') (//))}) ] negated: False ) ] ) left_token: <Left_CommandSub '$('> spids: [89 103] ) } spids: [87] ) ] spids: [87] ) (AndOr children: [ (C {(verbose)} {(test)} { (ArithSubPart anode: (ArithBinary op_id: Arith_Plus left: (ArithWord w:{(Lit_Digits 1)}) right: (ArithWord w:{($ VSub_Name '$before')}) ) spids: [112 119] ) } {(Lit_Other '=')} { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(git)} {(count-objects)}) (C {(sed)} {(DQ ('s/ .*//'))}) ] negated: False ) ] ) left_token: <Left_CommandSub '$('> spids: [123 135] ) } ) (AndOr children: [ (C {(test_path_is_file)} {($ VSub_Name '$BLOB_FILE')}) (C {(test-chmtime)} {(Lit_Other '=') (Lit_Other '+') (0)} {($ VSub_Name '$BLOB_FILE')} ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] spids: [46] ) spids: [42 45] ) (C {(test_expect_success)} {(setup)} { (SQ <'\n'> <'\n'> <'\t: > file &&\n'> <'\tgit add file &&\n'> <'\ttest_tick &&\n'> <'\tgit commit -m initial &&\n'> <'\tgit gc\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune stale packs'>)} { (SQ <'\n'> <'\n'> <'\torig_pack=$(echo .git/objects/pack/*.pack) &&\n'> <'\t: > .git/objects/tmp_1.pack &&\n'> <'\t: > .git/objects/tmp_2.pack &&\n'> <'\ttest-chmtime =-86501 .git/objects/tmp_1.pack &&\n'> <'\tgit prune --expire 1.day &&\n'> <'\ttest_path_is_file $orig_pack &&\n'> <'\ttest_path_is_file .git/objects/tmp_2.pack &&\n'> <'\ttest_path_is_missing .git/objects/tmp_1.pack\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune --expire'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\tgit prune --expire=1.hour.ago &&\n'> <'\tverbose test $((1 + $before)) = $(git count-objects | sed "s/ .*//") &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\ttest-chmtime =-86500 $BLOB_FILE &&\n'> <'\tgit prune --expire 1.day &&\n'> <'\tverbose test $before = $(git count-objects | sed "s/ .*//") &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc: implicit prune --expire'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\ttest-chmtime =-$((2*$week-30)) $BLOB_FILE &&\n'> <'\tgit gc &&\n'> <'\tverbose test $((1 + $before)) = $(git count-objects | sed "s/ .*//") &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\ttest-chmtime =-$((2*$week+1)) $BLOB_FILE &&\n'> <'\tgit gc &&\n'> <'\tverbose test $before = $(git count-objects | sed "s/ .*//") &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc: refuse to start with invalid gc.pruneExpire'>)} { (SQ <'\n'> <'\n'> <'\tgit config gc.pruneExpire invalid &&\n'> <'\ttest_must_fail git gc\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc: start with ok gc.pruneExpire'>)} {(SQ <'\n'> <'\n'> <'\tgit config gc.pruneExpire 2.days.ago &&\n'> <'\tgit gc\n'> <'\n'>)} ) (C {(test_expect_success)} {(SQ <'prune: prune nonsense parameters'>)} { (SQ <'\n'> <'\n'> <'\ttest_must_fail git prune garbage &&\n'> <'\ttest_must_fail git prune --- &&\n'> <'\ttest_must_fail git prune --no-such-option\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune: prune unreachable heads'>)} { (SQ <'\n'> <'\n'> <'\tgit config core.logAllRefUpdates false &&\n'> <'\tmv .git/logs .git/logs.old &&\n'> <'\t: > file2 &&\n'> <'\tgit add file2 &&\n'> <'\tgit commit -m temporary &&\n'> <'\ttmp_head=$(git rev-list -1 HEAD) &&\n'> <'\tgit reset HEAD^ &&\n'> <'\tgit prune &&\n'> <'\ttest_must_fail git reset $tmp_head --\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune: do not prune detached HEAD with no reflog'>)} { (SQ <'\n'> <'\n'> <'\tgit checkout --detach --quiet &&\n'> <'\tgit commit --allow-empty -m "detached commit" &&\n'> <'\t# verify that there is no reflogs\n'> <'\t# (should be removed and disabled by previous test)\n'> <'\ttest_path_is_missing .git/logs &&\n'> <'\tgit prune -n >prune_actual &&\n'> <'\t: >prune_expected &&\n'> <'\ttest_cmp prune_actual prune_expected\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune: prune former HEAD after checking out branch'>)} { (SQ <'\n'> <'\n'> <'\thead_sha1=$(git rev-parse HEAD) &&\n'> <'\tgit checkout --quiet master &&\n'> <'\tgit prune -v >prune_actual &&\n'> <'\tgrep "$head_sha1" prune_actual\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune: do not prune heads listed as an argument'>)} { (SQ <'\n'> <'\n'> <'\t: > file2 &&\n'> <'\tgit add file2 &&\n'> <'\tgit commit -m temporary &&\n'> <'\ttmp_head=$(git rev-list -1 HEAD) &&\n'> <'\tgit reset HEAD^ &&\n'> <'\tgit prune -- $tmp_head &&\n'> <'\tgit reset $tmp_head --\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc --no-prune'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\ttest-chmtime =-$((5001*$day)) $BLOB_FILE &&\n'> <'\tgit config gc.pruneExpire 2.days.ago &&\n'> <'\tgit gc --no-prune &&\n'> <'\tverbose test 1 = $(git count-objects | sed "s/ .*//") &&\n'> <'\ttest_path_is_file $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc respects gc.pruneExpire'>)} { (SQ <'\n'> <'\n'> <'\tgit config gc.pruneExpire 5002.days.ago &&\n'> <'\tgit gc &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\tgit config gc.pruneExpire 5000.days.ago &&\n'> <'\tgit gc &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc --prune=<date>'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\ttest-chmtime =-$((5001*$day)) $BLOB_FILE &&\n'> <'\tgit gc --prune=5002.days.ago &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\tgit gc --prune=5000.days.ago &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc --prune=never'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\tgit gc --prune=never &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\tgit gc --prune=now &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc respects gc.pruneExpire=never'>)} { (SQ <'\n'> <'\n'> <'\tgit config gc.pruneExpire never &&\n'> <'\tadd_blob &&\n'> <'\tgit gc &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\tgit config gc.pruneExpire now &&\n'> <'\tgit gc &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune --expire=never'>)} { (SQ <'\n'> <'\n'> <'\tadd_blob &&\n'> <'\tgit prune --expire=never &&\n'> <'\ttest_path_is_file $BLOB_FILE &&\n'> <'\tgit prune &&\n'> <'\ttest_path_is_missing $BLOB_FILE\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'gc: prune old objects after local clone'>)} { (SQ <'\n'> <'\tadd_blob &&\n'> <'\ttest-chmtime =-$((2*$week+1)) $BLOB_FILE &&\n'> <'\tgit clone --no-hardlinks . aclone &&\n'> <'\t(\n'> <'\t\tcd aclone &&\n'> <'\t\tverbose test 1 = $(git count-objects | sed "s/ .*//") &&\n'> <'\t\ttest_path_is_file $BLOB_FILE &&\n'> <'\t\tgit gc --prune &&\n'> <'\t\tverbose test 0 = $(git count-objects | sed "s/ .*//") &&\n'> <'\t\ttest_path_is_missing $BLOB_FILE\n'> <'\t)\n'> ) } ) (C {(test_expect_success)} {(SQ <'garbage report in count-objects -v'>)} { (SQ <'\n'> <'\ttest_when_finished "rm -f .git/objects/pack/fake*" &&\n'> <'\ttest_when_finished "rm -f .git/objects/pack/foo*" &&\n'> <'\t: >.git/objects/pack/foo &&\n'> <'\t: >.git/objects/pack/foo.bar &&\n'> <'\t: >.git/objects/pack/foo.keep &&\n'> <'\t: >.git/objects/pack/foo.pack &&\n'> <'\t: >.git/objects/pack/fake.bar &&\n'> <'\t: >.git/objects/pack/fake.keep &&\n'> <'\t: >.git/objects/pack/fake.pack &&\n'> <'\t: >.git/objects/pack/fake.idx &&\n'> <'\t: >.git/objects/pack/fake2.keep &&\n'> <'\t: >.git/objects/pack/fake3.idx &&\n'> <'\tgit count-objects -v 2>stderr &&\n'> <'\tgrep "index file .git/objects/pack/fake.idx is too small" stderr &&\n'> <'\tgrep "^warning:" stderr | sort >actual &&\n'> <'\tcat >expected <<\\EOF &&\n'> <'warning: garbage found: .git/objects/pack/fake.bar\n'> <'warning: garbage found: .git/objects/pack/foo\n'> <'warning: garbage found: .git/objects/pack/foo.bar\n'> <'warning: no corresponding .idx or .pack: .git/objects/pack/fake2.keep\n'> <'warning: no corresponding .idx: .git/objects/pack/foo.keep\n'> <'warning: no corresponding .idx: .git/objects/pack/foo.pack\n'> <'warning: no corresponding .pack: .git/objects/pack/fake3.idx\n'> <'EOF\n'> <'\ttest_cmp expected actual\n'> ) } ) (C {(test_expect_success)} {(SQ <'clean pack garbage with gc'>)} { (SQ <'\n'> <'\ttest_when_finished "rm -f .git/objects/pack/fake*" &&\n'> <'\ttest_when_finished "rm -f .git/objects/pack/foo*" &&\n'> <'\t: >.git/objects/pack/foo.keep &&\n'> <'\t: >.git/objects/pack/foo.pack &&\n'> <'\t: >.git/objects/pack/fake.idx &&\n'> <'\t: >.git/objects/pack/fake2.keep &&\n'> <'\t: >.git/objects/pack/fake2.idx &&\n'> <'\t: >.git/objects/pack/fake3.keep &&\n'> <'\tgit gc &&\n'> <'\tgit count-objects -v 2>stderr &&\n'> <'\tgrep "^warning:" stderr | sort >actual &&\n'> <'\tcat >expected <<\\EOF &&\n'> <'warning: no corresponding .idx or .pack: .git/objects/pack/fake3.keep\n'> <'warning: no corresponding .idx: .git/objects/pack/foo.keep\n'> <'warning: no corresponding .idx: .git/objects/pack/foo.pack\n'> <'EOF\n'> <'\ttest_cmp expected actual\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune .git/shallow'>)} { (SQ <'\n'> <'\tSHA1=$(echo hi|git commit-tree HEAD^{tree}) &&\n'> <'\techo $SHA1 >.git/shallow &&\n'> <'\tgit prune --dry-run >out &&\n'> <'\tgrep $SHA1 .git/shallow &&\n'> <'\tgrep $SHA1 out &&\n'> <'\tgit prune &&\n'> <'\ttest_path_is_missing .git/shallow\n'> ) } ) (C {(test_expect_success)} {(SQ <'prune: handle alternate object database'>)} { (SQ <'\n'> <'\ttest_create_repo A &&\n'> <'\tgit -C A commit --allow-empty -m "initial commit" &&\n'> <'\tgit clone --shared A B &&\n'> <'\tgit -C B commit --allow-empty -m "next commit" &&\n'> <'\tgit -C B prune\n'> ) } ) (C {(test_done)}) ] )