$ cat >> $HGRCPATH << EOF

  > [phases]

  > # public changeset are not obsolete

  > publish=false

  > [ui]

  > logtemplate="{rev}:{node|short} ({phase}{if(obsolete, ' *{obsolete}*')}{if(instabilities, ' {instabilities}')}) [{tags} {bookmarks}] {desc|firstline}\n"

  > EOF

  $ mkcommit() {

  >    echo "$1" > "$1"

  >    hg add "$1"

  >    hg ci -m "add $1"

  > }

  $ getid() {

  >    hg log -T "{node}\n" --hidden -r "desc('$1')"

  > }

  $ cat > debugkeys.py <<EOF

  > def reposetup(ui, repo):

  >     class debugkeysrepo(repo.__class__):

  >         def listkeys(self, namespace):

  >             ui.write('listkeys %s\n' % (namespace,))

  >             return super(debugkeysrepo, self).listkeys(namespace)

  > 

  >     if repo.local():

  >         repo.__class__ = debugkeysrepo

  > EOF

  $ hg init tmpa

  $ cd tmpa

  $ mkcommit kill_me

Checking that the feature is properly disabled

  $ hg debugobsolete -d '0 0' `getid kill_me` -u babar

  abort: creating obsolete markers is not enabled on this repo

  [255]

Enabling it

  $ cat >> $HGRCPATH << EOF

  > [experimental]

  > stabilization=createmarkers,exchange

  > EOF

Killing a single changeset without replacement

  $ hg debugobsolete 0

  abort: changeset references must be full hexadecimal node identifiers

  [255]

  $ hg debugobsolete '00'

  abort: changeset references must be full hexadecimal node identifiers

  [255]

  $ hg debugobsolete -d '0 0' `getid kill_me` -u babar

  obsoleted 1 changesets

  $ hg debugobsolete

  97b7c2d76b1845ed3eb988cd612611e72406cef0 0 (Thu Jan 01 00:00:00 1970 +0000) {'user': 'babar'}

(test that mercurial is not confused)

  $ hg up null --quiet # having 0 as parent prevents it to be hidden

  $ hg tip

  -1:000000000000 (public) [tip ] 

  $ hg up --hidden tip --quiet

Killing a single changeset with itself should fail

(simple local safeguard)

  $ hg debugobsolete `getid kill_me` `getid kill_me`

  abort: bad obsmarker input: in-marker cycle with 97b7c2d76b1845ed3eb988cd612611e72406cef0

  [255]

  $ cd ..

Killing a single changeset with replacement

(and testing the format option)

  $ hg init tmpb

  $ cd tmpb

  $ mkcommit a

  $ mkcommit b

  $ mkcommit original_c

  $ hg up "desc('b')"

  0 files updated, 0 files merged, 1 files removed, 0 files unresolved

  $ mkcommit new_c

  created new head

  $ hg log -r 'hidden()' --template '{rev}:{node|short} {desc}\n' --hidden

  $ hg debugobsolete --config format.obsstore-version=0 --flag 12 `getid original_c`  `getid new_c` -d '121 120'

  obsoleted 1 changesets

  $ hg log -r 'hidden()' --template '{rev}:{node|short} {desc}\n' --hidden

  2:245bde4270cd add original_c

  $ hg debugrevlog -cd

  # rev p1rev p2rev start   end deltastart base   p1   p2 rawsize totalsize compression heads chainlen

      0    -1    -1     0    59          0    0    0    0      58        58           0     1        0

      1     0    -1    59   118         59   59    0    0      58       116           0     1        0

      2     1    -1   118   193        118  118   59    0      76       192           0     1        0

      3     1    -1   193   260        193  193   59    0      66       258           0     2        0

  $ hg debugobsolete

  245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

(check for version number of the obsstore)

  $ dd bs=1 count=1 if=.hg/store/obsstore 2>/dev/null

  \x00 (no-eol) (esc)

do it again (it read the obsstore before adding new changeset)

  $ hg up '.^'

  0 files updated, 0 files merged, 1 files removed, 0 files unresolved

  $ mkcommit new_2_c

  created new head

  $ hg debugobsolete -d '1337 0' `getid new_c` `getid new_2_c`

  obsoleted 1 changesets

  $ hg debugobsolete

  245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

  cdbce2fbb16313928851e97e0d85413f3f7eb77f ca819180edb99ed25ceafb3e9584ac287e240b00 0 (Thu Jan 01 00:22:17 1970 +0000) {'user': 'test'}

