$ cat >> $HGRCPATH <<EOF

  > [web]

  > push_ssl = false

  > allow_push = *

  > [phases]

  > publish=False

  > [alias]

  > debugobsolete=debugobsolete -d '0 0'

  > [extensions]

  > hgext.rebase=

  > EOF

  $ mkcommit() {

  >    echo "$1" > "$1"

  >    hg add "$1"

  >    hg ci -m "add $1"

  > }

  $ getid() {

  >    hg id --hidden --debug -ir "$1"

  > }

  $ alias qlog="hg log --template='{rev}\n- {node|short}\n'"

  $ hg init local

  $ cd local

  $ mkcommit a # 0

  $ hg phase -p .

  $ mkcommit b # 1

  $ mkcommit c # 2

  $ hg up 1

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

  $ mkcommit obsol_c # 3

  created new head

  $ getid 2

  4538525df7e2b9f09423636c61ef63a4cb872a2d

  $ getid 3

  0d3f46688ccc6e756c7e96cf64c391c411309597

  $ hg debugobsolete 4538525df7e2b9f09423636c61ef63a4cb872a2d 0d3f46688ccc6e756c7e96cf64c391c411309597

  $ hg debugobsolete

  4538525df7e2b9f09423636c61ef63a4cb872a2d 0d3f46688ccc6e756c7e96cf64c391c411309597 0 (Thu Jan 01 00:00:00 1970 +0000) {'user': 'test'}

Test hidden() revset

  $ qlog -r 'hidden()' --hidden

  2

  - 4538525df7e2

Test that obsolete changeset are hidden

  $ qlog

  3

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ qlog --hidden

  3

  - 0d3f46688ccc

  2

  - 4538525df7e2

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ qlog -r 'obsolete()' --hidden

  2

  - 4538525df7e2

Test that obsolete precursors are properly computed

  $ qlog -r 'precursors(.)' --hidden

  2

  - 4538525df7e2

  $ qlog -r .

  3

  - 0d3f46688ccc

  $ hg odiff

  diff -r 4538525df7e2 -r 0d3f46688ccc c

  --- a/c	Thu Jan 01 00:00:00 1970 +0000

  +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000

  @@ -1,1 +0,0 @@

  -c

  diff -r 4538525df7e2 -r 0d3f46688ccc obsol_c

  --- /dev/null	Thu Jan 01 00:00:00 1970 +0000

  +++ b/obsol_c	Thu Jan 01 00:00:00 1970 +0000

  @@ -0,0 +1,1 @@

  +obsol_c

Test that obsolete successors are properly computed

  $ qlog -r 'successors(2)' --hidden

  3

  - 0d3f46688ccc

test obsolete changeset with non-obsolete descendant

  $ hg up 1 -q

  $ mkcommit "obsol_c'" # 4 (on 1)

  created new head

  $ hg debugobsolete `getid 3` `getid 4`

  $ qlog

  4

  - 725c380fe99b

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ qlog -r 'obsolete()' --hidden

  2

  - 4538525df7e2

  3

  - 0d3f46688ccc

  $ qlog -r 'allprecursors(4)' --hidden

  2

  - 4538525df7e2

  3

  - 0d3f46688ccc

  $ qlog -r 'allsuccessors(2)' --hidden

  3

  - 0d3f46688ccc

  4

  - 725c380fe99b

  $ hg up --hidden 3 -q

  working directory parent is obsolete!

(reported by parents too)

  $ hg parents

  changeset:   3:0d3f46688ccc

  parent:      1:7c3bad9141dc

  user:        test

  date:        Thu Jan 01 00:00:00 1970 +0000

  summary:     add obsol_c

  working directory parent is obsolete!

  (use 'hg evolve' to update to its successor)

  $ mkcommit d # 5 (on 3)

  1 new unstable changesets

  $ qlog -r 'obsolete()'

  3

  - 0d3f46688ccc

  $ qlog -r 'extinct()' --hidden

  2

  - 4538525df7e2

  $ qlog -r 'suspended()'

  3

  - 0d3f46688ccc

  $ qlog -r 'unstable()'

  5

  - a7a6f2b5d8a5

Test obsolete keyword

  $ hg --hidden log -G \

  >  --template '{rev}:{node|short}@{branch}({separate("/", obsolete, phase)}) {desc|firstline}\n'

  @  5:a7a6f2b5d8a5@default(draft) add d

  |

  | o  4:725c380fe99b@default(draft) add obsol_c'

  | |

  x |  3:0d3f46688ccc@default(obsolete/draft) add obsol_c

  |/

  | x  2:4538525df7e2@default(obsolete/draft) add c

  |/

  o  1:7c3bad9141dc@default(draft) add b

  |

  o  0:1f0dee641bb7@default(public) add a

