Show More
@@ -0,0 +1,100 b'' | |||||
|
1 | Enable obsolete markers | |||
|
2 | ||||
|
3 | $ cat >> $HGRCPATH << EOF | |||
|
4 | > [experimental] | |||
|
5 | > evolution=createmarkers | |||
|
6 | > [phases] | |||
|
7 | > publish=False | |||
|
8 | > EOF | |||
|
9 | ||||
|
10 | Build a repo with some cacheable bits: | |||
|
11 | ||||
|
12 | $ hg init a | |||
|
13 | $ cd a | |||
|
14 | ||||
|
15 | $ echo a > a | |||
|
16 | $ hg ci -qAm0 | |||
|
17 | $ hg tag t1 | |||
|
18 | $ hg book -i bk1 | |||
|
19 | ||||
|
20 | $ hg branch -q b2 | |||
|
21 | $ hg ci -Am1 | |||
|
22 | $ hg tag t2 | |||
|
23 | ||||
|
24 | $ echo dumb > dumb | |||
|
25 | $ hg ci -qAmdumb | |||
|
26 | $ hg debugobsolete b1174d11b69e63cb0c5726621a43c859f0858d7f | |||
|
27 | ||||
|
28 | $ hg phase -pr t1 | |||
|
29 | $ hg phase -fsr t2 | |||
|
30 | ||||
|
31 | Make a helper function to check cache damage invariants: | |||
|
32 | ||||
|
33 | - command output shouldn't change | |||
|
34 | - cache should be present after first use | |||
|
35 | - corruption/repair should be silent (no exceptions or warnings) | |||
|
36 | - cache should survive deletion, overwrite, and append | |||
|
37 | - unreadable / unwriteable caches should be ignored | |||
|
38 | - cache should be rebuilt after corruption | |||
|
39 | ||||
|
40 | $ damage() { | |||
|
41 | > CMD=$1 | |||
|
42 | > CACHE=.hg/cache/$2 | |||
|
43 | > CLEAN=$3 | |||
|
44 | > hg $CMD > before | |||
|
45 | > test -f $CACHE || echo "not present" | |||
|
46 | > echo bad > $CACHE | |||
|
47 | > test -z "$CLEAN" || $CLEAN | |||
|
48 | > hg $CMD > after | |||
|
49 | > diff -u before after || echo "*** overwrite corruption" | |||
|
50 | > echo corruption >> $CACHE | |||
|
51 | > test -z "$CLEAN" || $CLEAN | |||
|
52 | > hg $CMD > after | |||
|
53 | > diff -u before after || echo "*** append corruption" | |||
|
54 | > rm $CACHE | |||
|
55 | > mkdir $CACHE | |||
|
56 | > test -z "$CLEAN" || $CLEAN | |||
|
57 | > hg $CMD > after | |||
|
58 | > diff -u before after || echo "*** read-only corruption" | |||
|
59 | > test -d $CACHE || echo "*** directory clobbered" | |||
|
60 | > rmdir $CACHE | |||
|
61 | > test -z "$CLEAN" || $CLEAN | |||
|
62 | > hg $CMD > after | |||
|
63 | > diff -u before after || echo "*** missing corruption" | |||
|
64 | > test -f $CACHE || echo "not rebuilt" | |||
|
65 | > } | |||
|
66 | ||||
|
67 | Beat up tags caches: | |||
|
68 | ||||
|
69 | $ damage "tags --hidden" tags2 | |||
|
70 | $ damage tags tags2-visible | |||
|
71 | $ damage "tag -f t3" hgtagsfnodes1 | |||
|
72 | ||||
|
73 | Beat up hidden cache: | |||
|
74 | ||||
|
75 | $ damage log hidden | |||
|
76 | ||||
|
77 | Beat up branch caches: | |||
|
78 | ||||
|
79 | $ damage branches branch2-base "rm .hg/cache/branch2-[vs]*" | |||
|
80 | $ damage branches branch2-served "rm .hg/cache/branch2-[bv]*" | |||
|
81 | $ damage branches branch2-visible | |||
|
82 | $ damage "log -r branch(.)" rbc-names-v1 | |||
|
83 | $ damage "log -r branch(default)" rbc-names-v1 | |||
|
84 | $ damage "log -r branch(b2)" rbc-revs-v1 | |||
|
85 | ||||
|
86 | We currently can't detect an rbc cache with unknown names: | |||
|
87 | ||||
|
88 | $ damage "log -qr branch(b2)" rbc-names-v1 | |||
|
89 | --- before * (glob) | |||
|
90 | +++ after * (glob) | |||
|
91 | @@ -1,8 +0,0 @@ | |||
|
92 | -2:5fb7d38b9dc4 | |||
|
93 | -3:60b597ffdafa | |||
|
94 | -4:b1174d11b69e | |||
|
95 | -5:6354685872c0 | |||
|
96 | -6:5ebc725f1bef | |||
|
97 | -7:7b76eec2f273 | |||
|
98 | -8:ef3428d9d644 | |||
|
99 | -9:ba7a936bc03c | |||
|
100 | *** append corruption |
General Comments 0
You need to be logged in to leave comments.
Login now