$ 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['r3232'] = r3232

  > EOF

  $ cat >> $HGRCPATH << EOF

  > [extensions]

  > 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 __future__ import absolute_import

  > from mercurial import (

  >     cmdutil,

  >     node as nodemod,

  >     revset,

  > )

  > cmdtable = {}

  > command = cmdutil.command(cmdtable)

  > @command('debugrevlistspec',

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

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

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

  >     if opts['bin']:

  >         args = map(nodemod.bin, args)

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

  >     if ui.verbose:

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

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

  >         if opts["optimize"]:

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

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

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

  >     revs = func(repo)

  >     if ui.verbose:

  >     for c in revs:

  >         ui.write("%s\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:1>

  0

  1

  $ try --optimize :

  (rangeall

    None)

  * optimized:

  (rangeall

    None

    define)

  * set:

  <spanset+ 0:9>

  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:9>

  3

  4

  5

  6

  7

  8

  9

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

  (rangepre

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

  * set:

  <spanset+ 0:3>

  0

  1

  2

  3

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

  (range

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

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

  * set:

  <spanset- 3:4>

  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'!

  [255]

  $ 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

  0

  $ log '2785f51ee'