Register two markers with a missing node

  $ hg up '.^'

  0 files updated, 0 files merged, 1 files removed, 0 files unresolved

  $ mkcommit new_3_c

  created new head

  $ hg debugobsolete -d '1338 0' `getid new_2_c` 1337133713371337133713371337133713371337

  obsoleted 1 changesets

  $ hg debugobsolete -d '1339 0' 1337133713371337133713371337133713371337 `getid new_3_c`

  $ hg debugobsolete

  245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

  cdbce2fbb16313928851e97e0d85413f3f7eb77f ca819180edb99ed25ceafb3e9584ac287e240b00 0 (Thu Jan 01 00:22:17 1970 +0000) {'user': 'test'}

  ca819180edb99ed25ceafb3e9584ac287e240b00 1337133713371337133713371337133713371337 0 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  1337133713371337133713371337133713371337 5601fb93a350734d935195fee37f4054c529ff39 0 (Thu Jan 01 00:22:19 1970 +0000) {'user': 'test'}

Test the --index option of debugobsolete command

  $ hg debugobsolete --index

  0 245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

  1 cdbce2fbb16313928851e97e0d85413f3f7eb77f ca819180edb99ed25ceafb3e9584ac287e240b00 0 (Thu Jan 01 00:22:17 1970 +0000) {'user': 'test'}

  2 ca819180edb99ed25ceafb3e9584ac287e240b00 1337133713371337133713371337133713371337 0 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  3 1337133713371337133713371337133713371337 5601fb93a350734d935195fee37f4054c529ff39 0 (Thu Jan 01 00:22:19 1970 +0000) {'user': 'test'}

Refuse pathological nullid successors

  $ hg debugobsolete -d '9001 0' 1337133713371337133713371337133713371337 0000000000000000000000000000000000000000

  transaction abort!

  rollback completed

  abort: bad obsolescence marker detected: invalid successors nullid

  [255]

Check that graphlog detect that a changeset is obsolete:

  $ hg log -G

  @  5:5601fb93a350 (draft) [tip ] add new_3_c

  |

  o  1:7c3bad9141dc (draft) [ ] add b

  |

  o  0:1f0dee641bb7 (draft) [ ] add a

check that heads does not report them

  $ hg heads

  5:5601fb93a350 (draft) [tip ] add new_3_c

  $ hg heads --hidden

  5:5601fb93a350 (draft) [tip ] add new_3_c

  4:ca819180edb9 (draft *obsolete*) [ ] add new_2_c

  3:cdbce2fbb163 (draft *obsolete*) [ ] add new_c

  2:245bde4270cd (draft *obsolete*) [ ] add original_c

check that summary does not report them

  $ hg init ../sink

  $ echo '[paths]' >> .hg/hgrc

  $ echo 'default=../sink' >> .hg/hgrc

  $ hg summary --remote

  parent: 5:5601fb93a350 tip

   add new_3_c

  branch: default

  commit: (clean)

  update: (current)

  phases: 3 draft

  remote: 3 outgoing

  $ hg summary --remote --hidden

  parent: 5:5601fb93a350 tip

   add new_3_c

  branch: default

  commit: (clean)

  update: 3 new changesets, 4 branch heads (merge)

  phases: 6 draft

  remote: 3 outgoing

check that various commands work well with filtering

  $ hg tip

  5:5601fb93a350 (draft) [tip ] add new_3_c

  $ hg log -r 6

  abort: unknown revision '6'!

  [255]

  $ hg log -r 4

  abort: hidden revision '4'!

  (use --hidden to access hidden revisions)

  [255]

  $ hg debugrevspec 'rev(6)'

  $ hg debugrevspec 'rev(4)'

  $ hg debugrevspec 'null'

  -1

Check that public changeset are not accounted as obsolete:

  $ hg --hidden phase --public 2

  $ hg log -G

  @  5:5601fb93a350 (draft phase-divergent) [tip ] add new_3_c

  |

  | o  2:245bde4270cd (public) [ ] add original_c

  |/

  o  1:7c3bad9141dc (public) [ ] add b

  |

  o  0:1f0dee641bb7 (public) [ ] add a

And that bumped changeset are detected

--------------------------------------

If we didn't filtered obsolete changesets out, 3 and 4 would show up too. Also

note that the bumped changeset (5:5601fb93a350) is not a direct successor of

the public changeset

  $ hg log --hidden -r 'phasedivergent()'

  5:5601fb93a350 (draft phase-divergent) [tip ] add new_3_c

And that we can't push bumped changeset

  $ hg push ../tmpa -r 0 --force #(make repo related)

  pushing to ../tmpa

  searching for changes

  warning: repository is unrelated

  adding changesets

  adding manifests

  adding file changes

  added 1 changesets with 1 changes to 1 files (+1 heads)

  $ hg push ../tmpa

  pushing to ../tmpa

  searching for changes

  abort: push includes phase-divergent changeset: 5601fb93a350!

  [255]

Fixing "bumped" situation

