mirror of
https://github.com/facebook/sapling.git
synced 2024-10-08 15:57:43 +03:00
24 lines
788 B
Perl
Executable File
24 lines
788 B
Perl
Executable File
Check whether size of generaldelta revlog is not bigger than its
|
|
regular equivalent. Test would fail if generaldelta was naive
|
|
implementation of parentdelta: third manifest revision would be fully
|
|
inserted due to big distance from its paren revision (zero).
|
|
|
|
$ hg init repo
|
|
$ cd repo
|
|
$ echo foo > foo
|
|
$ echo bar > bar
|
|
$ hg commit -q -Am boo
|
|
$ hg clone --pull . ../gdrepo -q --config format.generaldelta=yes
|
|
$ for r in 1 2 3; do
|
|
> echo $r > foo
|
|
> hg commit -q -m $r
|
|
> hg up -q -r 0
|
|
> hg pull . -q -r $r -R ../gdrepo
|
|
> done
|
|
$ cd ..
|
|
$ regsize=`du -s -b repo/.hg/store/00manifest.i | cut -f 1`
|
|
$ gdsize=`du -s -b gdrepo/.hg/store/00manifest.i | cut -f 1`
|
|
$ if [ $regsize -gt $gdsize ]; then
|
|
> echo 'generaldelta increased size of a revlog!'
|
|
> fi
|