$ HGENCODING=utf-8

  $ export HGENCODING

  $ cat > testrevset.py << EOF

  > import mercurial.revset

  > 

  > baseset = mercurial.revset.baseset

  > 

  > def r3232(repo, subset, x):

  >     """"simple revset that return [3,2,3,2]

  > 

  >     revisions duplicated on purpose.

  >     """

  >     if 3 not in subset:

  >        if 2 in subset:

  >            return baseset([2, 2])

  >        return baseset()

  >     return baseset([3, 3, 2, 2])

  > 

  > mercurial.revset.symbols[b'r3232'] = r3232

  > EOF

  $ cat >> $HGRCPATH << EOF

  > [extensions]

  > drawdag=$TESTDIR/drawdag.py

  > testrevset=$TESTTMP/testrevset.py

  > EOF

  $ try() {

  >   hg debugrevspec --debug "$@"

  > }

  $ log() {

  >   hg log --template '{rev}\n' -r "$1"

  > }

extension to build '_intlist()' and '_hexlist()', which is necessary because

these predicates use '\0' as a separator:

  $ cat <<EOF > debugrevlistspec.py

  > from mercurial import (

  >     node as nodemod,

  >     registrar,

  >     revset,

  >     revsetlang,

  > )

  > from mercurial.utils import stringutil

  > cmdtable = {}

  > command = registrar.command(cmdtable)

  > @command(b'debugrevlistspec',

  >     [(b'', b'optimize', None, b'print parsed tree after optimizing'),

  >      (b'', b'bin', None, b'unhexlify arguments')])

  > def debugrevlistspec(ui, repo, fmt, *args, **opts):

  >     if opts['bin']:

  >         args = map(nodemod.bin, args)

  >     expr = revsetlang.formatspec(fmt, list(args))

  >     if ui.verbose:

  >         tree = revsetlang.parse(expr, lookup=revset.lookupfn(repo))

  >         ui.note(revsetlang.prettyformat(tree), b"\n")

  >         if opts["optimize"]:

  >             opttree = revsetlang.optimize(revsetlang.analyze(tree))

  >             ui.note(b"* optimized:\n", revsetlang.prettyformat(opttree),

  >                     b"\n")

  >     func = revset.match(ui, expr, lookup=revset.lookupfn(repo))

  >     revs = func(repo)

  >     if ui.verbose:

  >         ui.note(b"* set:\n", stringutil.prettyrepr(revs), b"\n")

  >     for c in revs:

  >         ui.write(b"%d\n" % c)

  > EOF

  $ cat <<EOF >> $HGRCPATH

  > [extensions]

  > debugrevlistspec = $TESTTMP/debugrevlistspec.py

  > EOF

  $ trylist() {

  >   hg debugrevlistspec --debug "$@"

  > }

  $ hg init repo

  $ cd repo

  $ echo a > a

  $ hg branch a

  marked working directory as branch a

  (branches are permanent and global, did you want a bookmark?)

  $ hg ci -Aqm0

  $ echo b > b

  $ hg branch b

  marked working directory as branch b

  $ hg ci -Aqm1

  $ rm a

  $ hg branch a-b-c-

  marked working directory as branch a-b-c-

  $ hg ci -Aqm2 -u Bob

  $ hg log -r "extra('branch', 'a-b-c-')" --template '{rev}\n'

  2

  $ hg log -r "extra('branch')" --template '{rev}\n'

  0

  1

  2

  $ hg log -r "extra('branch', 're:a')" --template '{rev} {branch}\n'

  0 a

  2 a-b-c-

  $ hg co 1

  1 files updated, 0 files merged, 0 files removed, 0 files unresolved

  $ hg branch +a+b+c+

  marked working directory as branch +a+b+c+

  $ hg ci -Aqm3

  $ hg co 2  # interleave

  0 files updated, 0 files merged, 1 files removed, 0 files unresolved

  $ echo bb > b

  $ hg branch -- -a-b-c-

  marked working directory as branch -a-b-c-

  $ hg ci -Aqm4 -d "May 12 2005"

  $ hg co 3

  2 files updated, 0 files merged, 0 files removed, 0 files unresolved

  $ hg branch !a/b/c/

  marked working directory as branch !a/b/c/

  $ hg ci -Aqm"5 bug"

  $ hg merge 4

  1 files updated, 0 files merged, 1 files removed, 0 files unresolved

  (branch merge, don't forget to commit)

  $ hg branch _a_b_c_

  marked working directory as branch _a_b_c_

  $ hg ci -Aqm"6 issue619"

  $ hg branch .a.b.c.

  marked working directory as branch .a.b.c.

  $ hg ci -Aqm7

  $ hg branch all

  marked working directory as branch all

  $ hg co 4

  0 files updated, 0 files merged, 0 files removed, 0 files unresolved

  $ hg branch é

  marked working directory as branch \xc3\xa9 (esc)

  $ hg ci -Aqm9

  $ hg tag -r6 1.0

  $ hg bookmark -r6 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

  $ hg clone --quiet -U -r 7 . ../remote1

  $ hg clone --quiet -U -r 8 . ../remote2

  $ echo "[paths]" >> .hg/hgrc

  $ echo "default = ../remote1" >> .hg/hgrc

trivial

  $ try 0:1

  (range

    (symbol '0')

    (symbol '1'))

  * set:

  <spanset+ 0:2>

  0

  1

  $ try --optimize :

  (rangeall

    None)

  * optimized:

  (rangeall

    None)

  * set:

  <spanset+ 0:10>

  0

  1

  2

  3

  4

  5

  6

  7

  8

  9

  $ try 3::6

  (dagrange

    (symbol '3')

    (symbol '6'))

  * set:

  <baseset+ [3, 5, 6]>

  3

  5

  6

  $ try '0|1|2'

  (or

    (list

      (symbol '0')

      (symbol '1')

      (symbol '2')))

  * set:

  <baseset [0, 1, 2]>

  0

  1

  2

names that should work without quoting

  $ try a

  (symbol 'a')

  * set:

  <baseset [0]>

  0

  $ try b-a

  (minus

    (symbol 'b')

    (symbol 'a'))

  * set:

  <filteredset

    <baseset [1]>,

    <not

      <baseset [0]>>>

  1

  $ try _a_b_c_

  (symbol '_a_b_c_')

  * set:

  <baseset [6]>

  6

  $ try _a_b_c_-a

  (minus

    (symbol '_a_b_c_')

    (symbol 'a'))

  * set:

  <filteredset

    <baseset [6]>,

    <not

      <baseset [0]>>>

  6

  $ try .a.b.c.

  (symbol '.a.b.c.')

  * set:

  <baseset [7]>

  7

  $ try .a.b.c.-a

  (minus

    (symbol '.a.b.c.')

    (symbol 'a'))

  * set:

  <filteredset

    <baseset [7]>,

    <not

      <baseset [0]>>>

  7

names that should be caught by fallback mechanism

  $ try -- '-a-b-c-'

  (symbol '-a-b-c-')

  * set:

  <baseset [4]>

  4

  $ log -a-b-c-

  4

  $ try '+a+b+c+'

  (symbol '+a+b+c+')

  * set:

  <baseset [3]>

  3

  $ try '+a+b+c+:'

  (rangepost

    (symbol '+a+b+c+'))

  * set:

  <spanset+ 3:10>

  3

  4

  5

  6

  7

  8

  9

  $ try ':+a+b+c+'

  (rangepre

    (symbol '+a+b+c+'))

  * set:

  <spanset+ 0:4>

  0

  1

  2

  3

  $ try -- '-a-b-c-:+a+b+c+'

  (range

    (symbol '-a-b-c-')

    (symbol '+a+b+c+'))

  * set:

  <spanset- 3:5>

  4

  3

  $ log '-a-b-c-:+a+b+c+'

  4

  3

  $ try -- -a-b-c--a # complains

  (minus

    (minus

      (minus

        (negate

          (symbol 'a'))

        (symbol 'b'))

      (symbol 'c'))

    (negate

      (symbol 'a')))

  abort: unknown revision '-a'

  [10]

  $ try é

  (symbol '\xc3\xa9')

  * set:

  <baseset [9]>

  9

no quoting needed

  $ log ::a-b-c-

  0

  1

  2

quoting needed

  $ try '"-a-b-c-"-a'

  (minus

    (string '-a-b-c-')

    (symbol 'a'))

  * set:

  <filteredset

    <baseset [4]>,

    <not

      <baseset [0]>>>

  4

  $ log '1 or 2'

  1

  2

  $ log '1|2'

  1

  2

  $ log '1 and 2'

  $ log '1&2'

  $ try '1&2|3' # precedence - and is higher

  (or

    (list

      (and

        (symbol '1')

        (symbol '2'))

      (symbol '3')))

  * set:

  <addset

    <baseset []>,

    <baseset [3]>>

  3

  $ try '1|2&3'

  (or

    (list

      (symbol '1')

      (and

        (symbol '2')

        (symbol '3'))))

  * set:

  <addset

    <baseset [1]>,

    <baseset []>>

  1

  $ try '1&2&3' # associativity

  (and

    (and

      (symbol '1')

      (symbol '2'))

    (symbol '3'))

  * set:

  <baseset []>

  $ try '1|(2|3)'

  (or

    (list

      (symbol '1')

      (group

        (or

          (list

            (symbol '2')

            (symbol '3'))))))

  * set:

  <addset

    <baseset [1]>,

    <baseset [2, 3]>>

  1

  2

  3

  $ log '1.0' # tag

  6

  $ log 'a' # branch