We need to create a clone of 5 and add a special marker with a flag

  $ hg summary

  parent: 5:5601fb93a350 tip (phase-divergent)

   add new_3_c

  branch: default

  commit: (clean)

  update: 1 new changesets, 2 branch heads (merge)

  phases: 1 draft

  phase-divergent: 1 changesets

  $ hg up '5^'

  0 files updated, 0 files merged, 1 files removed, 0 files unresolved

  $ hg revert -ar 5

  adding new_3_c

  $ hg ci -m 'add n3w_3_c'

  created new head

  $ hg debugobsolete -d '1338 0' --flags 1 `getid new_3_c` `getid n3w_3_c`

  obsoleted 1 changesets

  $ hg log -r 'phasedivergent()'

  $ hg log -G

  @  6:6f9641995072 (draft) [tip ] add n3w_3_c

  |

  | o  2:245bde4270cd (public) [ ] add original_c

  |/

  o  1:7c3bad9141dc (public) [ ] add b

  |

  o  0:1f0dee641bb7 (public) [ ] add a

Basic exclusive testing

  $ hg log -G --hidden

  @  6:6f9641995072 (draft) [tip ] add n3w_3_c

  |

  | x  5:5601fb93a350 (draft *obsolete*) [ ] add new_3_c

  |/

  | x  4:ca819180edb9 (draft *obsolete*) [ ] add new_2_c

  |/

  | x  3:cdbce2fbb163 (draft *obsolete*) [ ] add new_c

  |/

  | o  2:245bde4270cd (public) [ ] add original_c

  |/

  o  1:7c3bad9141dc (public) [ ] add b

  |

  o  0:1f0dee641bb7 (public) [ ] add a

  $ hg debugobsolete --rev 6f9641995072

  1337133713371337133713371337133713371337 5601fb93a350734d935195fee37f4054c529ff39 0 (Thu Jan 01 00:22:19 1970 +0000) {'user': 'test'}

  245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

  5601fb93a350734d935195fee37f4054c529ff39 6f96419950729f3671185b847352890f074f7557 1 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  ca819180edb99ed25ceafb3e9584ac287e240b00 1337133713371337133713371337133713371337 0 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  cdbce2fbb16313928851e97e0d85413f3f7eb77f ca819180edb99ed25ceafb3e9584ac287e240b00 0 (Thu Jan 01 00:22:17 1970 +0000) {'user': 'test'}

  $ hg debugobsolete --rev 6f9641995072 --exclusive

  5601fb93a350734d935195fee37f4054c529ff39 6f96419950729f3671185b847352890f074f7557 1 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  $ hg debugobsolete --rev 5601fb93a350 --hidden

  1337133713371337133713371337133713371337 5601fb93a350734d935195fee37f4054c529ff39 0 (Thu Jan 01 00:22:19 1970 +0000) {'user': 'test'}

  245bde4270cd1072a27757984f9cda8ba26f08ca cdbce2fbb16313928851e97e0d85413f3f7eb77f C (Thu Jan 01 00:00:01 1970 -0002) {'user': 'test'}

  ca819180edb99ed25ceafb3e9584ac287e240b00 1337133713371337133713371337133713371337 0 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  cdbce2fbb16313928851e97e0d85413f3f7eb77f ca819180edb99ed25ceafb3e9584ac287e240b00 0 (Thu Jan 01 00:22:17 1970 +0000) {'user': 'test'}

  $ hg debugobsolete --rev 5601fb93a350 --hidden --exclusive

  $ hg debugobsolete --rev 5601fb93a350+6f9641995072 --hidden --exclusive

  1337133713371337133713371337133713371337 5601fb93a350734d935195fee37f4054c529ff39 0 (Thu Jan 01 00:22:19 1970 +0000) {'user': 'test'}

  5601fb93a350734d935195fee37f4054c529ff39 6f96419950729f3671185b847352890f074f7557 1 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  ca819180edb99ed25ceafb3e9584ac287e240b00 1337133713371337133713371337133713371337 0 (Thu Jan 01 00:22:18 1970 +0000) {'user': 'test'}

  $ cd ..

Revision 0 is hidden

--------------------

  $ hg init rev0hidden

  $ cd rev0hidden

  $ mkcommit kill0

  $ hg up -q null

  $ hg debugobsolete `getid kill0`

  obsoleted 1 changesets

  $ mkcommit a

  $ mkcommit b

Should pick the first visible revision as "repo" node

  $ hg archive ../archive-null

  $ cat ../archive-null/.hg_archival.txt

  repo: 1f0dee641bb7258c56bd60e93edfa2405381c41e

  node: 7c3bad9141dcb46ff89abf5f61856facd56e476c

  branch: default

  latesttag: null

  latesttagdistance: 2

  changessincelatesttag: 2

  $ cd ..

Exchange Test

============================

Destination repo does not have any data

---------------------------------------

Simple incoming test

  $ hg init tmpc

  $ cd tmpc

  $ hg incoming ../tmpb

  comparing with ../tmpb

  0:1f0dee641bb7 (public) [ ] add a

  1:7c3bad9141dc (public) [ ] add b

  2:245bde4270cd (public) [ ] add original_c

  6:6f9641995072 (draft) [tip ] add n3w_3_c

Try to pull markers