cext: fix potential memory leaks of list items appended with PyList_Append
Also reduce the duplication in the tricky code that uses PyList_Append by
extracting it into a function `pylist_append_owned`.
A script that implements uppercasing all letters in a file.
$ UPPERCASEPY="$TESTTMP/uppercase.py"
$ cat > $UPPERCASEPY <<EOF
> import sys
> from mercurial.utils.procutil import setbinary
> setbinary(sys.stdin)
> setbinary(sys.stdout)
> stdin = getattr(sys.stdin, 'buffer', sys.stdin)
> stdout = getattr(sys.stdout, 'buffer', sys.stdout)
> stdout.write(stdin.read().upper())
> EOF
$ TESTLINES="foo\nbar\nbaz\n"
$ printf $TESTLINES | "$PYTHON" $UPPERCASEPY
FOO
BAR
BAZ
Tests for the fix extension's behavior around non-trivial history topologies.
Looks for correct incremental fixing and reproduction of parent/child
relationships. We indicate fixed file content by uppercasing it.
$ cat >> $HGRCPATH <<EOF
> [extensions]
> fix =
> strip =
> debugdrawdag=$TESTDIR/drawdag.py
> [fix]
> uppercase-whole-file:command="$PYTHON" $UPPERCASEPY
> uppercase-whole-file:pattern=set:**
> EOF
This tests the only behavior that should really be affected by obsolescence, so
we'll test it with evolution off and on. This only changes the revision
numbers, if all is well.
#testcases obsstore-off obsstore-on
#if obsstore-on
$ cat >> $HGRCPATH <<EOF
> [experimental]
> evolution.createmarkers=True
> evolution.allowunstable=True
> EOF
#endif
Setting up the test topology. Scroll down to see the graph produced. We make it
clear which files were modified in each revision. It's enough to test at the
file granularity, because that demonstrates which baserevs were diffed against.
The computation of changed lines is orthogonal and tested separately.
$ hg init repo
$ cd repo
$ printf "aaaa\n" > a
$ hg commit -Am "change A"
adding a
$ printf "bbbb\n" > b
$ hg commit -Am "change B"
adding b
$ printf "cccc\n" > c
$ hg commit -Am "change C"
adding c
$ hg checkout 0
0 files updated, 0 files merged, 2 files removed, 0 files unresolved
$ printf "dddd\n" > d
$ hg commit -Am "change D"
adding d
created new head
$ hg merge -r 2
2 files updated, 0 files merged, 0 files removed, 0 files unresolved
(branch merge, don't forget to commit)
$ printf "eeee\n" > e
$ hg commit -Am "change E"
adding e
$ hg checkout 0
0 files updated, 0 files merged, 4 files removed, 0 files unresolved
$ printf "ffff\n" > f
$ hg commit -Am "change F"
adding f
created new head
$ hg checkout 0
0 files updated, 0 files merged, 1 files removed, 0 files unresolved
$ printf "gggg\n" > g
$ hg commit -Am "change G"
adding g
created new head
$ hg merge -r 5
1 files updated, 0 files merged, 0 files removed, 0 files unresolved
(branch merge, don't forget to commit)
$ printf "hhhh\n" > h
$ hg commit -Am "change H (child of b53d63e816fb and 0e49f92ee6e9)"
adding h
$ hg merge -r 4
4 files updated, 0 files merged, 0 files removed, 0 files unresolved
(branch merge, don't forget to commit)
$ printf "iiii\n" > i
$ hg commit -Am "change I"
adding i
$ hg checkout 2
0 files updated, 0 files merged, 6 files removed, 0 files unresolved
$ printf "jjjj\n" > j
$ hg commit -Am "change J (child of 7f371349286e)"
adding j
created new head
$ hg checkout 7
3 files updated, 0 files merged, 3 files removed, 0 files unresolved
$ printf "kkkk\n" > k
$ hg add
adding k
$ hg log --graph --template '{rev}:{node|short} {desc}\n'
o 9:884041ccc490 change J (child of 7f371349286e)
|
| o 8:b7c772105fd2 change I
| |\
| | @ 7:4e7b9312dad2 change H (child of b53d63e816fb and 0e49f92ee6e9)
| | |\
| | | o 6:0e49f92ee6e9 change G
| | | |
| | o | 5:b53d63e816fb change F
| | |/
| o | 4:ddad58af5e51 change E
|/| |
| o | 3:c015ebfd2bfe change D
| |/
o | 2:7f371349286e change C
| |
o | 1:388fdd33fea0 change B
|/
o 0:a55a84d97a24 change A
Fix all but the root revision and its four children.
$ hg fix -r '2|4|7|8|9' --working-dir
saved backup bundle to * (glob) (obsstore-off !)
The five revisions remain, but the other revisions were fixed and replaced. All
parent pointers have been accurately set to reproduce the previous topology
(though it is rendered in a slightly different order now).
#if obsstore-on
$ hg log --graph --template '{rev}:{node|short} {desc}\n'
o 14:d8d0e7974598 change J (child of 89de0da1d5da)
|
| o 13:4fc0b354461e change I
| |\
| | @ 12:1c45f3923443 change H (child of b53d63e816fb and 0e49f92ee6e9)
| | |\
| o | | 11:d75754455722 change E
|/| | |
o | | | 10:89de0da1d5da change C
| | | |
| | | o 6:0e49f92ee6e9 change G
| | | |
| | o | 5:b53d63e816fb change F
| | |/
| o / 3:c015ebfd2bfe change D
| |/
o / 1:388fdd33fea0 change B
|/
o 0:a55a84d97a24 change A
$ C=10
$ E=11
$ H=12
$ I=13
$ J=14
#else
$ hg log --graph --template '{rev}:{node|short} {desc}\n'
o 9:d8d0e7974598 change J (child of 89de0da1d5da)
|
| o 8:4fc0b354461e change I
| |\
| | @ 7:1c45f3923443 change H (child of b53d63e816fb and 0e49f92ee6e9)
| | |\
| o | | 6:d75754455722 change E
|/| | |
o | | | 5:89de0da1d5da change C
| | | |
| | | o 4:0e49f92ee6e9 change G
| | | |
| | o | 3:b53d63e816fb change F
| | |/
| o / 2:c015ebfd2bfe change D
| |/
o / 1:388fdd33fea0 change B
|/
o 0:a55a84d97a24 change A
$ C=5
$ E=6
$ H=7
$ I=8
$ J=9
#endif
Change C is a root of the set being fixed, so all we fix is what has changed
since its parent. That parent, change B, is its baserev.
$ hg cat -r $C 'set:**'
aaaa
bbbb
CCCC
Change E is a merge with only one parent being fixed. Its baserevs are the
unfixed parent plus the baserevs of the other parent. This evaluates to changes
B and D. We now have to decide what it means to incrementally fix a merge
commit. We choose to fix anything that has changed versus any baserev. Only the
undisturbed content of the common ancestor, change A, is unfixed.
$ hg cat -r $E 'set:**'
aaaa
BBBB
CCCC
DDDD
EEEE
Change H is a merge with neither parent being fixed. This is essentially
equivalent to the previous case because there is still only one baserev for
each parent of the merge.
$ hg cat -r $H 'set:**'
aaaa
FFFF
GGGG
HHHH
Change I is a merge that has four baserevs; two from each parent. We handle
multiple baserevs in the same way regardless of how many came from each parent.
So, fixing change H will fix any files that were not exactly the same in each
baserev.
$ hg cat -r $I 'set:**'
aaaa
BBBB
CCCC
DDDD
EEEE
FFFF
GGGG
HHHH
IIII
Change J is a simple case with one baserev, but its baserev is not its parent,
change C. Its baserev is its grandparent, change B.
$ hg cat -r $J 'set:**'
aaaa
bbbb
CCCC
JJJJ
The working copy was dirty, so it is treated much like a revision. The baserevs
for the working copy are inherited from its parent, change H, because it is
also being fixed.
$ cat *
aaaa
FFFF
GGGG
HHHH
KKKK
Change A was never a baserev because none of its children were to be fixed.
$ cd ..
Test the --source option. We only do this with obsstore on to avoid duplicating
test code. We rely on the other tests to prove that obsolescence is not an
important factor here.
#if obsstore-on
$ hg init source-arg
$ cd source-arg
$ printf "aaaa\n" > a
$ hg commit -Am "change A"
adding a
$ printf "bbbb\n" > b
$ hg commit -Am "change B"
adding b
$ printf "cccc\n" > c
$ hg commit -Am "change C"
adding c
$ hg checkout 0
0 files updated, 0 files merged, 2 files removed, 0 files unresolved
$ printf "dddd\n" > d
$ hg commit -Am "change D"
adding d
created new head
$ hg log --graph --template '{rev} {desc}\n'
@ 3 change D
|
| o 2 change C
| |
| o 1 change B
|/
o 0 change A
Test passing 'wdir()' to --source
$ printf "xxxx\n" > x
$ hg add x
$ hg fix -s 'wdir()'
$ cat *
aaaa
dddd
XXXX
Test passing '.' to --source
$ printf "xxxx\n" > x
$ hg fix -s .
$ hg log --graph --template '{rev} {desc}\n'
@ 4 change D
|
| o 2 change C
| |
| o 1 change B
|/
o 0 change A
$ cat *
aaaa
DDDD
XXXX
$ hg strip -qf 4
$ hg co -q 3
Test passing other branch to --source
$ printf "xxxx\n" > x
$ hg add x
$ hg fix -s 2
$ hg log --graph --template '{rev} {desc}\n'
o 4 change C
|
| @ 3 change D
| |
o | 1 change B
|/
o 0 change A
$ hg cat -r 4 b c
bbbb
CCCC
$ cat *
aaaa
dddd
xxxx
$ hg strip -qf 4
Test passing multiple revisions to --source
$ hg fix -s '2 + .'
$ hg log --graph --template '{rev} {desc}\n'
@ 5 change D
|
| o 4 change C
| |
| o 1 change B
|/
o 0 change A
$ hg cat -r 4 b c
bbbb
CCCC
$ cat *
aaaa
DDDD
XXXX
$ cd ..
$ hg init exclude-obsolete
$ cd exclude-obsolete
$ hg debugdrawdag <<'EOS'
> E C # prune: C
> | |
> D B # prune: B, D
> |/
> A
> EOS
1 new orphan changesets
$ hg log --graph --template '{rev} {desc}\n'
* 4 E
|
| x 3 C
| |
x | 2 D
| |
| x 1 B
|/
o 0 A
$ hg fix -s A
$ hg fix -s B
abort: no changesets specified
(use --source or --working-dir)
[255]
$ hg fix -s D
$ hg fix -s E
$ cd ..
#endif
The --all flag should fix anything that wouldn't cause a problem if you fixed
it, including the working copy. Obsolete revisions are not fixed because that
could cause divergence. Public revisions would cause an abort because they are
immutable. We can fix orphans because their successors are still just orphans
of the original obsolete parent. When obsolesence is off, we're just fixing and
replacing anything that isn't public.
$ hg init fixall
$ cd fixall
$ hg fix --all --working-dir
abort: cannot specify both --working-dir and --all
[10]
#if obsstore-on
$ printf "one\n" > foo.whole
$ hg commit -Aqm "first"
$ hg phase --public
$ hg tag --local root
$ printf "two\n" > foo.whole
$ hg commit -m "second"
$ printf "three\n" > foo.whole
$ hg commit -m "third" --secret
$ hg tag --local secret
$ hg checkout root
1 files updated, 0 files merged, 0 files removed, 0 files unresolved
$ printf "four\n" > foo.whole
$ hg commit -m "fourth"
created new head
$ printf "five\n" > foo.whole
$ hg commit -m "fifth"
$ hg tag --local replaced
$ printf "six\n" > foo.whole
$ hg commit -m "sixth"
$ hg checkout replaced
1 files updated, 0 files merged, 0 files removed, 0 files unresolved
$ printf "seven\n" > foo.whole
$ hg commit --amend
1 new orphan changesets
$ hg checkout secret
1 files updated, 0 files merged, 0 files removed, 0 files unresolved
$ printf "uncommitted\n" > foo.whole
$ hg log --graph --template '{rev} {desc} {phase}\n'
o 6 fifth draft
|
| * 5 sixth draft
| |
| x 4 fifth draft
|/
o 3 fourth draft
|
| @ 2 third secret
| |
| o 1 second draft
|/
o 0 first public
$ hg fix --all
$ hg log --graph --template '{rev} {desc}\n' -r 'sort(all(), topo)' --hidden
o 11 fifth
|
o 9 fourth
|
| @ 8 third
| |
| o 7 second
|/
| * 10 sixth
| |
| | x 5 sixth
| |/
| x 4 fifth
| |
| | x 6 fifth
| |/
| x 3 fourth
|/
| x 2 third
| |
| x 1 second
|/
o 0 first
$ hg cat -r 7 foo.whole
TWO
$ hg cat -r 8 foo.whole
THREE
$ hg cat -r 9 foo.whole
FOUR
$ hg cat -r 10 foo.whole
SIX
$ hg cat -r 11 foo.whole
SEVEN
$ cat foo.whole
UNCOMMITTED
#else
$ printf "one\n" > foo.whole
$ hg commit -Aqm "first"
$ hg phase --public
$ hg tag --local root
$ printf "two\n" > foo.whole
$ hg commit -m "second"
$ printf "three\n" > foo.whole
$ hg commit -m "third" --secret
$ hg tag --local secret
$ hg checkout root
1 files updated, 0 files merged, 0 files removed, 0 files unresolved
$ printf "four\n" > foo.whole
$ hg commit -m "fourth"
created new head
$ printf "uncommitted\n" > foo.whole
$ hg log --graph --template '{rev} {desc} {phase}\n'
@ 3 fourth draft
|
| o 2 third secret
| |
| o 1 second draft
|/
o 0 first public
$ hg fix --all
saved backup bundle to * (glob)
$ hg log --graph --template '{rev} {desc} {phase}\n'
@ 3 fourth draft
|
| o 2 third secret
| |
| o 1 second draft
|/
o 0 first public
$ hg cat -r 0 foo.whole
one
$ hg cat -r 1 foo.whole
TWO
$ hg cat -r 2 foo.whole
THREE
$ hg cat -r 3 foo.whole
FOUR
$ cat foo.whole
UNCOMMITTED
#endif
$ cd ..