Test communication of obsolete relation with a compatible client

  $ hg init ../other-new

  $ hg phase --draft 'secret() - extinct()' # until we fix exclusion

  abort: empty revision set

  [255]

  $ hg push ../other-new

  pushing to ../other-new

  searching for changes

  abort: push includes unstable changeset: a7a6f2b5d8a5!

  (use 'hg evolve' to get a stable history or --force to ignore warnings)

  [255]

  $ hg push -f ../other-new

  pushing to ../other-new

  searching for changes

  adding changesets

  adding manifests

  adding file changes

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

  2 new obsolescence markers

  $ hg -R ../other-new verify

  checking changesets

  checking manifests

  crosschecking files in changesets and manifests

  checking files

  5 files, 5 changesets, 5 total revisions

  $ qlog -R ../other-new -r 'obsolete()'

  2

  - 0d3f46688ccc

  $ qlog -R ../other-new

  4

  - a7a6f2b5d8a5

  3

  - 725c380fe99b

  2

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ hg up --hidden 3 -q

  working directory parent is obsolete!

  $ mkcommit obsol_d # 6

  created new head

  1 new unstable changesets

  $ hg debugobsolete `getid 5` `getid 6`

  $ qlog

  6

  - 95de7fc6918d

  4

  - 725c380fe99b

  3

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ qlog -r 'obsolete()'

  3

  - 0d3f46688ccc

  $ hg push ../other-new

  pushing to ../other-new

  searching for changes

  abort: push includes unstable changeset: 95de7fc6918d!

  (use 'hg evolve' to get a stable history or --force to ignore warnings)

  [255]

  $ hg push ../other-new -f # use f because there is unstability

  pushing to ../other-new

  searching for changes

  adding changesets

  adding manifests

  adding file changes

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

  1 new obsolescence markers

  $ qlog -R ../other-new

  5

  - 95de7fc6918d

  3

  - 725c380fe99b

  2

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ qlog -R ../other-new -r 'obsolete()'

  2

  - 0d3f46688ccc

Pushing again does not advertise extinct changesets

  $ hg push ../other-new

  pushing to ../other-new

  searching for changes

  no changes found

  [1]

  $ hg up --hidden -q .^ # 3

  working directory parent is obsolete!

  $ mkcommit "obsol_d'" # 7

  created new head

  1 new unstable changesets

  $ hg debugobsolete `getid 6` `getid 7`

  $ hg pull -R ../other-new .

  pulling from .

  searching for changes

  adding changesets

  adding manifests

  adding file changes

  added 1 changesets with 1 changes to [12] files \(\+1 heads\) (re)

  1 new obsolescence markers

  (run 'hg heads .' to see heads, 'hg merge' to merge)

  $ qlog -R ../other-new

  6

  - 909a0fb57e5d

  3

  - 725c380fe99b

  2

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

pushing to stuff that doesn't support obsolescence

DISABLED. the _enable switch is global :-/

..  $ hg init ../other-old

..  > # XXX I don't like this but changeset get published otherwise

..  > # remove it when we will get a --keep-state flag for push

..  $ echo '[extensions]'  > ../other-old/.hg/hgrc

..  $ echo "obsolete=!$(echo $(dirname $TESTDIR))/obsolete.py" >> ../other-old/.hg/hgrc

..  $ hg push ../other-old

..  pushing to ../other-old

..  searching for changes

..  abort: push includes an unstable changeset: 909a0fb57e5d!

..  (use 'hg evolve' to get a stable history or --force to ignore warnings)

..  [255]

..  $ hg push -f ../other-old

..  pushing to ../other-old

..  searching for changes

..  adding changesets

..  adding manifests

..  adding file changes

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

..  $ qlog -R ../other-ol

..  4

..  - 909a0fb57e5d

..  3

..  - 725c380fe99b

..  2

..  - 0d3f46688ccc

..  1

..  - 7c3bad9141dc

..  0

..  - 1f0dee641bb7

clone support

  $ hg clone . ../cloned

  > # The warning should go away once we have default value to set ready before we pull

  updating to branch default

  4 files updated, 0 files merged, 0 files removed, 0 files unresolved

  $ qlog -R ../cloned --hidden

  7

  - 909a0fb57e5d

  6

  - 95de7fc6918d

  5

  - a7a6f2b5d8a5

  4

  - 725c380fe99b

  3

  - 0d3f46688ccc

  2

  - 4538525df7e2

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

Test rollback support

  $ hg up --hidden .^ -q # 3

  working directory parent is obsolete!

  $ mkcommit "obsol_d''"

  created new head

  1 new unstable changesets

  $ hg debugobsolete `getid 7` `getid 8`

  $ cd ../other-new

  $ hg up -q 3

  $ hg pull ../local/

  pulling from ../local/

  searching for changes

  adding changesets

  adding manifests

  adding file changes

  added 1 changesets with 1 changes to [12] files \(\+1 heads\) (re)

  1 new obsolescence markers

  (run 'hg heads .' to see heads, 'hg merge' to merge)

  $ hg up -q 7 # to check rollback update behavior

  $ qlog

  7

  - 159dfc9fa5d3

  3

  - 725c380fe99b

  2

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ hg rollback

  repository tip rolled back to revision 6 (undo pull)

  working directory now based on revision 3

  $ hg summary

  parent: 3:725c380fe99b 

   add obsol_c'

  branch: default

  commit: 1 deleted, 2 unknown (clean)

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

  phases: 4 draft

  unstable: 1 changesets

  $ qlog

  6

  - 909a0fb57e5d

  3

  - 725c380fe99b

  2

  - 0d3f46688ccc

  1

  - 7c3bad9141dc

  0

  - 1f0dee641bb7

  $ cd ../local

obsolete public changeset

# move draft boundary from 0 to 1

  $ sed -e 's/1f0dee641bb7258c56bd60e93edfa2405381c41e/7c3bad9141dcb46ff89abf5f61856facd56e476c/' -i'.back' .hg/store/phaseroots

  $ hg up null

  0 files updated, 0 files merged, 4 files removed, 0 files unresolved

  $ mkcommit toto # 9

  created new head

  $ hg id -n

  9

  $ hg debugobsolete `getid 0` `getid 9`

83b5778897ad try to obsolete immutable changeset 1f0dee641bb7

# at core level the warning is not issued

# this is now a big issue now that we have bumped warning

  $ qlog -r 'obsolete()'

  3

  - 0d3f46688ccc