view tests/test-rename-merge2 @ 4433:ba22e867cb23

mercurial.el: fix error on hg-read-rev() with small tip, and cleanups

* Fix error if tip revision is smaller than hg-rev-completion-limit

  If tip revision is 10, "hg log -r -100:tip" fails.

* Remove dependencies on cl package at runtime

  Quote from GNU Emacs Lisp Reference Manual, Emacs Lisp Coding Conventions:
  > * Please don't require the `cl' package of Common Lisp extensions at
  >   run time.  Use of this package is optional, and it is not part of
  >   the standard Emacs namespace.  If your package loads `cl' at run
  >   time, that could cause name clashes for users who don't use that
  >   package.

* Check XEmacs at compile time

  Since byte-compiled file is not portable between GNU Emacs and
  XEmacs, checking type of emacs can be done at compile time.  This
  reduces byte-compiler warnings.

* Defvar variables binded dynamically and used across functions

* Combine status output string to state symbol alist into a variable,
  and use char instead of string for key of state alist

* Make hg-view-mode as minor-mode

* Define keymaps as conventions

#!/bin/sh

mkdir -p t
cd t

cat <<EOF > merge
import sys, os
f = open(sys.argv[1], "wb")
f.write("merge %s %s %s" % (sys.argv[1], sys.argv[2], sys.argv[3]))
f.close()
EOF
HGMERGE="python ../merge"; export HGMERGE

# perform a test merge with possible renaming
# 
# args:
# $1 = action in local branch
# $2 = action in remote branch
# $3 = action in working dir
# $4 = expected result
tm()
{
    mkdir t
    cd t
    hg init
    echo "[merge]" >> .hg/hgrc
    echo "followcopies = 1" >> .hg/hgrc

    # base
    echo base > a
    echo base > rev # used to force commits
    hg add a rev
    hg ci -m "base" -d "0 0"

    # remote
    echo remote > rev
    if [ "$2" != "" ] ; then $2 ; fi
    hg ci -m "remote" -d "0 0"

    # local
    hg co -q 0
    echo local > rev
    if [ "$1" != "" ] ; then $1 ; fi
    hg ci -m "local" -d "0 0"

    # working dir
    echo local > rev
    if [ "$3" != "" ] ; then $3 ; fi

    # merge
    echo "--------------"
    echo "test L:$1 R:$2 W:$3 - $4"
    echo "--------------"
    hg merge -y --debug --traceback

    echo "--------------"
    hg status -camC -X rev

    hg ci -m "merge" -d "0 0"
    
    echo "--------------"
    echo

    cd ..
    rm -r t
}

up() { 
    cp rev $1
    hg add $1 2> /dev/null
    if [ "$2" != "" ] ; then 
	cp rev $2
	hg add $2 2> /dev/null
    fi
}

uc() { up $1; hg cp $1 $2; } # update + copy
um() { up $1; hg mv $1 $2; }
nc() { hg cp $1 $2; } # just copy
nm() { hg mv $1 $2; } # just move

tm "up a  " "nc a b" "      " "1  get local a to b"
tm "nc a b" "up a  " "      " "2  get rem change to a and b"
tm "up a  " "nm a b" "      " "3  get local a change to b, remove a"
tm "nm a b" "up a  " "      " "4  get remote change to b"
tm "      " "nc a b" "      " "5  get b"
tm "nc a b" "      " "      " "6  nothing"
tm "      " "nm a b" "      " "7  get b"
tm "nm a b" "      " "      " "8  nothing"
tm "um a b" "um a b" "      " "9  do merge with ancestor in a"
#tm "um a c" "um x c" "      " "10 do merge with no ancestor"
tm "nm a b" "nm a c" "      " "11 get c, keep b"
tm "nc a b" "up b  " "      " "12 merge b no ancestor"
tm "up b  " "nm a b" "      " "13 merge b no ancestor"
tm "nc a b" "up a b" "      " "14 merge b no ancestor"
tm "up b  " "nm a b" "      " "15 merge b no ancestor, remove a"
tm "nc a b" "up a b" "      " "16 get a, merge b no ancestor"
tm "up a b" "nc a b" "      " "17 keep a, merge b no ancestor" 
tm "nm a b" "up a b" "      " "18 merge b no ancestor"
tm "up a b" "nm a b" "      " "19 merge b no ancestor, prompt remove a"
tm "up a  " "um a b" "      " "20 merge a and b to b, remove a"
tm "um a b" "up a  " "      " "21 merge a and b to b"
#tm "nm a b" "um x a" "      " "22 get a, keep b"
tm "nm a b" "up a c" "      " "23 get c, keep b"