|
|
#!/bin/sh
|
|
|
|
|
|
cacheexists() {
|
|
|
[ -f .hg/tags.cache ] && echo "tag cache exists" || echo "no tag cache"
|
|
|
}
|
|
|
|
|
|
# XXX need to test that the tag cache works when we strip an old head
|
|
|
# and add a new one rooted off non-tip: i.e. node and rev of tip are the
|
|
|
# same, but stuff has changed behind tip.
|
|
|
|
|
|
echo "% setup"
|
|
|
mkdir t
|
|
|
cd t
|
|
|
hg init
|
|
|
cacheexists
|
|
|
hg id
|
|
|
cacheexists
|
|
|
echo a > a
|
|
|
hg add a
|
|
|
hg commit -m "test"
|
|
|
hg co
|
|
|
hg identify
|
|
|
cacheexists
|
|
|
|
|
|
echo "% create local tag with long name"
|
|
|
T=`hg identify --debug --id`
|
|
|
hg tag -l "This is a local tag with a really long name!"
|
|
|
hg tags
|
|
|
rm .hg/localtags
|
|
|
|
|
|
echo "% create a tag behind hg's back"
|
|
|
echo "$T first" > .hgtags
|
|
|
cat .hgtags
|
|
|
hg add .hgtags
|
|
|
hg commit -m "add tags"
|
|
|
hg tags
|
|
|
hg identify
|
|
|
|
|
|
# repeat with cold tag cache
|
|
|
rm -f .hg/tags.cache
|
|
|
hg identify
|
|
|
|
|
|
echo "% create a branch"
|
|
|
echo bb > a
|
|
|
hg status
|
|
|
hg identify
|
|
|
hg co first
|
|
|
hg id
|
|
|
hg -v id
|
|
|
hg status
|
|
|
echo 1 > b
|
|
|
hg add b
|
|
|
hg commit -m "branch"
|
|
|
hg id
|
|
|
|
|
|
echo "% merge the two heads"
|
|
|
hg merge 1
|
|
|
hg id
|
|
|
hg status
|
|
|
|
|
|
hg commit -m "merge"
|
|
|
|
|
|
echo "% create fake head, make sure tag not visible afterwards"
|
|
|
cp .hgtags tags
|
|
|
hg tag last
|
|
|
hg rm .hgtags
|
|
|
hg commit -m "remove"
|
|
|
|
|
|
mv tags .hgtags
|
|
|
hg add .hgtags
|
|
|
hg commit -m "readd"
|
|
|
|
|
|
hg tags
|
|
|
|
|
|
echo "% add invalid tags"
|
|
|
echo "spam" >> .hgtags
|
|
|
echo >> .hgtags
|
|
|
echo "foo bar" >> .hgtags
|
|
|
echo "$T invalid" | sed "s/..../a5a5/" >> .hg/localtags
|
|
|
echo "committing .hgtags:"
|
|
|
cat .hgtags
|
|
|
hg commit -m "tags"
|
|
|
|
|
|
echo "% report tag parse error on other head"
|
|
|
hg up 3
|
|
|
echo 'x y' >> .hgtags
|
|
|
hg commit -m "head"
|
|
|
|
|
|
hg tags
|
|
|
hg tip
|
|
|
|
|
|
echo "% test tag precedence rules"
|
|
|
cd ..
|
|
|
hg init t2
|
|
|
cd t2
|
|
|
echo foo > foo
|
|
|
hg add foo
|
|
|
hg ci -m 'add foo' # rev 0
|
|
|
hg tag bar # rev 1
|
|
|
echo >> foo
|
|
|
hg ci -m 'change foo 1' # rev 2
|
|
|
hg up -C 1
|
|
|
hg tag -r 1 -f bar # rev 3
|
|
|
hg up -C 1
|
|
|
echo >> foo
|
|
|
hg ci -m 'change foo 2' # rev 4
|
|
|
hg tags
|
|
|
hg tags # repeat in case of cache effects
|
|
|
|
|
|
dumptags() {
|
|
|
rev=$1
|
|
|
echo "rev $rev: .hgtags:"
|
|
|
hg cat -r$rev .hgtags
|
|
|
}
|
|
|
|
|
|
echo "% detailed dump of tag info"
|
|
|
echo "heads:"
|
|
|
hg heads -q # expect 4, 3, 2
|
|
|
dumptags 2
|
|
|
dumptags 3
|
|
|
dumptags 4
|
|
|
echo ".hg/tags.cache:"
|
|
|
[ -f .hg/tags.cache ] && cat .hg/tags.cache || echo "no such file"
|
|
|
|
|
|
echo "% test tag removal"
|
|
|
hg tag --remove bar # rev 5
|
|
|
hg tip -vp
|
|
|
hg tags
|
|
|
hg tags # again, try to expose cache bugs
|
|
|
|
|
|
echo '% remove nonexistent tag'
|
|
|
hg tag --remove foobar
|
|
|
hg tip
|
|
|
|
|
|
echo "% rollback undoes tag operation"
|
|
|
hg rollback # destroy rev 5 (restore bar)
|
|
|
hg tags
|
|
|
hg tags
|
|
|
|
|
|
echo "% test tag rank"
|
|
|
cd ..
|
|
|
hg init t3
|
|
|
cd t3
|
|
|
echo foo > foo
|
|
|
hg add foo
|
|
|
hg ci -m 'add foo' # rev 0
|
|
|
hg tag -f bar # rev 1 bar -> 0
|
|
|
hg tag -f bar # rev 2 bar -> 1
|
|
|
hg tag -fr 0 bar # rev 3 bar -> 0
|
|
|
hg tag -fr 1 bar # rev 4 bar -> 1
|
|
|
hg tag -fr 0 bar # rev 5 bar -> 0
|
|
|
hg tags
|
|
|
hg co 3
|
|
|
echo barbar > foo
|
|
|
hg ci -m 'change foo' # rev 6
|
|
|
hg tags
|
|
|
|
|
|
echo "% don't allow moving tag without -f"
|
|
|
hg tag -r 3 bar
|
|
|
hg tags
|
|
|
|
|
|
echo "% strip 1: expose an old head"
|
|
|
hg --config extensions.mq= strip 5 > /dev/null 2>&1
|
|
|
hg tags # partly stale cache
|
|
|
hg tags # up-to-date cache
|
|
|
echo "% strip 2: destroy whole branch, no old head exposed"
|
|
|
hg --config extensions.mq= strip 4 > /dev/null 2>&1
|
|
|
hg tags # partly stale
|
|
|
rm -f .hg/tags.cache
|
|
|
hg tags # cold cache
|
|
|
|
|
|
echo "% test tag rank with 3 heads"
|
|
|
cd ..
|
|
|
hg init t4
|
|
|
cd t4
|
|
|
echo foo > foo
|
|
|
hg add
|
|
|
hg ci -m 'add foo' # rev 0
|
|
|
hg tag bar # rev 1 bar -> 0
|
|
|
hg tag -f bar # rev 2 bar -> 1
|
|
|
hg up -qC 0
|
|
|
hg tag -fr 2 bar # rev 3 bar -> 2
|
|
|
hg tags
|
|
|
hg up -qC 0
|
|
|
hg tag -m 'retag rev 0' -fr 0 bar # rev 4 bar -> 0, but bar stays at 2
|
|
|
echo "% bar should still point to rev 2"
|
|
|
hg tags
|
|
|
|
|
|
|
|
|
echo "% remove local as global and global as local"
|
|
|
# test that removing global/local tags does not get confused when trying
|
|
|
# to remove a tag of type X which actually only exists as a type Y
|
|
|
cd ..
|
|
|
hg init t5
|
|
|
cd t5
|
|
|
echo foo > foo
|
|
|
hg add
|
|
|
hg ci -m 'add foo' # rev 0
|
|
|
|
|
|
hg tag -r 0 -l localtag
|
|
|
hg tag --remove localtag
|
|
|
|
|
|
hg tag -r 0 globaltag
|
|
|
hg tag --remove -l globaltag
|
|
|
hg tags -v
|
|
|
exit 0
|
|
|
|