mirror of
https://github.com/facebook/sapling.git
synced 2024-10-10 16:57:49 +03:00
a2bdf68679
Summary: Added config option 'prefetchdays' which indicates that commits older than 'prefetchdays' days should not be prefetched. This option is necessary to avoid prefetch of huge amount of data. The default value is set to 14 days. Test Plan: Ensure that unit tests pass Reviewers: ryanmce, simonfar, durham, #fbhgext, simpkins Reviewed By: #fbhgext, simpkins Subscribers: simpkins Differential Revision: https://phab.mercurial-scm.org/D420
113 lines
3.8 KiB
Raku
113 lines
3.8 KiB
Raku
$ PYTHONPATH=$TESTDIR/..:$PYTHONPATH
|
|
$ export PYTHONPATH
|
|
|
|
$ . "$TESTDIR/library.sh"
|
|
|
|
$ hginit master
|
|
$ cd master
|
|
$ cat >> .hg/hgrc <<EOF
|
|
> [remotefilelog]
|
|
> server=True
|
|
> serverexpiration=-1
|
|
> EOF
|
|
$ echo x > x
|
|
$ hg commit -qAm x
|
|
$ cd ..
|
|
|
|
$ hgcloneshallow ssh://user@dummy/master shallow -q
|
|
1 files fetched over 1 fetches - (1 misses, 0.00% hit ratio) over *s (glob)
|
|
|
|
# Set the prefetchdays config to zero so that all commits are prefetched
|
|
# no matter what their creation date is.
|
|
$ cd shallow
|
|
$ cat >> .hg/hgrc <<EOF
|
|
> [remotefilelog]
|
|
> prefetchdays=0
|
|
> EOF
|
|
$ cd ..
|
|
|
|
# commit a new version of x so we can gc the old one
|
|
|
|
$ cd master
|
|
$ echo y > x
|
|
$ hg commit -qAm y
|
|
$ cd ..
|
|
|
|
$ cd shallow
|
|
$ hg pull -q
|
|
$ hg update -q
|
|
1 files fetched over 1 fetches - (1 misses, 0.00% hit ratio) over *s (glob)
|
|
$ cd ..
|
|
|
|
# gc client cache
|
|
|
|
$ lastweek=`python -c 'import datetime,time; print datetime.datetime.fromtimestamp(time.time() - (86400 * 7)).strftime("%y%m%d%H%M")'`
|
|
$ find $CACHEDIR -type f -exec touch -t $lastweek {} \;
|
|
|
|
$ find $CACHEDIR -type f | sort
|
|
$TESTTMP/hgcache/master/11/f6ad8ec52a2984abaafd7c3b516503785c2072/1406e74118627694268417491f018a4a883152f0 (glob)
|
|
$TESTTMP/hgcache/master/11/f6ad8ec52a2984abaafd7c3b516503785c2072/48023ec064c1d522f0d792a5a912bb1bf7859a4a (glob)
|
|
$TESTTMP/hgcache/repos (glob)
|
|
$ hg gc
|
|
finished: removed 1 of 2 files (0.00 GB to 0.00 GB)
|
|
$ find $CACHEDIR -type f | sort
|
|
$TESTTMP/hgcache/master/11/f6ad8ec52a2984abaafd7c3b516503785c2072/48023ec064c1d522f0d792a5a912bb1bf7859a4a (glob)
|
|
$TESTTMP/hgcache/repos
|
|
|
|
# gc server cache
|
|
|
|
$ find master/.hg/remotefilelogcache -type f | sort
|
|
master/.hg/remotefilelogcache/x/1406e74118627694268417491f018a4a883152f0 (glob)
|
|
master/.hg/remotefilelogcache/x/48023ec064c1d522f0d792a5a912bb1bf7859a4a (glob)
|
|
$ hg gc master
|
|
finished: removed 0 of 1 files (0.00 GB to 0.00 GB)
|
|
$ find master/.hg/remotefilelogcache -type f | sort
|
|
master/.hg/remotefilelogcache/x/48023ec064c1d522f0d792a5a912bb1bf7859a4a (glob)
|
|
|
|
# Test that GC keepset includes pullprefetch revset if it is configured
|
|
|
|
$ cd shallow
|
|
$ cat >> .hg/hgrc <<EOF
|
|
> [remotefilelog]
|
|
> pullprefetch=all()
|
|
> EOF
|
|
$ hg prefetch
|
|
1 files fetched over 1 fetches - (1 misses, 0.00% hit ratio) over *s (glob)
|
|
|
|
$ cd ..
|
|
$ hg gc
|
|
finished: removed 0 of 2 files (0.00 GB to 0.00 GB)
|
|
|
|
# Ensure that there are 2 versions of the file in cache
|
|
$ find $CACHEDIR -type f | sort
|
|
$TESTTMP/hgcache/master/11/f6ad8ec52a2984abaafd7c3b516503785c2072/1406e74118627694268417491f018a4a883152f0 (glob)
|
|
$TESTTMP/hgcache/master/11/f6ad8ec52a2984abaafd7c3b516503785c2072/48023ec064c1d522f0d792a5a912bb1bf7859a4a (glob)
|
|
$TESTTMP/hgcache/repos (glob)
|
|
|
|
# Test that if garbage collection on repack and repack on hg gc flags are set then incremental repack with garbage collector is run
|
|
|
|
$ hg gc --config remotefilelog.gcrepack=True --config remotefilelog.repackonhggc=True
|
|
|
|
# Ensure that loose files are repacked
|
|
$ find $CACHEDIR -type f | sort
|
|
$TESTTMP/hgcache/master/packs/8d3499c65d926e4f107cf03c6b0df833222025b4.histidx
|
|
$TESTTMP/hgcache/master/packs/8d3499c65d926e4f107cf03c6b0df833222025b4.histpack
|
|
$TESTTMP/hgcache/master/packs/9c7046f8cad0417c39aa7c03ce13e0ba991306c2.dataidx
|
|
$TESTTMP/hgcache/master/packs/9c7046f8cad0417c39aa7c03ce13e0ba991306c2.datapack
|
|
$TESTTMP/hgcache/repos
|
|
|
|
# Test that warning is displayed when there are no valid repos in repofile
|
|
|
|
$ cp $CACHEDIR/repos $CACHEDIR/repos.bak
|
|
$ echo " " > $CACHEDIR/repos
|
|
$ hg gc
|
|
warning: no valid repos in repofile
|
|
$ mv $CACHEDIR/repos.bak $CACHEDIR/repos
|
|
|
|
# Test that warning is displayed when the repo path is malformed
|
|
|
|
$ printf "asdas\0das" >> $CACHEDIR/repos
|
|
$ hg gc 2>&1 | head -n2
|
|
warning: malformed path: * (glob)
|
|
Traceback (most recent call last):
|